Changeset 989 for trunk

Timestamp:

Apr 8, 2008, 9:49:29 AM (16 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/pager.tcl (modified) (2 diffs)

trunk/gui/scripts/pager.tcl

@@ -54 +54 @@
     public method page {args}
     public method current {args}
+    public method busy { how } 
 
     protected method _layout {}
@@ -631 +632 @@
     }
 }
+
+# ----------------------------------------------------------------------
+# CONSTRUCTOR
+# ----------------------------------------------------------------------
+itcl::body Rappture::Pager::busy { bool } {
+    if { $bool } {
+        blt::busy hold $itk_component(breadcrumbs) 
+        $itk_component(back) configure -state disabled
+    } else { 
+        blt::busy release $itk_component(breadcrumbs) 
+        $itk_component(back) configure -state normal
+    }
+}