[PD-cvs] pd/src desire.tk,1.1.2.511,1.1.2.512

chunlee chunlee at users.sourceforge.net
Wed Oct 18 14:16:45 CEST 2006


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16649

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
..


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.511
retrieving revision 1.1.2.512
diff -C2 -d -r1.1.2.511 -r1.1.2.512
*** desire.tk	16 Oct 2006 22:11:10 -0000	1.1.2.511
--- desire.tk	18 Oct 2006 12:16:42 -0000	1.1.2.512
***************
*** 416,420 ****
  
  #temporary
! set leet 1
  
  proc say {k args} {
--- 416,420 ----
  
  #temporary
! set leet 0
  
  proc say {k args} {
***************
*** 1054,1058 ****
  def View draw {} {}
  
! def View delete {} {$self erase}
  def View erase {} {$self item_delete}
  def View selected?  {}  {return $@selected?}
--- 1054,1066 ----
  def View draw {} {}
  
! def View delete {} {
! 	if {[$self class] == "Canvas"} {
! 		#if {[$self subpatch]} {
! 		#} else {
! 	      	#}
! 	} else {
! 	$self erase
! 	}
! }
  def View erase {} {$self item_delete}
  def View selected?  {}  {return $@selected?}
***************
*** 1161,1169 ****
  		return
  	}
!   switch [tk_messageBox -message [say save_changes?] -icon question -type yesnocancel -default cancel] {
!     yes    {$self save; pd .$self close}
!     no     {            pd .$self close}
!     cancel {}
!   }
  }
  
--- 1169,1177 ----
  		return
  	}
! 	switch [tk_messageBox -message [say save_changes?] -icon question -type yesnocancel -default cancel] {
! 		yes    {$self save; pd .$self close}
! 		no     {            pd .$self close}
! 		cancel {}
! 	}
  }
  
***************
*** 1421,1425 ****
  
  def Canvas gop {} {return $@gop}
! 
  def Canvas get_dimen {} {
  	return [list $@canvasxs $@canvasys]
--- 1429,1433 ----
  
  def Canvas gop {} {return $@gop}
! def Canvas subpatch {} {return $@subpatch}
  def Canvas get_dimen {} {
  	return [list $@canvasxs $@canvasys]
***************
*** 2567,2571 ****
  def Canvas popup_help {} {global main; $main class_browser}
  
! def Canvas popup_open {} {set @mapped 1; pd .$self map 1; $self init_window; $self redraw}
  
  def Canvas popup {id x y} {
--- 2575,2585 ----
  def Canvas popup_help {} {global main; $main class_browser}
  
! def Canvas popup_open {} {
! 	set @mapped 1
! 	pd .$self vis 1
! 	pd .$self map 1
! 	$self init_window
! 	$self redraw
! }
  
  def Canvas popup {id x y} {





More information about the Pd-cvs mailing list