Changeset 859 for trunk/gui/scripts/pager.tcl

Timestamp:

Jan 25, 2008 2:17:08 PM (16 years ago)

Author:

gah

Message:

check pager for current page

File:

• trunk/gui/scripts/pager.tcl (modified) (1 diff)

trunk/gui/scripts/pager.tcl

@@ -315 +315 @@
                 set _current [lindex $_pages $index]
             } else {
+                if { $name == $_current }  {
+                    return ""
+                }
                 if {$name == ""} {
                     set _current ""