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/simulator/interruptmonitor.tcl | |
| parent | 47aa8b00b2b11df13a100489e0f904a4947177ef (diff) | |
New upstream version 1.4.9
Diffstat (limited to 'lib/simulator/interruptmonitor.tcl')
| -rw-r--r-- | lib/simulator/interruptmonitor.tcl | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/lib/simulator/interruptmonitor.tcl b/lib/simulator/interruptmonitor.tcl index 510b070..6ab3335 100644 --- a/lib/simulator/interruptmonitor.tcl +++ b/lib/simulator/interruptmonitor.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,34 +36,34 @@ set _INTERRUPTMONITOR_TCL _ class InterruptMonitor { ## COMMON - common geometry ${::CONFIG(INTR_MON_GEOMETRY)} ;# Last window geometry - common intr_mon_count 0 ;# Counter of intances - common bg_color {#0088FF} ;# Color for highlighted background + public common geometry ${::CONFIG(INTR_MON_GEOMETRY)} ;# Last window geometry + public common intr_mon_count 0 ;# Counter of intances + public common bg_color {#0088FF} ;# Color for highlighted background # Small header font - common header_font [font create \ + public common header_font [font create \ -size [expr {int(-17 * $::font_size_factor)}] \ -weight bold \ -family {helvetica} \ ] # Big header font - common header_font_big [font create \ + public common header_font_big [font create \ -size [expr {int(-21 * $::font_size_factor)}] \ -weight bold \ -family {helvetica} \ ] # Common label font - common lbl_font [font create \ + public common lbl_font [font create \ -size [expr {int(-12 * $::font_size_factor)}] \ -family {helvetica} \ ] # Font for value labels - common val_font [font create \ + public common val_font [font create \ -size [expr {int(-12 * $::font_size_factor)}] \ -weight bold \ -family {helvetica} \ ] # Font for value labels - underline - common val_font_under [font create \ + public common val_font_under [font create \ -size [expr {int(-12 * $::font_size_factor)}] \ -weight bold \ -family {helvetica} \ |