[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