diff options
| author | Ian Roxborough <irox@redhat.com> | 2001-09-09 19:49:03 +0000 |
|---|---|---|
| committer | Ian Roxborough <irox@redhat.com> | 2001-09-09 19:49:03 +0000 |
| commit | 57e8350a3895a1579b77cc134d6d7d49b056678e (patch) | |
| tree | 7584c16f5407dd1371b8290109b3b822067afd5a /itcl/iwidgets3.0.0/generic/notebook.itk | |
| parent | 7467241ff2a5cd6da7bbecb7111fc0dc3211c7de (diff) | |
| download | gdb-57e8350a3895a1579b77cc134d6d7d49b056678e.tar.gz | |
Itcl import for Tcl/Tk8.3 upgradeITCL_TCL_8_3
Diffstat (limited to 'itcl/iwidgets3.0.0/generic/notebook.itk')
| -rw-r--r-- | itcl/iwidgets3.0.0/generic/notebook.itk | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/itcl/iwidgets3.0.0/generic/notebook.itk b/itcl/iwidgets3.0.0/generic/notebook.itk index 78a470c44e8..a83a7984933 100644 --- a/itcl/iwidgets3.0.0/generic/notebook.itk +++ b/itcl/iwidgets3.0.0/generic/notebook.itk @@ -764,7 +764,7 @@ body iwidgets::Notebook::_deletePages { fromPage toPage } { # If we deleted a selected page set our selection to none if { $_currPage >= $fromPage && $_currPage <= $toPage } { - set $_currPage -1 + set _currPage -1 } # make sure _currPage stays in sync with new numbering... |