[PD-cvs] pd/src desire.tk,1.1.2.600.2.221,1.1.2.600.2.222

Mathieu Bouchard matju at users.sourceforge.net
Thu Jul 12 03:10:07 CEST 2007


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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fixed refresh of choices in Dialogs


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.221
retrieving revision 1.1.2.600.2.222
diff -C2 -d -r1.1.2.600.2.221 -r1.1.2.600.2.222
*** desire.tk	11 Jul 2007 22:17:20 -0000	1.1.2.600.2.221
--- desire.tk	12 Jul 2007 01:10:02 -0000	1.1.2.600.2.222
***************
*** 1469,1479 ****
  def Client audio_on  {} {netsend [list pd dsp 1]}
  def Client audio_off {} {netsend [list pd dsp 0]}
! def Client        keyboard_view {} { KeyboardDialog new $::event_history}
! def Client       clipboard_view {} {ClipboardDialog new $::clipboard}
! def Client command_history_view {} {     ListDialog new $::command_history [say command_history_view]}
! def Client   event_history_view {} {
! 	set dialog [ListDialog new   $::event_history [say event_history_view]]
! 	[$dialog listbox] configure -font {Mono -10}
! 	return $dialog}
  def Client do_what_i_mean {} {wonder}
  
--- 1469,1476 ----
  def Client audio_on  {} {netsend [list pd dsp 1]}
  def Client audio_off {} {netsend [list pd dsp 0]}
! def Client        keyboard_view {} {    KeyboardDialog new $::event_history}
! def Client       clipboard_view {} {   ClipboardDialog new $::clipboard}
! def Client command_history_view {} {        ListDialog new $::command_history [say command_history_view]}
! def Client   event_history_view {} {EventHistoryDialog new $::event_history}
  def Client do_what_i_mean {} {wonder}
  
***************
*** 5288,5292 ****
  	set textvar ${var}2
  	set @$textvar [say [lindex $@$tmp $val]]
! 	set @$var $val
  	$self do_auto_apply
  }
--- 5285,5289 ----
  	set textvar ${var}2
  	set @$textvar [say [lindex $@$tmp $val]]
! 	super $frame $var $part $val
  	$self do_auto_apply
  }
***************
*** 7145,7148 ****
--- 7142,7146 ----
  	#if {$say} {set text [say $part]} else {set text $part}
  	set @$var $val
+ 	$frame.butt configure -text [say $part]
  }
  
***************
*** 7602,7606 ****
  }
  
! #this retrives the values set in the editor
  def ClientPrefsDialog get_val {} {
  	global ddrc_options look key accels
--- 7600,7604 ----
  }
  
! #this retrieves the values set in the editor
  def ClientPrefsDialog get_val {} {
  	global ddrc_options look key accels
***************
*** 7629,7636 ****
  				}
  			}
! 			toggle {set look($class:$name) $@$name}
! 			font {set look(View:font) $@str}
  			integer {set look($class:$name) $@$name}
! 			choice {set look($class:$name) $@$name}
  		}
  	}
--- 7627,7634 ----
  				}
  			}
! 			toggle { set look($class:$name) $@$name}
  			integer {set look($class:$name) $@$name}
! 			choice  {set look($class:$name) $@$name}
! 			font {set look(View:font) $@str}
  		}
  	}
***************
*** 7888,7903 ****
  	set @history $history
  	wm title .$self $title
! 	pack [listbox .$self.list -yscrollcommand ".$self.scroll set" -width 72 -height 20] -side left -fill both -expand yes
! 	pack [scrollbar .$self.scroll -command ".$self.list yview"] -side right -fill y
  	$@history subscribe $self
  	$self notice
  }
  
! def ListDialog listbox {} {return .$self.list}
  
  def ListDialog notice {args} {
! 	.$self.list delete 0 end
! 	foreach e [$@history list] {.$self.list insert end $e}
! 	.$self.list see end
  }
  
--- 7886,7904 ----
  	set @history $history
  	wm title .$self $title
! 	frame .$self.1
! 	pack [listbox .$self.1.list -yscrollcommand ".$self.1.scroll set" -width 72 -height 20] -side left -fill both -expand yes
! 	pack [scrollbar .$self.1.scroll -command ".$self.1.list yview"] -side right -fill y
! 	pack .$self.1
  	$@history subscribe $self
  	$self notice
  }
  
! def ListDialog listbox {} {return .$self.1.list}
  
  def ListDialog notice {args} {
! 	set w [$self listbox]
! 	$w delete 0 end
! 	foreach e [$@history list] {$w insert end $e}
! 	$w see end
  }
  
***************
*** 7907,7910 ****
--- 7908,7919 ----
  }
  
+ class_new EventHistoryDialog {ListDialog}
+ 
+ def EventHistoryDialog init {history} {
+ 	super $history [say event_history_view]
+ 	pack [checkbutton .$self.hide -text [say hide_key_release]] -fill x
+ 	[$self listbox] configure -font {Mono -10}
+ }
+ 
  #----------------------------------------------------------------
  





More information about the Pd-cvs mailing list