[Nsclspectcl-cvscommits] SF.net SVN: nsclspectcl:[1995] branches/3.3-008-dev

[<ro...@us...>]

Revision: 1995
          http://nsclspectcl.svn.sourceforge.net/nsclspectcl/?rev=1995&view=rev
Author:   ron-fox
Date:     2012-05-02 17:45:14 +0000 (Wed, 02 May 2012)
Log Message:
-----------
Issue 866 - Prevent multiple start up of the GUI as that led to some nasty 
problems in beta test.

Modified Paths:
--------------
    branches/3.3-008-dev/Gui/folderGui.tcl
    branches/3.3-008-dev/treegui/treeGui.tcl

Modified: branches/3.3-008-dev/Gui/folderGui.tcl
===================================================================
--- branches/3.3-008-dev/Gui/folderGui.tcl	2012-05-02 14:43:23 UTC (rev 1994)
+++ branches/3.3-008-dev/Gui/folderGui.tcl	2012-05-02 17:45:14 UTC (rev 1995)
@@ -1024,6 +1024,9 @@
 
 proc ::FolderGui::startFolderGui {{top {}} {parent {}}} {
     if {$top eq ""} {
+	if {[winfo exists .gui]} {
+	    return;		# Don't start twice.
+	}
 	toplevel .gui -menu .topmenu
 	set parent .gui
 	set ::FolderGui::folderGuiStatusFrame $parent
@@ -1031,6 +1034,9 @@
 	if {$parent eq ""} {
 	    error "folderGUI - providing a top level requires a parent as well"
 	} 
+	if {[winfo exists $parent.b]} {
+	    return;		# Don't start twice.
+	}
 	$top configure -menu .topmenu
 	set ::FolderGui::folderGuiStatusFrame [ttk::frame $top.spectclstatus]
     }

Modified: branches/3.3-008-dev/treegui/treeGui.tcl
===================================================================
--- branches/3.3-008-dev/treegui/treeGui.tcl	2012-05-02 14:43:23 UTC (rev 1994)
+++ branches/3.3-008-dev/treegui/treeGui.tcl	2012-05-02 17:45:14 UTC (rev 1995)
@@ -28,39 +28,42 @@
 package require spectrumTabActions
 package require SpecTclGui
 
-#
-# Build the top level and a notebook:
-#
-toplevel .treegui
-set treenotebook [ttk::notebook .treegui.notebook]
-
-#
-#  Now builds and load the widgets into the  notebook:
-#
-
-
-# First the MC Rewrite widgets:
-
-spectrumTabActions spectrum_tab -widget $treenotebook.spectra
-$treenotebook add $treenotebook.spectra -text Spectra -sticky nsew
-
-parametersTabActions parameters -widget $treenotebook.parameters
-$treenotebook add $treenotebook.parameters -text Parameters -sticky nsew
-
-variableTabActions variables -widget $treenotebook.variables
-$treenotebook add $treenotebook.variables -text Variables -sticky nsew
-
-gateTabActions gates -widget $treenotebook.gates
-$treenotebook add $treenotebook.gates -text Gates -sticky nsew
-
-#  Now the folder gui as a new tab:
-
-::FolderGui::startFolderGui .treegui $treenotebook
-$treenotebook add $::FolderGui::folderGuiBrowser -text Folders -sticky nsew
-
-grid $treenotebook -sticky nsew
-grid $::FolderGui::folderGuiStatusFrame -sticky sew
-
-grid columnconfigure .treegui all -weight 1
-grid rowconfigure    .treegui  0   -weight 1
-grid rowconfigure    .treegui  1   -weight 0
+if {![winfo exists .treegui]}  {	# Don't do it twice!
+    
+    #
+    # Build the top level and a notebook:
+    #
+    toplevel .treegui
+    set treenotebook [ttk::notebook .treegui.notebook]
+    
+    #
+    #  Now builds and load the widgets into the  notebook:
+    #
+    
+    
+    # First the MC Rewrite widgets:
+    
+    spectrumTabActions spectrum_tab -widget $treenotebook.spectra
+    $treenotebook add $treenotebook.spectra -text Spectra -sticky nsew
+    
+    parametersTabActions parameters -widget $treenotebook.parameters
+    $treenotebook add $treenotebook.parameters -text Parameters -sticky nsew
+    
+    variableTabActions variables -widget $treenotebook.variables
+    $treenotebook add $treenotebook.variables -text Variables -sticky nsew
+    
+    gateTabActions gates -widget $treenotebook.gates
+    $treenotebook add $treenotebook.gates -text Gates -sticky nsew
+    
+    #  Now the folder gui as a new tab:
+    
+    ::FolderGui::startFolderGui .treegui $treenotebook
+    $treenotebook add $::FolderGui::folderGuiBrowser -text Folders -sticky nsew
+    
+    grid $treenotebook -sticky nsew
+    grid $::FolderGui::folderGuiStatusFrame -sticky sew
+    
+    grid columnconfigure .treegui all -weight 1
+    grid rowconfigure    .treegui  0   -weight 1
+    grid rowconfigure    .treegui  1   -weight 0
+}
\ No newline at end of file

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.