summaryrefslogtreecommitdiff
path: root/lib/editor
diff options
context:
space:
mode:
Diffstat (limited to 'lib/editor')
-rw-r--r--lib/editor/ASMsyntaxhighlight.tcl5
-rw-r--r--lib/editor/Csyntaxhighlight.tcl35
-rw-r--r--lib/editor/LSTsyntaxhighlight.tcl5
-rw-r--r--lib/editor/R_ASMsyntaxhighlight.tcl5
-rw-r--r--lib/editor/autocompletion.tcl77
-rw-r--r--lib/editor/commandline.tcl5
-rw-r--r--lib/editor/editor.tcl107
-rw-r--r--lib/editor/eventhandlers.tcl5
-rw-r--r--lib/editor/exports.tcl5
-rw-r--r--lib/editor/generalproc.tcl5
-rw-r--r--lib/editor/spell_check.tcl31
11 files changed, 160 insertions, 125 deletions
diff --git a/lib/editor/ASMsyntaxhighlight.tcl b/lib/editor/ASMsyntaxhighlight.tcl
index 1486201..8de9476 100644
--- a/lib/editor/ASMsyntaxhighlight.tcl
+++ b/lib/editor/ASMsyntaxhighlight.tcl
@@ -1,10 +1,13 @@
#!/usr/bin/tclsh
-# Part of MCU 8051 IDE ( http://mcu8051ide.sf.net )
+# Part of MCU 8051 IDE ( http://http://www.moravia-microsystems.com/mcu8051ide )
############################################################################
# Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012 by Martin Ošmera #
# martin.osmera@gmail.com #
# #
+# Copyright (C) 2014 by Moravia Microsystems, s.r.o. #
+# martin.osmera@moravia-microsystems.com #
+# #
# This program is free software; you can redistribute it and#or modify #
# it under the terms of the GNU General Public License as published by #
# the Free Software Foundation; either version 2 of the License, or #
diff --git a/lib/editor/Csyntaxhighlight.tcl b/lib/editor/Csyntaxhighlight.tcl
index c4ecd2a..2e1d16a 100644
--- a/lib/editor/Csyntaxhighlight.tcl
+++ b/lib/editor/Csyntaxhighlight.tcl
@@ -1,10 +1,13 @@
#!/usr/bin/tclsh
-# Part of MCU 8051 IDE ( http://mcu8051ide.sf.net )
+# Part of MCU 8051 IDE ( http://http://www.moravia-microsystems.com/mcu8051ide )
############################################################################
# Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012 by Martin Ošmera #
# martin.osmera@gmail.com #
# #
+# Copyright (C) 2014 by Moravia Microsystems, s.r.o. #
+# martin.osmera@moravia-microsystems.com #
+# #
# This program is free software; you can redistribute it and#or modify #
# it under the terms of the GNU General Public License as published by #
# the Free Software Foundation; either version 2 of the License, or #
@@ -55,32 +58,38 @@ namespace eval CsyntaxHighlight {
__data __near __xdata __far __idata __pdata __code
__bit __sfr __sfr16 __sfr32 __sbit __at
+
+ bool size_t addr_t
+ uint8_t uint16_t uint32_t uint64_t
+ int8_t int16_t int32_t int64_t
}
# List of C keywords
variable keywords {
auto break case _endasm while union continue
default do else enum sizeof for namespace
if goto return struct switch typedef using
- _asm __asm __endasm
+ inline _asm __asm __endasm
}
# List of doxygen tags -- No argument
variable doxy_tags_type0 {
@return @see @sa @arg
- @li @nosubgrouping @subpage @f$
- @f[ @f] @interface
+ @li @nosubgrouping @subpage @interface
+ @f[ @f] @f$ @{
+ @}
}
# List of doxygen tags -- Word after tag
variable doxy_tags_type1 {
- @param @defgroup @addtogroup @weakgroup
+ @class @defgroup @addtogroup @weakgroup
@ref @page @struct @union
@enum @def @file @namespace
- @package
+ @package @param @param[in] @param[out]
+ @param[in,out]
}
# List of doxygen tags -- Name after tag
variable doxy_tags_type2 {
@brief @ingroup @name @mainpage
@fn @var @typedef @author
- @authors
+ @authors @warning @deprecated
}
# List of HTML tags (HTML 4.0 Strict)
variable html_tags {
@@ -551,7 +560,7 @@ namespace eval CsyntaxHighlight {
# Determinate string to highlight
set string [string range $line_content $idx0 [expr {$idx1 - 1}]]
# Split line into words
- set words [split [regsub -all {>} [regsub -all {<} $string { &}] {& }]]
+ set words [split [regsub -all {>} [regsub -all {<} [regsub -all "\"" $string {\"}] { &}] {& }]]
# Adjust HTML tags with argument(s) (they must be represented as a single word)
set tag_opened 0
@@ -589,16 +598,16 @@ namespace eval CsyntaxHighlight {
# Detect dogygen tag
} elseif {[string index $word 0] == {@}} {
# Tags without argument
- if {[lsearch $doxy_tags_type0 $word] != -1 || $word == {@f[}} {
+ if {[lsearch -ascii -exact $doxy_tags_type0 $word] != -1 || $word == {@f[}} {
set tags {tag_c_dox_tag}
# Tags with one argument
- } elseif {[lsearch $doxy_tags_type1 $word] != -1} {
+ } elseif {[lsearch -ascii -exact $doxy_tags_type1 $word] != -1} {
set tags {tag_c_dox_tag}
set is_word 1
# Tags witch has name after
- } elseif {[lsearch $doxy_tags_type2 $word] != -1} {
+ } elseif {[lsearch -ascii -exact $doxy_tags_type2 $word] != -1} {
$editor tag add tag_c_dox_tag \
$line_number.[expr {$idx0 + $idx}] \
$line_number.[expr {$idx0 + $idx + $len}]
@@ -740,7 +749,7 @@ namespace eval CsyntaxHighlight {
$editor tag add tag_c_bracket $line_number.$j $line_number.$j+1c
# Other symbols
- } elseif {[lsearch {; = , + - < > ! | & * / ? : % ^} $char] != -1} {
+ } elseif {[lsearch -ascii -exact {; = , + - < > ! | & * / ? : % ^} $char] != -1} {
$editor tag add tag_c_symbol $line_number.$j $line_number.$j+1c
}
}
@@ -781,6 +790,8 @@ namespace eval CsyntaxHighlight {
set len [string length $word]
set idx [string first $word $string $idx]
+ regsub {[uU]?[lL]?[lL]?[uU]?$} $word {} word
+
# Char
if {![string is digit -strict [string index $word 0]]} {
if {$word == {''}} {
diff --git a/lib/editor/LSTsyntaxhighlight.tcl b/lib/editor/LSTsyntaxhighlight.tcl
index 62f622f..cff3afb 100644
--- a/lib/editor/LSTsyntaxhighlight.tcl
+++ b/lib/editor/LSTsyntaxhighlight.tcl
@@ -1,10 +1,13 @@
#!/usr/bin/tclsh
-# Part of MCU 8051 IDE ( http://mcu8051ide.sf.net )
+# Part of MCU 8051 IDE ( http://http://www.moravia-microsystems.com/mcu8051ide )
############################################################################
# Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012 by Martin Ošmera #
# martin.osmera@gmail.com #
# #
+# Copyright (C) 2014 by Moravia Microsystems, s.r.o. #
+# martin.osmera@moravia-microsystems.com #
+# #
# This program is free software; you can redistribute it and#or modify #
# it under the terms of the GNU General Public License as published by #
# the Free Software Foundation; either version 2 of the License, or #
diff --git a/lib/editor/R_ASMsyntaxhighlight.tcl b/lib/editor/R_ASMsyntaxhighlight.tcl
index 250da57..7b83384 100644
--- a/lib/editor/R_ASMsyntaxhighlight.tcl
+++ b/lib/editor/R_ASMsyntaxhighlight.tcl
@@ -1,10 +1,13 @@
#!/usr/bin/tclsh
-# Part of MCU 8051 IDE ( http://mcu8051ide.sf.net )
+# Part of MCU 8051 IDE ( http://http://www.moravia-microsystems.com/mcu8051ide )
############################################################################
# Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012 by Martin Ošmera #
# martin.osmera@gmail.com #
# #
+# Copyright (C) 2014 by Moravia Microsystems, s.r.o. #
+# martin.osmera@moravia-microsystems.com #
+# #
# This program is free software; you can redistribute it and#or modify #
# it under the terms of the GNU General Public License as published by #
# the Free Software Foundation; either version 2 of the License, or #
diff --git a/lib/editor/autocompletion.tcl b/lib/editor/autocompletion.tcl
index 04dca79..9d9b05c 100644
--- a/lib/editor/autocompletion.tcl
+++ b/lib/editor/autocompletion.tcl
@@ -1,10 +1,13 @@
#!/usr/bin/tclsh
-# Part of MCU 8051 IDE ( http://mcu8051ide.sf.net )
+# Part of MCU 8051 IDE ( http://http://www.moravia-microsystems.com/mcu8051ide )
############################################################################
# Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012 by Martin Ošmera #
# martin.osmera@gmail.com #
# #
+# Copyright (C) 2014 by Moravia Microsystems, s.r.o. #
+# martin.osmera@moravia-microsystems.com #
+# #
# This program is free software; you can redistribute it and#or modify #
# it under the terms of the GNU General Public License as published by #
# the Free Software Foundation; either version 2 of the License, or #
@@ -32,8 +35,8 @@ set _AUTOCOMPLETION_TCL _
# This file should be loaded into class Editor in file "editor.tcl"
# --------------------------------------------------------------------------
-common invoke_com_win_in_p 0 ;# Bool: invoke_completion_popup_window in progress
-common completion_win_opened 0 ;# Bool: Editor popup-based completion window opended
+public common invoke_com_win_in_p 0 ;# Bool: invoke_completion_popup_window in progress
+public common completion_win_opened 0 ;# Bool: Editor popup-based completion window opended
## Array: Strings available for autocompletion
# Index 0 - Labels in assembly
@@ -165,47 +168,41 @@ private method autocompletion_c_syntax_analyze {line_number} {
# Find word after data type specification
set prev_range {}
set range [list $line_number.0 $line_number.0]
+ set line [$editor get $line_number.0 [list $line_number.0 lineend]]
+
+ set par_idx [string first "(" $line]
+
while {1} {
set range [$editor tag nextrange tag_c_data_type \
[lindex $range 1] [list $line_number.0 lineend] \
]
- if {![llength $range]} {
+
+ if {![llength $range] || ( ( $par_idx != -1 ) && ([lindex [split [lindex $range 0] {.}] 1] > $par_idx) )} {
break
}
set prev_range $range
+ }
+ set range $prev_range
- # Nothing found -> abort
- if {![llength $prev_range]} {
- return
- }
-
- # Gain details about the word
- set range $prev_range
- set line [$editor get $line_number.0 [list $line_number.0 lineend]]
- set start [lindex [split [lindex $range 1] {.}] 1]
- set end 0
- set string {}
-
- # Find part which consist of alphanumeric characters
- while {1} {
- if {![regexp -start $start -- {\w+} $line string]} {
- return
- }
- incr start
- set end [expr {$start + [string length $string]}]
+ # Nothing found -> abort
+ if {![llength $range]} {
+ return
+ }
- if {[string is digit [string index $string 0]]} {
- incr start [string length $string]
- } else {
- break
- }
- }
+ set start [lindex [split [lindex $range 1] {.}] 1]
+ if {![regexp -start $start -- {\w+} $line string]} {
+ return
+ }
+ set start [string first $string $line $start]
+ set end [expr {$start + [string length $string]}]
- # Mark the word
- if {[regexp -start $end -- {\s*\(} $line]} {
- $editor tag add c_lang_func $line_number.$start $line_number.$end
- } else {
+ # Mark the word
+ if {[regexp -start $end -- {\s*\(} $line]} {
+ $editor tag add c_lang_func $line_number.$start $line_number.$end
+ } else {
+ # Skip type conversions
+ if {![regexp {[\(\)]} [$editor get [lindex $range 1] $line_number.$start]]} {
$editor tag add c_lang_var $line_number.$start $line_number.$end
}
}
@@ -331,13 +328,13 @@ private method invoke_completion_popup_window {mode start_idx end_idx} {
if {![winfo exists .completion_win]} {
set win [frame .completion_win -background {#000000}]
bind $win <Button-1> "catch {$this completion_popup_window_but1 %X %Y}"
- bind $win <FocusOut> "$this close_completion_popup_window"
+ bind $win <FocusOut> "catch {$this close_completion_popup_window}"
bind $win <Destroy> "
catch {$this detete_text_in_editor sel.first sel.last}
$this parse \[expr {int(\[$editor index insert\])}\]"
bind $win <Key-Escape> "
catch {$this detete_text_in_editor sel.first sel.last}
- $this close_completion_popup_window"
+ catch {$this close_completion_popup_window}"
# Create lisbox and scrollbar
set frame [frame $win.frame]
@@ -364,11 +361,11 @@ private method invoke_completion_popup_window {mode start_idx end_idx} {
pack $frame -padx 1 -pady 1 -fill both -expand 1
- $listbox bindText <Button-1> "$this completion_accept"
- $listbox bindText <Escape> "$this close_completion_popup_window"
- bind $listbox <Key-Return> "$this completion_accept \[$listbox selection get\]"
- bind $listbox <KP_Enter> "$this completion_accept \[$listbox selection get\]"
- bind $listbox <Escape> "$this close_completion_popup_window"
+ $listbox bindText <Button-1> "catch {$this completion_accept}"
+ $listbox bindText <Escape> "catch {$this close_completion_popup_window}"
+ bind $listbox <Key-Return> "catch {$this completion_accept \[$listbox selection get\]}"
+ bind $listbox <KP_Enter> "catch {$this completion_accept \[$listbox selection get\]}"
+ bind $listbox <Escape> "catch {$this close_completion_popup_window}"
if {[winfo exists $listbox.c]} {
bind $listbox.c <Button-5> {%W yview scroll +1 units; break}
bind $listbox.c <Button-4> {%W yview scroll -1 units; break}
diff --git a/lib/editor/commandline.tcl b/lib/editor/commandline.tcl
index 4e15e0a..6a13cf2 100644
--- a/lib/editor/commandline.tcl
+++ b/lib/editor/commandline.tcl
@@ -1,10 +1,13 @@
#!/usr/bin/tclsh
-# Part of MCU 8051 IDE ( http://mcu8051ide.sf.net )
+# Part of MCU 8051 IDE ( http://http://www.moravia-microsystems.com/mcu8051ide )
############################################################################
# Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012 by Martin Ošmera #
# martin.osmera@gmail.com #
# #
+# Copyright (C) 2014 by Moravia Microsystems, s.r.o. #
+# martin.osmera@moravia-microsystems.com #
+# #
# This program is free software; you can redistribute it and#or modify #
# it under the terms of the GNU General Public License as published by #
# the Free Software Foundation; either version 2 of the License, or #
diff --git a/lib/editor/editor.tcl b/lib/editor/editor.tcl
index e375386..a89c63a 100644
--- a/lib/editor/editor.tcl
+++ b/lib/editor/editor.tcl
@@ -1,10 +1,13 @@
#!/usr/bin/tclsh
-# Part of MCU 8051 IDE ( http://mcu8051ide.sf.net )
+# Part of MCU 8051 IDE ( http://http://www.moravia-microsystems.com/mcu8051ide )
############################################################################
# Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012 by Martin Ošmera #
# martin.osmera@gmail.com #
# #
+# Copyright (C) 2014 by Moravia Microsystems, s.r.o. #
+# martin.osmera@moravia-microsystems.com #
+# #
# This program is free software; you can redistribute it and#or modify #
# it under the terms of the GNU General Public License as published by #
# the Free Software Foundation; either version 2 of the License, or #
@@ -59,29 +62,29 @@ class Editor {
# 3 - Nano
# 4 - dav
# 5 - le
- common editor_to_use 0
- common intentation_mode {normal};# Editor indentation mode
- common spaces_no_tabs 0 ;# Bool: Use spaces instead of tabs
- common number_of_spaces 8 ;# Number of spaces to use instead of tab
- common auto_brackets 1 ;# Automaticaly insert oposite brackets, quotes, etc.
- common auto_completion 1 ;# Enable popup-base completion for code editor
- common cline_completion 1 ;# Enable popup-base completion for command line
- common autosave 0 ;# Int: 0 == Disable autosave; N > 0 == minutes
- common hg_trailing_sp 1 ;# Bool: Highlight trailing spaces
-
- common finishigh_hg_dlg_max ;# Int: Highlight dialog -- maximum value for progress bar
- common finishigh_hg_dlg_const ;# Int: Highlight dialog -- current value for progress bar
-
- common set_shortcuts {} ;# Currently set shortcut bindigs
- common shortcuts_cat {edit} ;# Key shortcut categories related to this segment
- common count 0 ;# Counter of class instances
- common bookmark 0 ;# Auxiliary variable for popup menu for Icon Border
- common breakpoint 0 ;# Auxiliary variable for popup menu for Line Numbers
- common pmenu_cline 0 ;# Auxiliary variable for popup menu for Icon Border and Line Numbers
- common wrap_char "\uB7" ;# Character intended for marking wrapped lines
+ public common editor_to_use 0
+ public common intentation_mode {normal};# Editor indentation mode
+ public common spaces_no_tabs 0 ;# Bool: Use spaces instead of tabs
+ public common number_of_spaces 8 ;# Number of spaces to use instead of tab
+ public common auto_brackets 1 ;# Automaticaly insert oposite brackets, quotes, etc.
+ public common auto_completion 1 ;# Enable popup-base completion for code editor
+ public common cline_completion 1 ;# Enable popup-base completion for command line
+ public common autosave 0 ;# Int: 0 == Disable autosave; N > 0 == minutes
+ public common hg_trailing_sp 1 ;# Bool: Highlight trailing spaces
+
+ public common finishigh_hg_dlg_max ;# Int: Highlight dialog -- maximum value for progress bar
+ public common finishigh_hg_dlg_const ;# Int: Highlight dialog -- current value for progress bar
+
+ public common set_shortcuts {} ;# Currently set shortcut bindigs
+ public common shortcuts_cat {edit} ;# Key shortcut categories related to this segment
+ public common count 0 ;# Counter of class instances
+ public common bookmark 0 ;# Auxiliary variable for popup menu for Icon Border
+ public common breakpoint 0 ;# Auxiliary variable for popup menu for Line Numbers
+ public common pmenu_cline 0 ;# Auxiliary variable for popup menu for Icon Border and Line Numbers
+ public common wrap_char "\uB7" ;# Character intended for marking wrapped lines
# Commands supported by editor command line
- common editor_commands {
+ public common editor_commands {
animate assemble auto-indent bookmark breakpoint
capitalize clear comment copy custom
cut date exit exit-program find
@@ -95,10 +98,10 @@ class Editor {
switch-mcu set-xcode set-xdata
}
# Editor commands wich can take options
- common commands_with_option {find replace}
+ public common commands_with_option {find replace}
## Tags which defines background color for specific type of lines
# {{tagname bg-color bool-priority} ...}
- common line_markers {
+ public common line_markers {
{sel #AAAAFF}
{tag_current_line #FFFF88}
{tag_bookmark #DDDDFF}
@@ -110,34 +113,34 @@ class Editor {
}
# Font for command line: Normal help window text
- common cl_hw_nrml_font [font create \
+ public common cl_hw_nrml_font [font create \
-family $::DEFAULT_FIXED_FONT \
-size [expr {int(-14 * $::font_size_factor)}] \
]
# Font for command line: Bold help window text
- common cl_hw_bold_font [font create \
+ public common cl_hw_bold_font [font create \
-family $::DEFAULT_FIXED_FONT \
-size [expr {int(-14 * $::font_size_factor)}] \
-weight bold \
]
# Font for command line: Subheader in help window text
- common cl_hw_hdr_font [font create \
+ public common cl_hw_hdr_font [font create \
-family $::DEFAULT_FIXED_FONT \
-size [expr {int(-14 * $::font_size_factor)}] \
-weight bold \
]
# Font for command line: Main header in help window text
- common cmd_line_win_font [font create \
+ public common cmd_line_win_font [font create \
-size [expr {int(-17 * $::font_size_factor)}] \
-weight bold \
-family {helvetica} \
]
# Font size for command line
- common cmd_line_fontSize [expr {int(14 * $::font_size_factor)}]
+ public common cmd_line_fontSize [expr {int(14 * $::font_size_factor)}]
# Font family for command line
- common cmd_line_fontFamily $::DEFAULT_FIXED_FONT
+ public common cmd_line_fontFamily $::DEFAULT_FIXED_FONT
# Font for editor command line
- common cmd_line_font [font create \
+ public common cmd_line_font [font create \
-family $cmd_line_fontFamily \
-size -$cmd_line_fontSize \
]
@@ -145,65 +148,65 @@ class Editor {
# {
# {tag_name ?foreground? ?overstrike? ?italic? ?bold?}
# }
- common cmd_line_highlighting {
+ public common cmd_line_highlighting {
{tag_cmd #0000DD 0 0 1}
{tag_argument #00DD00 0 0 0}
{tag_option #DD0000 0 0 1}
}
- common normal_text_bg #FFFFFF ;# Default background color for editor
- common iconBorder_bg #C8C5FF ;# Default background color for icon border
- common lineNumbers_bg #9497D8 ;# Default background color for line numbers
- common lineNumbers_fg #FFFFFF ;# Default foreground color for line numbers
+ public common normal_text_bg #FFFFFF ;# Default background color for editor
+ public common iconBorder_bg #C8C5FF ;# Default background color for icon border
+ public common lineNumbers_bg #9497D8 ;# Default background color for line numbers
+ public common lineNumbers_fg #FFFFFF ;# Default foreground color for line numbers
# Items in editor menu, which should be disabled when editor goes to simulator mode
- common freezable_menu_items {
+ public common freezable_menu_items {
Cut Paste Undo Redo Comment Uncomment Indent
Unindent Uppercase Lowercase Capitalize
}
# Items in editor menu, which should be disabled when editor is in read only mode
- common read_na_only_menu_items {
+ public common read_na_only_menu_items {
Cut Paste Undo Redo Comment Uncomment Indent
Unindent Uppercase Lowercase Capitalize
}
# Maximum width of the tab character, measured in number of spaces
- common tab_width 8
+ public common tab_width 8
# Default font size
- common fontSize [expr {int(13 * $::font_size_factor)}]
+ public common fontSize [expr {int(13 * $::font_size_factor)}]
# Default font family
- common fontFamily $::DEFAULT_FIXED_FONT
+ public common fontFamily $::DEFAULT_FIXED_FONT
# Default font for editor
- common defaultFont \
+ public common defaultFont \
[font create \
-size -$fontSize \
-family $fontFamily \
-weight {normal} \
]
- common defaultFont_bold \
+ public common defaultFont_bold \
[font create \
-size -$fontSize \
-family $fontFamily \
-weight {bold} \
]
- common defaultCharWidth 0 ;# Width of one character of the default font
- common defaultCharHeight 0 ;# Height of one character of the default font
+ public common defaultCharWidth 0 ;# Width of one character of the default font
+ public common defaultCharHeight 0 ;# Height of one character of the default font
# Font for status bar (Normal)
- common statusBarFont \
+ public common statusBarFont \
[font create \
-size [expr {int(-12 * $::font_size_factor)}] \
-family $::DEFAULT_FIXED_FONT \
]
# Font for status bar (Bold)
- common statusBarBoldFont \
+ public common statusBarBoldFont \
[font create \
-size [expr {int(-12 * $::font_size_factor)}] \
-weight bold \
-family $::DEFAULT_FIXED_FONT \
]
# Definition of editor popup menu
- common EDITORMENU {
+ public common EDITORMENU {
{command {LJMP this line} {$edit:jmp} 2 "ljmp_this_line {}"
{exec} "Program jump"}
{command {LCALL this line} {$edit:call} 4 "lcall_this_line {}"
@@ -250,7 +253,7 @@ class Editor {
{filesave} "Save this file"}
}
# Definition of popup menu for icon border
- common IBMENU {
+ public common IBMENU {
{checkbutton "Bookmark" {$edit:bookmark} {::Editor::bookmark} 1 0 0
{Bookmark ${::Editor::pmenu_cline}}}
{separator}
@@ -260,7 +263,7 @@ class Editor {
{2leftarrow} "Hide this panel"}
}
# Definition of popup menu for line numbers
- common LNMENU {
+ public common LNMENU {
{checkbutton "Breakpoint" {$edit:breakpoint} {::Editor::breakpoint} 1 0 0
{Breakpoint ${::Editor::pmenu_cline}}}
{separator}
@@ -270,7 +273,7 @@ class Editor {
{2leftarrow} "Hide this panel"}
}
# Definition of popup menu for editor statis bar
- common STATMENU {
+ public common STATMENU {
{command "Split vertical" {$edit:split_v} 8 {__split_vertical}
{view_left_right} "Split the editor vertically"}
{command "Split horizontal" {$edit:split_h} 6 {__split_horizontal}
@@ -349,7 +352,7 @@ class Editor {
private variable editor_height 0
private variable cmd_line ;# ID of command line entry widget
private variable cmd_line_listbox {} ;# Widget: ListBox of command line auto-completion window
- private variable completion_listbox ;# Widget: ListBox of editor popup-based completion
+ private variable completion_listbox {} ;# Widget: ListBox of editor popup-based completion
private variable do_not_hide_comp_win 0 ;# Bool: Disable highing of editor completion win. on KeyRelease
private variable autosave_timer {} ;# ID of autosave timer (command "after")
private variable key_handler_buffer {} ;# List: Buffer for <Key> event handler
diff --git a/lib/editor/eventhandlers.tcl b/lib/editor/eventhandlers.tcl
index 279b2e2..85190a5 100644
--- a/lib/editor/eventhandlers.tcl
+++ b/lib/editor/eventhandlers.tcl
@@ -1,10 +1,13 @@
#!/usr/bin/tclsh
-# Part of MCU 8051 IDE ( http://mcu8051ide.sf.net )
+# Part of MCU 8051 IDE ( http://http://www.moravia-microsystems.com/mcu8051ide )
############################################################################
# Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012 by Martin Ošmera #
# martin.osmera@gmail.com #
# #
+# Copyright (C) 2014 by Moravia Microsystems, s.r.o. #
+# martin.osmera@moravia-microsystems.com #
+# #
# This program is free software; you can redistribute it and#or modify #
# it under the terms of the GNU General Public License as published by #
# the Free Software Foundation; either version 2 of the License, or #
diff --git a/lib/editor/exports.tcl b/lib/editor/exports.tcl
index 26441c7..b49b2b7 100644
--- a/lib/editor/exports.tcl
+++ b/lib/editor/exports.tcl
@@ -1,10 +1,13 @@
#!/usr/bin/tclsh
-# Part of MCU 8051 IDE ( http://mcu8051ide.sf.net )
+# Part of MCU 8051 IDE ( http://http://www.moravia-microsystems.com/mcu8051ide )
############################################################################
# Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012 by Martin Ošmera #
# martin.osmera@gmail.com #
# #
+# Copyright (C) 2014 by Moravia Microsystems, s.r.o. #
+# martin.osmera@moravia-microsystems.com #
+# #
# This program is free software; you can redistribute it and#or modify #
# it under the terms of the GNU General Public License as published by #
# the Free Software Foundation; either version 2 of the License, or #
diff --git a/lib/editor/generalproc.tcl b/lib/editor/generalproc.tcl
index 3bf8767..55209d1 100644
--- a/lib/editor/generalproc.tcl
+++ b/lib/editor/generalproc.tcl
@@ -1,10 +1,13 @@
#!/usr/bin/tclsh
-# Part of MCU 8051 IDE ( http://mcu8051ide.sf.net )
+# Part of MCU 8051 IDE ( http://http://www.moravia-microsystems.com/mcu8051ide )
############################################################################
# Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012 by Martin Ošmera #
# martin.osmera@gmail.com #
# #
+# Copyright (C) 2014 by Moravia Microsystems, s.r.o. #
+# martin.osmera@moravia-microsystems.com #
+# #
# This program is free software; you can redistribute it and#or modify #
# it under the terms of the GNU General Public License as published by #
# the Free Software Foundation; either version 2 of the License, or #
diff --git a/lib/editor/spell_check.tcl b/lib/editor/spell_check.tcl
index 7759607..c3901d7 100644
--- a/lib/editor/spell_check.tcl
+++ b/lib/editor/spell_check.tcl
@@ -1,10 +1,13 @@
#!/usr/bin/tclsh
-# Part of MCU 8051 IDE ( http://mcu8051ide.sf.net )
+# Part of MCU 8051 IDE ( http://http://www.moravia-microsystems.com/mcu8051ide )
############################################################################
# Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012 by Martin Ošmera #
# martin.osmera@gmail.com #
# #
+# Copyright (C) 2014 by Moravia Microsystems, s.r.o. #
+# martin.osmera@moravia-microsystems.com #
+# #
# This program is free software; you can redistribute it and#or modify #
# it under the terms of the GNU General Public License as published by #
# the Free Software Foundation; either version 2 of the License, or #
@@ -55,17 +58,17 @@ set _SPELL_CHECK_TCL _
# --------------------------------------------------------------------------
## COMMON
-common spellchecker_enabled 0 ;# Bool: Flag spell checking enabled
-common spellchecker_dictionary {} ;# String: Dictionary to use (e.g. en_US or cs_CZ)
-common spellchecker_process_pid [list] ;# List of Ints: Process identifiers of the spell checker and support processes
-common spellchecker_command_LIFO [list] ;# List: LIFO for commands invoked by spell checker {correct_spelling_cmd wrong_spelling_cmd}
-common spellchecker_RAP_ID {} ;# String: Application name of ``receive_and_print'' for IPC
-common spellchecker_attempts_to_restart 0 ;# Int: Number of failed attempts to restart the spell checker process
-common spellchecker_started_flag ;# None: When this variable is set that means that the spell checker process has been started
-common spellchecker_start_failed 0 ;# Bool: Flag spellchecker_started_flag was set but the spell checker process was not actually started
-common spellchecker_start_timer {} ;# AfterTimer: Watch dog timer for start of of the spell checker process
-common available_dictionaries [list] ;# List of Strings: Dictionaries available to the Hunspell
-common hunspell_process {} ;# Channel: Hunspell process invoked by command open in order to gain list of dictionaries
+ public common spellchecker_enabled 0 ;# Bool: Flag spell checking enabled
+ public common spellchecker_dictionary {} ;# String: Dictionary to use (e.g. en_US or cs_CZ)
+ public common spellchecker_process_pid [list] ;# List of Ints: Process identifiers of the spell checker and support processes
+ public common spellchecker_command_LIFO [list] ;# List: LIFO for commands invoked by spell checker {correct_spelling_cmd wrong_spelling_cmd}
+ public common spellchecker_RAP_ID {} ;# String: Application name of ``receive_and_print'' for IPC
+ public common spellchecker_attempts_to_restart 0 ;# Int: Number of failed attempts to restart the spell checker process
+ public common spellchecker_started_flag ;# None: When this variable is set that means that the spell checker process has been started
+ public common spellchecker_start_failed 0 ;# Bool: Flag spellchecker_started_flag was set but the spell checker process was not actually started
+ public common spellchecker_start_timer {} ;# AfterTimer: Watch dog timer for start of of the spell checker process
+ public common available_dictionaries [list] ;# List of Strings: Dictionaries available to the Hunspell
+ public common hunspell_process {} ;# Channel: Hunspell process invoked by command open in order to gain list of dictionaries
## PRIVATE
private variable spellcheck_line_pre {} ;# String: Content of the line where change_detected_pre was performed
@@ -80,7 +83,7 @@ private variable spellcheck_lock 0 ;# Bool: Inhibit method ``spellcheck_check_a
# { Language_Name Language_Code }
# ...
# }
-common LANGUAGE_CODES_AND_NAMES {
+ public common LANGUAGE_CODES_AND_NAMES {
{{Abkhazian} {ab}} {{Afar} {aa}}
{{Afrikaans} {af}} {{Akan} {ak}}
{{Albanian} {sq}} {{Amharic} {am}}
@@ -198,7 +201,7 @@ common LANGUAGE_CODES_AND_NAMES {
# { Country_Name Country_Code Flag_File_Name_Without_Extension }
# ...
# }
-common COUNTRY_CODES_AND_FLAGS {
+ public common COUNTRY_CODES_AND_FLAGS {
{{Afghanistan} AF Afghanistan}
{{Åland Islands} AX {}}
{{Albania} AL Albania}
generated by cgit v1.2.3 (git 2.25.1) at 2024-04-30 21:19:29 +0000