diff options
Diffstat (limited to 'lib/configdialogues')
-rw-r--r-- | lib/configdialogues/compiler_config.tcl | 6 | ||||
-rw-r--r-- | lib/configdialogues/configdialogues.tcl | 5 | ||||
-rw-r--r-- | lib/configdialogues/custom_commands_config.tcl | 5 | ||||
-rw-r--r-- | lib/configdialogues/editor_config.tcl | 18 | ||||
-rw-r--r-- | lib/configdialogues/global_config.tcl | 5 | ||||
-rw-r--r-- | lib/configdialogues/rightpanel_config.tcl | 5 | ||||
-rw-r--r-- | lib/configdialogues/shortcuts_config.tcl | 5 | ||||
-rw-r--r-- | lib/configdialogues/simulator_config.tcl | 5 | ||||
-rw-r--r-- | lib/configdialogues/terminal_config.tcl | 5 | ||||
-rw-r--r-- | lib/configdialogues/toolbar_config.tcl | 5 |
10 files changed, 52 insertions, 12 deletions
diff --git a/lib/configdialogues/compiler_config.tcl b/lib/configdialogues/compiler_config.tcl index 2f261ea..bcadabc 100644 --- a/lib/configdialogues/compiler_config.tcl +++ b/lib/configdialogues/compiler_config.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 # @@ -77,6 +80,7 @@ namespace eval compiler { variable primary_tab_asm ;# Widget: Tab "Assembly language" variable primary_tab_c ;# Widget: Tab "C language" + variable primary_tab_make {} ;# Widget: Tab "MAIN/GNU make" variable assembler_tab_compiler ;# Widget: Tab "Compiler" variable assembler_tab_M8I ;# Widget: Tab "MCU8051IDE" variable assembler_tab_ASEM51 ;# Widget: Tab "ASEM-51" diff --git a/lib/configdialogues/configdialogues.tcl b/lib/configdialogues/configdialogues.tcl index 7dba24e..4c03d3c 100644 --- a/lib/configdialogues/configdialogues.tcl +++ b/lib/configdialogues/configdialogues.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 # diff --git a/lib/configdialogues/custom_commands_config.tcl b/lib/configdialogues/custom_commands_config.tcl index 0919d21..0127583 100644 --- a/lib/configdialogues/custom_commands_config.tcl +++ b/lib/configdialogues/custom_commands_config.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 # diff --git a/lib/configdialogues/editor_config.tcl b/lib/configdialogues/editor_config.tcl index 7936eda..509d559 100644 --- a/lib/configdialogues/editor_config.tcl +++ b/lib/configdialogues/editor_config.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 # @@ -54,6 +57,7 @@ namespace eval editor { variable highlight_tab_asm ;# Widget: Tab "Syntax highlight"/"Assembler" variable highlight_tab_C ;# Widget: Tab "Syntax highlight"/"C language" variable highlight_tab_lst ;# Widget: Tab "Syntax highlight"/"Code listing" + variable tab_created_so_far ;# List: ID of already created tabs. ## Tab "Editor" ## Int: Editor to use @@ -145,6 +149,7 @@ namespace eval editor { variable highlight_tab_asm ;# Widget: Tab "Syntax highlight"/"Assembler" variable highlight_tab_C ;# Widget: Tab "Syntax highlight"/"C language" variable highlight_tab_lst ;# Widget: Tab "Syntax highlight"/"Code listing" + variable tab_created_so_far ;# List: ID of already created tabs. variable apply_button ;# ID of button "Apply" variable anything_modified ;# Bool: Settings changed (stay set to 1 even after APPLY) @@ -195,7 +200,7 @@ namespace eval editor { # Create notebook set nb [ModernNoteBook $win.nb] - set ::configDialogues::editor::tab_created_so_far [list] + set tab_created_so_far [list] # Create Tab "Editor" if {!$::MICROSOFT_WINDOWS} { ;# External editors are not available on Microsoft Windows set editor_tab [$nb insert end editor_tab -text [mc "Editor"] -createcmd {::configDialogues::editor::create_tab editor}] @@ -299,6 +304,7 @@ namespace eval editor { variable highlight_tab_asm ;# Widget: Tab "Syntax highlight"/"Assembler" variable highlight_tab_C ;# Widget: Tab "Syntax highlight"/"C language" variable highlight_tab_lst ;# Widget: Tab "Syntax highlight"/"Code listing" + variable tab_created_so_far ;# List: ID of already created tabs. variable editor_to_use ;# Int: Prefred editor variable sample_text ;# ID of text widget for sample text @@ -309,6 +315,12 @@ namespace eval editor { variable dialog_opened ;# Bool: True if this dialog is already opened variable button_index ;# Button index (for creating many buttons) + if {[lsearch $tab_created_so_far $tab_name] != -1} { + return + } else { + lappend tab_created_so_far $tab_name + } + switch -- $tab_name { {editor} { ;# Tab "Editor selection" set editor_top_frame [frame $editor_tab.top_frame] @@ -1081,7 +1093,7 @@ namespace eval editor { set state normal } foreach tab [list general_tab highlight_tab] { - $nb itemconfigure tab -state $state + $nb itemconfigure $tab -state $state } } diff --git a/lib/configdialogues/global_config.tcl b/lib/configdialogues/global_config.tcl index 66ca346..b173c53 100644 --- a/lib/configdialogues/global_config.tcl +++ b/lib/configdialogues/global_config.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 # diff --git a/lib/configdialogues/rightpanel_config.tcl b/lib/configdialogues/rightpanel_config.tcl index 0cace4e..95845f7 100644 --- a/lib/configdialogues/rightpanel_config.tcl +++ b/lib/configdialogues/rightpanel_config.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 # diff --git a/lib/configdialogues/shortcuts_config.tcl b/lib/configdialogues/shortcuts_config.tcl index 612dc6a..886e42e 100644 --- a/lib/configdialogues/shortcuts_config.tcl +++ b/lib/configdialogues/shortcuts_config.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 # diff --git a/lib/configdialogues/simulator_config.tcl b/lib/configdialogues/simulator_config.tcl index bbfd2b0..e1a7a3c 100644 --- a/lib/configdialogues/simulator_config.tcl +++ b/lib/configdialogues/simulator_config.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 # diff --git a/lib/configdialogues/terminal_config.tcl b/lib/configdialogues/terminal_config.tcl index 732b5cb..3f158bf 100644 --- a/lib/configdialogues/terminal_config.tcl +++ b/lib/configdialogues/terminal_config.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 # diff --git a/lib/configdialogues/toolbar_config.tcl b/lib/configdialogues/toolbar_config.tcl index abddd01..d3f2be7 100644 --- a/lib/configdialogues/toolbar_config.tcl +++ b/lib/configdialogues/toolbar_config.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 # |