diff options
Diffstat (limited to 'lib/pale/leddisplay.tcl')
| -rw-r--r-- | lib/pale/leddisplay.tcl | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/lib/pale/leddisplay.tcl b/lib/pale/leddisplay.tcl index 44cc7ad..d5a8a7f 100644 --- a/lib/pale/leddisplay.tcl +++ b/lib/pale/leddisplay.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 # @@ -41,19 +44,19 @@ class LedDisplay { inherit VirtualHWComponent # Font: Font to be used in the panel -- bold - common cb_font [font create \ + public common cb_font [font create \ -weight bold \ -size [expr {int(-10 * $::font_size_factor)}] \ -family {helvetica} \ ] - common COMPONENT_NAME "LED Display" ;# Name of this component - common CLASS_NAME "LedDisplay" ;# Name of this class - common COMPONENT_ICON {leddisplay} ;# Icon for this panel (16x16) + public common COMPONENT_NAME "LED Display" ;# Name of this component + public common CLASS_NAME "LedDisplay" ;# Name of this class + public common COMPONENT_ICON {leddisplay} ;# Icon for this panel (16x16) ## Colors for display segments # There are 6 lists (red orange yellow green blue purple) # and each of them contain 3 colors (semi-dim bright dim) - common COLORS { + public common COLORS { {#AA5555 #FF0000} {#AAAA55 #FF8800} {#AAAA55 #FFFF00} @@ -62,10 +65,10 @@ class LedDisplay { {#5555AA #0000FF} {#AA55AA #8800FF} } - common DIMMED_COLOR {#BBBBBB} + public common DIMMED_COLOR {#BBBBBB} # Configuration menu - common CONFMENU { + public common CONFMENU { {cascade {Common electrode} 7 "diode" .ca false 1 { {radiobutton "Common anode" {} ::LedDisplay::cfg_common_anode 1 |