[PD-cvs] pd/src desire.tk,1.1.2.473,1.1.2.474

Mathieu Bouchard matju at users.sourceforge.net
Mon Sep 18 03:29:53 CEST 2006


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

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.473
retrieving revision 1.1.2.474
diff -C2 -d -r1.1.2.473 -r1.1.2.474
*** desire.tk	16 Sep 2006 01:22:06 -0000	1.1.2.473
--- desire.tk	18 Sep 2006 01:29:50 -0000	1.1.2.474
***************
*** 1165,1170 ****
  def Client audio_on  {} {pd pd dsp 1}
  def Client audio_off {} {pd pd dsp 0}
! def Client clipboard_view {} {ClipboardDialog new}
! def Client   history_view {} {global history; HistoryDialog new $history}
  def Client do_what_i_mean {} {wonder}
  
--- 1165,1170 ----
  def Client audio_on  {} {pd pd dsp 1}
  def Client audio_off {} {pd pd dsp 0}
! def Client clipboard_view {} {global clipboard; ClipboardDialog new $clipboard}
! def Client   history_view {} {global history;   HistoryDialog   new $history}
  def Client do_what_i_mean {} {wonder}
  
***************
*** 3386,3390 ****
  				set _($self:isnew) [expr [llength $mess] == 4]
  			}
- 			#if {$isnew} {$_class new_as $self}
  			if {$isnew} {$_class new_as $self $mess} else {$self reinit $mess}
  			switch -- $class {
--- 3386,3389 ----
***************
*** 5520,5524 ****
  		incr i
  	}
! 	pack $f.buttonframe -side bottom -fill x -expand 1 -pady 2m
  	pack $f.buttonsep   -side bottom -fill x
  	wm protocol $f WM_DELETE_WINDOW "$self cancel"
--- 5519,5523 ----
  		incr i
  	}
! 	pack $f.buttonframe -side bottom -fill x -pady 2m
  	pack $f.buttonsep   -side bottom -fill x
  	wm protocol $f WM_DELETE_WINDOW "$self cancel"
***************
*** 6205,6209 ****
  	pack [text .$self.text -yscrollcommand ".$self.scroll set" -width 72
  	     ] -side left -fill both -expand yes
! 	pack [scrollbar .$self.scroll -command ".$self.text yview"] -side right -fill y
  #12345678901234567890123456789012345678901234567890123456789012345678901 <- 72 chars
  	.$self.text insert 0.0 "\
--- 6204,6208 ----
  	pack [text .$self.text -yscrollcommand ".$self.scroll set" -width 72
  	     ] -side left -fill both -expand yes
! 	pack [scrollbar .$self.scroll -command ".$self.text yview"] -side right -fill y -expand yes
  #12345678901234567890123456789012345678901234567890123456789012345678901 <- 72 chars
  	.$self.text insert 0.0 "\
***************
*** 6282,6287 ****
  }
  
- # ClipboardDialog new $clipboard
- 
  #----------------------------------------------------------------
  class_new HistoryDialog {Dialog}
--- 6281,6284 ----





More information about the Pd-cvs mailing list