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/bottompanel/messages.tcl | |
| parent | 47aa8b00b2b11df13a100489e0f904a4947177ef (diff) | |
New upstream version 1.4.9
Diffstat (limited to 'lib/bottompanel/messages.tcl')
| -rw-r--r-- | lib/bottompanel/messages.tcl | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lib/bottompanel/messages.tcl b/lib/bottompanel/messages.tcl index e70c0a2..bb945ba 100644 --- a/lib/bottompanel/messages.tcl +++ b/lib/bottompanel/messages.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 # @@ -34,21 +37,21 @@ set _MESSAGES_TCL _ class Messages { ## COMMON - common set_shortcuts {} ;# Currently set shortcut bindigs for messages text - common shortcuts_cat {messages} ;# Key shortcut categories related to messages text + public common set_shortcuts {} ;# Currently set shortcut bindigs for messages text + public common shortcuts_cat {messages} ;# Key shortcut categories related to messages text # Normal font for messages text - common messages_normal_font [font create \ + public common messages_normal_font [font create \ -family $::DEFAULT_FIXED_FONT \ -size [expr {int(-12 * $::font_size_factor)}] \ ] # Bold font for messages text - common messages_bold_font [font create \ + public common messages_bold_font [font create \ -family $::DEFAULT_FIXED_FONT \ -size [expr {int(-12 * $::font_size_factor)}] \ -weight bold \ ] # Definition of popup menu for messages text - common MESSAGESMENU { + public common MESSAGESMENU { {command {Select all} {Ctrl+A} 0 "select_all_messages_text" {} "Select all text in this TextBox"} {command {Copy} {Ctrl+C} 0 "copy_messages_text" |