[PD-cvs] pd/src desire.tk,1.1.2.181,1.1.2.182

[Mathieu Bouchard]

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

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.181
retrieving revision 1.1.2.182
diff -C2 -d -r1.1.2.181 -r1.1.2.182
*** desire.tk	22 Apr 2006 16:39:11 -0000	1.1.2.181
--- desire.tk	22 Apr 2006 17:01:03 -0000	1.1.2.182
***************
*** 1037,1042 ****
      set @selection_wire {}
      set @focus ""
!     set @current_x 30
!     set @current_y 30
      set @editmode $editable
      set @select_by ""
--- 1037,1041 ----
      set @selection_wire {}
      set @focus ""
!     set @curpos {30 30}
      set @editmode $editable
      set @select_by ""
***************
*** 1586,1590 ****
      set y [$c canvasy $y]
      if {$tooltip(visible)} {
! 	if {[expr [distance [list $tooltip(mx) $tooltip(my)] [list $x $y]] > 10]} {
  	    $tooltip(canvas) hide_tooltip
  	}
--- 1585,1589 ----
      set y [$c canvasy $y]
      if {$tooltip(visible)} {
! 	if {[expr [distance $tooltip(curpos) [list $x $y]] > 10]} {
  	    $tooltip(canvas) hide_tooltip
  	}
***************
*** 1593,1598 ****
      set @dehighlight {}
      # backup values
!     set ox $@current_x; set @current_x $x
!     set oy $@current_y; set @current_y $y
      if {[llength [$c gettags lnew]]} {
  	mset {ox1 oy1 ox2 oy2} [lrange [$c coords lnew] end-3 end]
--- 1592,1597 ----
      set @dehighlight {}
      # backup values
!     set oldpos $@curpos
!     set @curpos [list $x $y]
      if {[llength [$c gettags lnew]]} {
  	mset {ox1 oy1 ox2 oy2} [lrange [$c coords lnew] end-3 end]
***************
*** 3165,3170 ****
  ############ tooltips
  
! set tooltip(mx) -1000
! set tooltip(my) -1000
  set tooltip(canvas) ""
  set tooltip(visible) 0
--- 3164,3168 ----
  ############ tooltips
  
! set tooltip(curpos) {-1000 -1000}
  set tooltip(canvas) ""
  set tooltip(visible) 0
***************
*** 3188,3193 ****
  		-fill "#ffffcc" -outline "#000000" -tags tooltip_bg
  	$c lower tooltip_bg tooltip_fg
! 	set tooltip(mx) $@current_x
! 	set tooltip(my) $@current_y
  	set tooltip(canvas) $self
  	set tooltip(visible) 1
--- 3186,3190 ----
  		-fill "#ffffcc" -outline "#000000" -tags tooltip_bg
  	$c lower tooltip_bg tooltip_fg
! 	set tooltip(curpos) $@curpos
  	set tooltip(canvas) $self
  	set tooltip(visible) 1
***************
*** 3209,3213 ****
  def ClassBrowser init {name} {
  	set @name $name
! 	pd "pd update-path ; pd update-class-list $self list_callback"
  }
  
--- 3206,3211 ----
  def ClassBrowser init {name} {
  	set @name $name
! 	pd pd update-path
!         pd pd update-class-list $self list_callback
  }
  
***************
*** 3243,3246 ****
--- 3241,3251 ----
  }
  
+ def ClassBrowser info {} {
+ 	set f .$self.cl
+ 	set i [$f.1 curselection]
+ 	set class [$f.1 get $i]
+ 	pd pd update-class-info $class $self info_callback
+ }
+ 
  def ClassBrowser list_callback {} {
  	global class_list
***************
*** 3251,3257 ****
  	pack [frame $f] -side top -fill both -expand yes
  	pack [label .browser.title -text ""] -side top
! 	listbox $f.1 -width 30 -height 10 -yscrollcommand "$f.2 set"
  	scrollbar $f.2 -command "$f.1 yview"
! 	text $f.3 -width 30 -height 10 -yscrollcommand "$f.4 set"
  	scrollbar $f.4 -command "$f.3 yview"
  
--- 3256,3262 ----
  	pack [frame $f] -side top -fill both -expand yes
  	pack [label .browser.title -text ""] -side top
! 	listbox $f.1 -width 40 -height 20 -yscrollcommand "$f.2 set"
  	scrollbar $f.2 -command "$f.1 yview"
! 	text    $f.3 -width 40 -height 20 -yscrollcommand "$f.4 set"
  	scrollbar $f.4 -command "$f.3 yview"
  
***************
*** 3272,3284 ****
  	pack $b -side bottom -fill x -expand no
  	$self fill_box ""
! 	bind $f.1 <Button-1> {
! 		after 1 {
! 			set self browser
! 			set f .$self.cl
! 			set i [$f.1 curselection]
! 			set class [$f.1 get $i]
! 			pd pd update-class-info $class $self info_callback
! 		}
! 	}
  	#bind $b.2 <KeyPress> {after 1 "  $self fill_box [.browser.butt.2 get]"}
  	bind $b.2 <KeyPress> {after 1 "browser fill_box \[.browser.butt.2 get\]"}
--- 3277,3281 ----
  	pack $b -side bottom -fill x -expand no
  	$self fill_box ""
! 	bind $f.1 <Button-1> "after 1 \"$self info\""
  	#bind $b.2 <KeyPress> {after 1 "  $self fill_box [.browser.butt.2 get]"}
  	bind $b.2 <KeyPress> {after 1 "browser fill_box \[.browser.butt.2 get\]"}