[PD-cvs] pd/src desire.tk,1.1.2.470,1.1.2.471

Mathieu Bouchard matju at users.sourceforge.net
Sat Sep 16 02:00:06 CEST 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixed a bug introduced by previous commit and fixed the help button


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.470
retrieving revision 1.1.2.471
diff -C2 -d -r1.1.2.470 -r1.1.2.471
*** desire.tk	15 Sep 2006 21:34:50 -0000	1.1.2.470
--- desire.tk	16 Sep 2006 00:00:01 -0000	1.1.2.471
***************
*** 4876,4883 ****
  
  def ClassBrowser info {listbox} {
! 	set i [$listbox curselection]
! 	if {$i == ""} {return}
! 	set class [string range [lindex [$listbox get $i] 0] 1 end-1]
! 	pd pd update-class-info $class $self info_callback
  }
  
--- 4876,4881 ----
  
  def ClassBrowser info {listbox} {
! 	set class [$self current_class]
! 	if {$class != ""} {pd pd update-class-info $class $self info_callback}
  }
  
***************
*** 4898,4902 ****
  	
  	frame $f.5
! 	button $f.5.help -text [say help] -command "pd pd help \[$f.1 get \[$f.1 curselection\]\]"
  	pack $f.5.help -side top
  	pack $f.5 -side left -fill    y -expand no
--- 4896,4900 ----
  	
  	frame $f.5
! 	button $f.5.help -text [say help] -command [list $self help]
  	pack $f.5.help -side top
  	pack $f.5 -side left -fill    y -expand no
***************
*** 4915,4926 ****
  	$self fill_box ""
  	#bind $f.1 <Button-1> "after 1 \"$self info $f.1 \""
- 	bind $f.1 <Button-1> "after 1 \"$self key Up $b.2\""
  	foreach w [list $f.1 $b.2] {
  		bind $w       <KeyPress> "after 1 \"$self key %K 0\""
  		bind $w <Shift-KeyPress> "after 1 \"$self key %K 1\""
  	}
  	focus $@textbox
  }
  
  def Completion list_callback {} {
  	global class_list look
--- 4913,4929 ----
  	$self fill_box ""
  	#bind $f.1 <Button-1> "after 1 \"$self info $f.1 \""
  	foreach w [list $f.1 $b.2] {
  		bind $w       <KeyPress> "after 1 \"$self key %K 0\""
  		bind $w <Shift-KeyPress> "after 1 \"$self key %K 1\""
+ 		bind $w <Return> [list $self help]
  	}
  	focus $@textbox
  }
  
+ def Browser help {} {
+ 	set f .$self.cl
+ 	pd pd help [$self current_class]
+ }
+ 
  def Completion list_callback {} {
  	global class_list look
***************
*** 4986,4989 ****
--- 4989,4998 ----
  }
  
+ def ClassBrowser current_class {} {
+ 	set i [$@listbox curselection]
+ 	if {$i == ""} {return {}}
+ 	return [string range [lindex [$@listbox get $i] 0] 1 end-1]
+ }
+ 
  def ClassBrowser complete {} {
  	if {[regexp {x([0-9a-z]{6,8})text$} $@textbox obj]} {
***************
*** 4991,4996 ****
  		set obj [string range $obj 0 [expr $cut -1]]
  	}
! 	set i [$@listbox curselection]
! 	set class [string range [lindex [$@listbox get $i] 0] 1 end-1]
  	puts "completion:::: $class"
  	$@textbox delete 1.0 1.end
--- 5000,5004 ----
  		set obj [string range $obj 0 [expr $cut -1]]
  	}
! 	set class [$self current_class]
  	puts "completion:::: $class"
  	$@textbox delete 1.0 1.end
***************
*** 5071,5076 ****
  	global class_info
  	set f .browser.cl
! 	set i [$f.1 curselection]
! 	set class [string range [lindex [$f.1 get $i] 0] 1 end-1]
  	$f.3 delete 0.0 end
  	$f.3 insert end "class $class\n"
--- 5079,5083 ----
  	global class_info
  	set f .browser.cl
! 	set class [$self current_class]
  	$f.3 delete 0.0 end
  	$f.3 insert end "class $class\n"





More information about the Pd-cvs mailing list