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/utilities/table_of_instructions.tcl | |
parent | 47aa8b00b2b11df13a100489e0f904a4947177ef (diff) |
New upstream version 1.4.9
Diffstat (limited to 'lib/utilities/table_of_instructions.tcl')
-rw-r--r-- | lib/utilities/table_of_instructions.tcl | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/lib/utilities/table_of_instructions.tcl b/lib/utilities/table_of_instructions.tcl index b6587b2..3dc1597 100644 --- a/lib/utilities/table_of_instructions.tcl +++ b/lib/utilities/table_of_instructions.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) 2011 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 # @@ -32,30 +35,30 @@ set _TABLE_OF_INSTRUCTIONS_TCL _ # -------------------------------------------------------------------------- class TableOfInstructions { - common tbl_of_inst_count 0 ;# Int: Counter of object instances - common oprs_color {#00DD00} ;# RGB Color: Number of operands - common len_color {#00AA55} ;# RGB Color: Instruction length - common time_color {#8800DD} ;# RGB Color: Time to execute - common ins_color {#0000DD} ;# RGB Color: Instruction mnemonics + public common tbl_of_inst_count 0 ;# Int: Counter of object instances + public common oprs_color {#00DD00} ;# RGB Color: Number of operands + public common len_color {#00AA55} ;# RGB Color: Instruction length + public common time_color {#8800DD} ;# RGB Color: Time to execute + public common ins_color {#0000DD} ;# RGB Color: Instruction mnemonics # Font for instruction name - common instruction_font [font create \ + public common instruction_font [font create \ -family {helvetica} \ -size [expr {int(-10 * $::font_size_factor)}] \ ] # Font for numbers below the instruction name - common number_font [font create \ + public common number_font [font create \ -family {helvetica} \ -size [expr {int(-10 * $::font_size_factor)}] \ -weight {bold} \ ] # Font for labels in details frame (normal) - common details_n_font [font create \ + public common details_n_font [font create \ -family {helvetica} \ -size [expr {int(-12 * $::font_size_factor)}] \ ] # Font for labels in details frame (bold) - common details_b_font [font create \ + public common details_b_font [font create \ -family {helvetica} \ -size [expr {int(-12 * $::font_size_factor)}] \ -weight {bold} \ |