diff options
Diffstat (limited to 'lib/environment.tcl')
-rw-r--r-- | lib/environment.tcl | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/lib/environment.tcl b/lib/environment.tcl index c64f41b..0f0a7db 100644 --- a/lib/environment.tcl +++ b/lib/environment.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 # @@ -1010,7 +1013,7 @@ proc create_link_tag_in_text_widget {widget} { # @parm Widget widget - Target text widget # @return void proc convert_all_https_to_links {widget} { - foreach re [list {http://[^\s]+} {[\w\.]+@[\w\.]+}] { + foreach re [list {http://[^\s]+} {[\w\-\._]+@[\w\-\._]+}] { set idx {1.0} set end {1.0} set org {1.0} @@ -3022,6 +3025,18 @@ namespace eval toolbar { destroy $wdg } + # Logo of our company: Moravia Microsystems, s.r.o. + pack [ttk::button .mainIconBar.company_logo \ + -image [image create photo \ + -format png \ + -file "${::ROOT_DIRNAME}/icons/other/Moravia_Microsystems.png" \ + ] \ + -style ToolButton.TButton \ + -command {::X::open_uri {http://www.moravia-microsystems.com/}} + ] -side right -padx 15 + DynamicHelp::add .mainIconBar.company_logo \ + -text [mc "Visit webside of the Moravia Microsystems, s.r.o. company."] + # Create hide button pack [Label .mainIconBar.hide_label \ -bd 0 -highlightthickness 0 \ |