diff options
Diffstat (limited to 'lib/rightpanel/subprograms.tcl')
-rw-r--r-- | lib/rightpanel/subprograms.tcl | 15 |
1 files changed, 9 insertions, 6 deletions
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} \ |