diff options
author | Andrej Shadura <andrewsh@debian.org> | 2018-05-08 16:00:42 +0200 |
---|---|---|
committer | Andrej Shadura <andrewsh@debian.org> | 2018-05-08 16:00:42 +0200 |
commit | 2fc4dd61e5607569909548975eaf54cef87be96e (patch) | |
tree | 19417eb5639eacffcfac6d9de53e0ab464010503 /lib/pale/simplekeypad.tcl | |
parent | 47aa8b00b2b11df13a100489e0f904a4947177ef (diff) |
New upstream version 1.4.9
Diffstat (limited to 'lib/pale/simplekeypad.tcl')
-rw-r--r-- | lib/pale/simplekeypad.tcl | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/lib/pale/simplekeypad.tcl b/lib/pale/simplekeypad.tcl index 0889106..0500fb5 100644 --- a/lib/pale/simplekeypad.tcl +++ b/lib/pale/simplekeypad.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,23 +44,23 @@ class SimpleKeyPad { 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} \ ] # Font: Font to be used in the panel -- normal weight - common cb_font_n [font create \ + public common cb_font_n [font create \ -size [expr {int(-10 * $::font_size_factor)}] \ -family {helvetica} \ ] - common COMPONENT_NAME "Simple Keypad" ;# Name of this component - common CLASS_NAME "SimpleKeyPad" ;# Name of this class - common COMPONENT_ICON {simplekeypad} ;# Icon for this panel (16x16) + public common COMPONENT_NAME "Simple Keypad" ;# Name of this component + public common CLASS_NAME "SimpleKeyPad" ;# Name of this class + public common COMPONENT_ICON {simplekeypad} ;# Icon for this panel (16x16) # Configuration menu - common CONFMENU { + public common CONFMENU { {checkbutton "Radio buttons" {} {::SimpleKeyPad::menu_radio_buttons} 1 0 0 {value_radio_buttons_changed} ""} |