summaryrefslogtreecommitdiff
path: root/lib/pale/ds1620.tcl
diff options
context:
space:
mode:
authorAndrej Shadura <andrewsh@debian.org>2018-05-08 16:00:42 +0200
committerAndrej Shadura <andrewsh@debian.org>2018-05-08 16:00:42 +0200
commit2fc4dd61e5607569909548975eaf54cef87be96e (patch)
tree19417eb5639eacffcfac6d9de53e0ab464010503 /lib/pale/ds1620.tcl
parent47aa8b00b2b11df13a100489e0f904a4947177ef (diff)
New upstream version 1.4.9
Diffstat (limited to 'lib/pale/ds1620.tcl')
-rw-r--r--lib/pale/ds1620.tcl29
1 files changed, 16 insertions, 13 deletions
diff --git a/lib/pale/ds1620.tcl b/lib/pale/ds1620.tcl
index 7c1df63..5fd15ae 100644
--- a/lib/pale/ds1620.tcl
+++ b/lib/pale/ds1620.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 #
@@ -40,23 +43,23 @@ class Ds1620 {
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 -- bold
- common small_font [font create \
+ public common small_font [font create \
-size [expr {int(-9 * $::font_size_factor)}] \
-family {helvetica} \
]
- common COMPONENT_NAME "DS1620 temperature sensor" ;# Name of this component
- common CLASS_NAME "Ds1620" ;# Name of this class
- common COMPONENT_ICON {ds1620} ;# Icon for this panel (16x16)
+ public common COMPONENT_NAME "DS1620 temperature sensor" ;# Name of this component
+ public common CLASS_NAME "Ds1620" ;# Name of this class
+ public common COMPONENT_ICON {ds1620} ;# Icon for this panel (16x16)
# Configuration menu
- common CONFMENU {
+ public common CONFMENU {
{checkbutton "Disable delays" {} {::Ds1620::_no_delays}
1 0 0 {no_delays_changed}
""}
@@ -77,12 +80,12 @@ class Ds1620 {
}
#
- common STATUS_BITS {DONE THF TLF NVB 1 0 CPU 1SHOT}
- common MAX_LOG_LENGTH 100 ;# Int: Maximum number of row in the log window
- common SIGNAL_NAMES {DQ CLK RST TH TL TCOM}
- common EEPROM_WRITE_CYCLE_TIME 10000
- common T_CONVERSION_TIME_MS 750
- common _no_delays 0
+ public common STATUS_BITS {DONE THF TLF NVB 1 0 CPU 1SHOT}
+ public common MAX_LOG_LENGTH 100 ;# Int: Maximum number of row in the log window
+ public common SIGNAL_NAMES {DQ CLK RST TH TL TCOM}
+ public common EEPROM_WRITE_CYCLE_TIME 10000
+ public common T_CONVERSION_TIME_MS 750
+ public common _no_delays 0
private variable input_error
private variable input_error_desc