Changeset 121


Ignore:
Timestamp:
Dec 4, 2009 5:00:45 PM (11 years ago)
Author:
toby
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/notebook.tcl

    • Property rcs:date changed from 1999/11/15 14:32:48 to 1999/11/17 22:06:21
    • Property rcs:rev changed from 1.1 to 1.2
    • Property rcs:lines set to +6 -1
    r116 r121  
    66#        deactivate tabs for notebook pages that have "-state disabled"
    77#        define a -command configuration option
     8#        define a -title configuration option
    89#
    910# Copyright (C) 1996,1997,1998 D. Richard Hipp
     
    112113  foreach p $Notebook($w,pages) {
    113114    set Notebook($w,p$cnt,x5) $x
    114     set id [$w create text 0 0 -text $p -anchor nw -tags "p$cnt t$cnt"]
     115    if [catch {set Notebook($w,c$cnt,title)}] {set Notebook($w,c$cnt,title) $p}
     116    set id [$w create text 0 0 -text $Notebook($w,c$cnt,title) -anchor nw -tags "p$cnt t$cnt"]
    115117    set bbox [$w bbox $id]
    116118    set width [lindex $bbox 2]
     
    234236        set Notebook($w,c$i,command) $value
    235237      }
     238      -title {
     239        set Notebook($w,c$i,title) $value
     240      }
    236241      -onexit {
    237242        set Notebook($w,p$i,onexit) $value
Note: See TracChangeset for help on using the changeset viewer.