Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4460
Modified Files: Tag: desiredata desire.tk Log Message: fixed dialog resizable
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.283 retrieving revision 1.1.2.600.2.284 diff -C2 -d -r1.1.2.600.2.283 -r1.1.2.600.2.284 *** desire.tk 4 Aug 2007 20:12:31 -0000 1.1.2.600.2.283 --- desire.tk 4 Aug 2007 22:24:37 -0000 1.1.2.600.2.284 *************** *** 1606,1610 ****
def Canvas init {mess} { - lappend ::window_list $self ;# wrong - should go in init_window set @mapped 0 set @gop 0 --- 1606,1609 ---- *************** *** 1746,1749 **** --- 1745,1749 ---- # should be called once and only from init def Canvas init_window {} { + lappend ::window_list $self ;# wrong - should go in init_window set win .$self set c [$self widget] *************** *** 1756,1760 **** set butts [[ButtonBar new $self] widget] # turn buttonbar on/off - puts "buttonbar: [$self look buttonbar]" if {[$self look buttonbar]} { if {[catch {pack $butts -side top -fill x -expand no}]} { --- 1756,1759 ---- *************** *** 5372,5375 **** --- 5371,5375 ---- bind $f <Button> "after 1 $self do_auto_apply" set @auto_apply 0 + $self none_resizable }
*************** *** 7255,7258 **** --- 7255,7259 ---- pack $f.preview -side top -pady 10 focus $f.list.box + $self none_resizable }
*************** *** 7379,7385 **** bind .$self <Tab> "$self traversal %K %W forward" bind .$self <Control-Tab> "$self traversal %K %W back" ! wm resizable .$self 0 0 }
def Dialog traversal {k w direction} { switch $direction { --- 7380,7388 ---- bind .$self <Tab> "$self traversal %K %W forward" bind .$self <Control-Tab> "$self traversal %K %W back" ! }
+ def Dialog none_resizable {} {wm resizable .$self 0 0} + def Dialog traversal {k w direction} { switch $direction { *************** *** 7440,7443 **** --- 7443,7447 ---- set @nbs $@nb pack .$@nb -expand 1 -fill both + $self none_resizeable } def Notebook delete {} {super}