New upstream version 1.4.9

5 files changed, 49 insertions, 34 deletions

diff --git a/lib/rightpanel/hwmanager.tcl b/lib/rightpanel/hwmanager.tcl
index 133d821..0e66fc8 100644
--- a/lib/rightpanel/hwmanager.tcl
+++ b/lib/rightpanel/hwmanager.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     #
@@ -33,14 +36,14 @@ set _HWMANAGER_TCL _
 
 class HwManager {
 	## COMMON
-	common PLUGIN_SEARCH_PATHS {
+	public common PLUGIN_SEARCH_PATHS {
 		/usr/share/mcu8051ide/hwplugins
 		/usr/local/share/mcu8051ide/hwplugins
 	}
 	if {$::MICROSOFT_WINDOWS} {
 		set PLUGIN_SEARCH_PATHS ${::INSTALLATION_DIR}/hwplugins
 	}
-	common inst_plg_count			0	;# Int: Number of installed plugins
+	public common inst_plg_count			0	;# Int: Number of installed plugins
 
 	## PRIVATE
 	private variable parent				;# Widget: parent widget
diff --git a/lib/rightpanel/instructiondetails.tcl b/lib/rightpanel/instructiondetails.tcl
index 88f0206..711ada7 100644
--- a/lib/rightpanel/instructiondetails.tcl
+++ b/lib/rightpanel/instructiondetails.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     #
@@ -35,9 +38,9 @@ class InstructionDetails {
 
 	## COMMON
 	 # Conter of instances
-	common instd_count		0
+	public common instd_count		0
 	 # Font for instruction details
-	common instruction_font	[font create			\
+	public common instruction_font	[font create			\
 		-size [expr {int(-12 * $::font_size_factor)}]	\
 		-family $::DEFAULT_FIXED_FONT			\
 	]
@@ -46,7 +49,7 @@ class InstructionDetails {
 	  #	{tag_name foreground_color ?bold_or_italic?}
 	  #	...
 	  # }
-	common instruction_tags {
+	public common instruction_tags {
 		{tag_code8	#00AA00	0}
 		{tag_code11	#00AA33	0}
 		{tag_code16	#00AA55	0}
@@ -75,8 +78,8 @@ class InstructionDetails {
 	 # 	    .		 .
 	 # 	    .		 .
 	 # }
-	common HELP_FOR_DIRECTIVES {}
-	common HELP_FOR_DIRECTIVES_RAW {
+	public common HELP_FOR_DIRECTIVES {}
+	public common HELP_FOR_DIRECTIVES_RAW {
 		elseif		{Conditional assembly\n\nSyntax:\n  ELSEIF <expr>\n\nExample:\n  IF(2 * 4 - CND)\n    MOV  A, #20h\n  ELSEIF SOMETHING_ELSE\n    MOV  A, #40h\n  ENDIF\n\n}
 		ifn		{IF Not, conditional assembly\n\nSyntax:\n  IFN <expr>\n\nExample:\n  IF(2 * 4 - CND)\n    MOV  A, #20h\n  ELSE\n    MOV  A, #40h\n  ENDIF\n\n}
 		elseifn		{ELSE IF Not\n\nSyntax:\n  ELSEIFN <expr>\n\nExample:\n  IF(2 * 4 - CND)\n    MOV  A, #20h\n  ELSEIFN SOMETHING_ELSE\n    MOV  A, #40h\n  ENDIF\n\n}
@@ -199,7 +202,7 @@ class InstructionDetails {
 	 #		{affected flags in order: C OV AC, for instance "{0 X 1}"}
 	 #	}
 	 # }
-	common INSTRUCTION_DESCRIPTION {
+	public common INSTRUCTION_DESCRIPTION {
 		{ADD	A, Rn} {
 			{Add register to Accumulator}
 			{Arithmetic Operations}
diff --git a/lib/rightpanel/regwatches.tcl b/lib/rightpanel/regwatches.tcl
index 6760cab..2ff6d8a 100644
--- a/lib/rightpanel/regwatches.tcl
+++ b/lib/rightpanel/regwatches.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     #
@@ -34,27 +37,27 @@ set _REGWATCHES_TCL _
 class RegWatches {
 
 	## COMMON
-	common watches_set_shortcuts	{}		;# Currently set shortcuts for register watches
-	common watches_shortcuts_cat	{watches}	;# Key shortcut categories related to register watches
+	public common watches_set_shortcuts	{}		;# Currently set shortcuts for register watches
+	public common watches_shortcuts_cat	{watches}	;# Key shortcut categories related to register watches
 	# Counter of embedded entry widgets in register watches
-	common watch_entry_count	0
+	public common watch_entry_count	0
 	# Conter of instances
-	common regw_count		0
+	public common regw_count		0
 	## Highlighting tags for register watches
 	 # {
 	 #	{tag_name foreground_color ?bold_or_italic?}
 	 #	...
 	 # }
-	common watch_text_tags {
+	public common watch_text_tags {
 		{tag_Baddr	#DD0000	1}
 		{tag_Xaddr	#AA00FF	1}
 		{tag_Eaddr	#00AAFF	1}
 		{tag_addr	#0000DD	1}
 		{tag_name	#8888DD {}}
 	}
-	common regfont [font create -family $::DEFAULT_FIXED_FONT -size [expr {int(-14 * $::font_size_factor)}]]
+	public common regfont [font create -family $::DEFAULT_FIXED_FONT -size [expr {int(-14 * $::font_size_factor)}]]
 	# Popup menu for register watches
-	common WATCHMENU {
+	public common WATCHMENU {
 		{command	{Move top}	{$watches:top}		0	"rightPanel_watch_move_top"
 			{top}		"Move this register watch to the top of list"}
 		{command	{Move up}	{$watches:up}		0	"rightPanel_watch_move_up"
@@ -76,7 +79,7 @@ class RegWatches {
 			"Configure this panel"}
 	}
 	# Configuration menu
-	common CONFMENU {
+	public common CONFMENU {
 		{cascade	"Sort by"		0	""	.sort		false 1 {
 			{command	"Name"		{}	0	"rightPanel_watch_sort_by N"	{}
 				""}
diff --git a/lib/rightpanel/rightpanel.tcl b/lib/rightpanel/rightpanel.tcl
index 81bbb37..c5a95cd 100644
--- a/lib/rightpanel/rightpanel.tcl
+++ b/lib/rightpanel/rightpanel.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     #
@@ -48,17 +51,17 @@ class RightPanel {
 
 	## COMMON
 	 # Background color for selected rows -- light
-	common selection_color		{#EEFFDD}
+	public common selection_color		{#EEFFDD}
 	 # Background color for selected rows -- dark
-	common selection_color_dark	{#DDDDFF}
+	public common selection_color_dark	{#DDDDFF}
 	 # Default font size for text widgets
-	common fontSize		${Editor::fontSize}
+	public common fontSize		${Editor::fontSize}
 	 # Default font family for text widgets
-	common fontFamily	${Editor::fontFamily}
+	public common fontFamily	${Editor::fontFamily}
 	 # Font used in Editor
-	common editor_font	[font create -size -$fontSize -family $fontFamily]
+	public common editor_font	[font create -size -$fontSize -family $fontFamily]
 	 # Definition of popup menu for bookmark list
-	common BOOKMARKMENU {
+	public common BOOKMARKMENU {
 		{command	{Remove}	{$edit:bookmark}	0	"editor_procedure {} Bookmark {}"
 			{button_cancel}	"Add/Remove editor bookmark to/from current line"}
 		{separator}
@@ -71,7 +74,7 @@ class RightPanel {
 			{editdelete}	"Remove all bookmarks from the editor"}
 	}
 	 # Definition of popup menu for breakpoint list
-	common BREAKPOINTMENU {
+	public common BREAKPOINTMENU {
 		{command	{Remove}	{$edit:breakpoint}	0	"editor_procedure {} Breakpoint {}"
 			{button_cancel}	"Add/Remove editor breakpoint to/from current line"}
 		{separator}
@@ -84,7 +87,7 @@ class RightPanel {
 			{editdelete}	"Remove all breakpoints from the editor"}
 	}
 	 # Definition of popup menu for symbols list
-	common SYMBOLSKMENU {}
+	public common SYMBOLSKMENU {}
 
 	## PRIVATE
 	private variable notebook_frame		;# ID of panel main frame
diff --git a/lib/rightpanel/subprograms.tcl b/lib/rightpanel/subprograms.tcl
index c8380cb..28f34e6 100644
--- a/lib/rightpanel/subprograms.tcl
+++ b/lib/rightpanel/subprograms.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     #
@@ -33,25 +36,25 @@ set _SUBPROGRAMS_TCL _
 
 class SubPrograms {
 	## COMMON
-	common fsd_filename	{}	;# Filename choosen by FSD
+	public common fsd_filename	{}	;# Filename choosen by FSD
 	 # Main font for the text widget
-	common main_font	[font create			\
+	public common main_font	[font create			\
 		-family {helvetica}				\
 		-size [expr {int(-14 * $::font_size_factor)}]	\
 	]
 	 # Bold font for the text widget
-	common bold_font	[font create			\
+	public common bold_font	[font create			\
 		-family {helvetica}				\
 		-size [expr {int(-14 * $::font_size_factor)}]	\
 		-weight {bold}					\
 	]
 	 # Font for status bar below the text box
-	common large_font	[font create			\
+	public common large_font	[font create			\
 		-family {helvetica}				\
 		-size [expr {int(-14 * $::font_size_factor)}]	\
 	]
 	 # Bold font for status bar below the text box
-	common large_bold_font	[font create			\
+	public common large_bold_font	[font create			\
 		-family {helvetica}				\
 		-size [expr {int(-14 * $::font_size_factor)}]	\
 		-weight {bold}					\