Changeset 121

Timestamp:

Dec 4, 2009 5:00:45 PM (14 years ago)

Author:

toby

Message:

# on 1999/11/17 22:06:21, toby did:
define a -title configuration option

File:

• trunk/notebook.tcl (modified) (3 diffs, 3 props)

trunk/notebook.tcl

@@ -6 +6 @@
 #        deactivate tabs for notebook pages that have "-state disabled"
 #        define a -command configuration option 
+#        define a -title configuration option 
 #
 # Copyright (C) 1996,1997,1998 D. Richard Hipp
@@ -112 +113 @@
   foreach p $Notebook($w,pages) {
     set Notebook($w,p$cnt,x5) $x
-    set id [$w create text 0 0 -text $p -anchor nw -tags "p$cnt t$cnt"]
+    if [catch {set Notebook($w,c$cnt,title)}] {set Notebook($w,c$cnt,title) $p}
+    set id [$w create text 0 0 -text $Notebook($w,c$cnt,title) -anchor nw -tags "p$cnt t$cnt"]
     set bbox [$w bbox $id]
     set width [lindex $bbox 2]
@@ -234 +236 @@
         set Notebook($w,c$i,command) $value
       }
+      -title {
+        set Notebook($w,c$i,title) $value
+      }
       -onexit {
         set Notebook($w,p$i,onexit) $value