[PD-cvs] pd/src desire.tk,1.1.2.435,1.1.2.436
Mathieu Bouchard
matju at users.sourceforge.net
Thu Aug 31 20:20:50 CEST 2006
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}
More information about the Pd-cvs
mailing list