Changeset 2579 for trunk/gui/scripts/visviewer.tcl

Timestamp:

Sep 27, 2011, 11:49:19 AM (13 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/visviewer.tcl (modified) (6 diffs)

trunk/gui/scripts/visviewer.tcl

@@ -30 +30 @@
     private variable _initialized 
     private variable _isOpen 0
+    private variable _afterId -1
+
     # Number of milliseconds to wait before idle timeout.
     # If greater than 0, automatically disconnect from the visualization
@@ -56 +58 @@
     private method SendHelper.old {}
     private method CheckConnection {}
+    private method SplashScreen { state } 
 
     protected method SendEcho { channel {data ""} }
@@ -118 +121 @@
         $_parser hide $cmd
     }
-
     #
     # Set up the widgets in the main body
@@ -400 +402 @@
         flush $_sid
     }
+    after cancel $_afterId 
+    set _afterId [after 500 [itcl::code $this SplashScreen on]]
     if 0 {
     if { ![CheckConnection] } {
@@ -415 +419 @@
 #
 itcl::body Rappture::VisViewer::ReceiveBytes { size } {
+    SplashScreen off
     if { ![CheckConnection] } {
         return 0
@@ -539 +544 @@
     }
 }
+
+itcl::body Rappture::VisViewer::SplashScreen { state } {
+    after cancel $_afterId
+    set _afterId -1
+    if { $state } {
+        if { [winfo exists $itk_component(plotarea).view.splash] } {
+            return
+        }
+        label $itk_component(plotarea).view.splash -text "Please wait"
+        pack $itk_component(plotarea).view.splash -expand yes -anchor c
+    } else {
+        if { ![winfo exists $itk_component(plotarea).view.splash] } {
+            return
+        }
+        destroy $itk_component(plotarea).view.splash
+    }
+}
+