Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26462
Modified Files: Tag: devel_0_39 desire.tk Log Message: new methods in Canvas: title= update_title raise now displays something in the canvas' window title
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.435 retrieving revision 1.1.2.436 diff -C2 -d -r1.1.2.435 -r1.1.2.436 *** desire.tk 31 Aug 2006 17:22:56 -0000 1.1.2.435 --- desire.tk 31 Aug 2006 18:20:47 -0000 1.1.2.436 *************** *** 213,218 **** class_new Clipboard {Observable Thing} def Clipboard init {{value ""}} {super; $self value= $value; set @copy_count 0} - def Clipboard copy_times= {c} {set @copy_count $c} - def Clipboard copy_times {} {return $@copy_count}
# uses system clipboard --- 213,216 ---- *************** *** 1122,1125 **** --- 1120,1124 ----
def Canvas close {} { + if {$@subpatch} {pd .$self close; return} switch [tk_messageBox -message [say save_changes?] -icon question -type yesnocancel -default cancel] { yes {$self save; pd .$self close} *************** *** 1280,1285 **** #set @wire_hilite {} set @history $history ! if {[info exists canvas(file)]} {set @file $canvas(file);set canvas(file) ""} else {set @file ""} ! if {[info exists canvas(directory)]} {set @directory $canvas(directory); set canvas(directory) ""} else {set @directory ""} $self subscribe $manager $self changed --- 1279,1291 ---- #set @wire_hilite {} set @history $history ! if {[info exists canvas(file)]} { ! set @file $canvas(file) ! unset canvas(file) ! } else {set @file ""} ! if {[info exists canvas(directory)]} { ! set @directory $canvas(directory) ! unset canvas(directory) ! } else {set @directory ""} ! $self update_title $self subscribe $manager $self changed *************** *** 1788,1792 ****
#-----------------------------------------------------------------------------------# ! def Canvas window_title {title} {wm title .$self $title}
def Canvas children {} {return $@children} --- 1794,1813 ----
#-----------------------------------------------------------------------------------# ! def Canvas title= {title} {wm title .$self $title} ! def Canvas update_title {} { ! set t "$@directory/$@file" ! if {[$self modified?]} {append t "(*)"} ! $self title= $t ! } ! ! # UNIMPLEMENTED: this should indicate whether the patch in pd is different from the last saved patch ! def Canvas modified? {} {return 0} ! ! def Canvas raise {} { ! set w [$self window] ! $w raise ! $w focus ! $w deiconify ! }
def Canvas children {} {return $@children}