pd/src desire.tk,1.1.2.237,1.1.2.238 - Pd-cvs

13 Jun 2006


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29123
Modified Files:
      Tag: devel_0_39
    desire.tk 
Log Message:
trivial commits for the properties window
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.237
retrieving revision 1.1.2.238
diff -C2 -d -r1.1.2.237 -r1.1.2.238
*** desire.tk	13 Jun 2006 07:56:08 -0000	1.1.2.237
--- desire.tk	13 Jun 2006 16:04:53 -0000	1.1.2.238
***************
*** 943,964 ****
  def View selected?= {x} {set @selected? $x; $self changed}
- #def* View clickedit {x y butt key in_selection selection} {
-     #handles the shift click
-     #if {($f&1) && !$already} {post "add to selection?"; return}
- #    if {($key&1) && $selection>0} {
- #    puts "add $self to selection...."
- #    }
-     #if clicked obj is part of the $@selection, than....
- #    if {$in_selection && [llength $selection]>1} {
- #       set _($@canvas:action) move
- #    } {
- #       $@canvas deselect_all
- #       set _($@canvas:selection) $self
-        #set _($@canvas:action) move
- #       set _($@canvas:action) edit
- #    }
- #}
- 
- 
  def* View select {state} {
    set ostate [$self selected?]
--- 943,946 ----
***************
*** 968,977 ****
def View xy {} {
- #	if {[info exists focus(createdby)]} {
- #		switch $focus(createdby) {
- #		  butt {mset {@x1 @y1} {40 40}}
- #		  ctrl {
- #			mset {@x1 @y1} $_($canvas:curpos)
- #			set focus(oldpos) [list $@x1 $@y1]}}}
    # todo: should compute GOP stuff here
    set cx $@x1
--- 950,953 ----
***************
*** 980,985 ****
  }
! #def View connect {} {
! #}
# in the future, one View may have several canvases. (??)
--- 956,980 ----
  }
! def* View popup_properties {} {
! 	global fields
! 	set class $@class
! 	if {![info exists fields($class)]} {set class obj}
! 	puts "this is a $@class class"
! 	puts "it has [llength $fields($class)] properties"
! 	
! 	PagedDialog new_as ${self}prefs
! 	
! 	#set f .$self.1
! 	#set section 0
! 	#set subsection 0
! 	#foreach propertie $fields($class) {
! 	#switch $propertie {
! 	#	bcol {
! 	#	properties_dialog $which_self $which_section ClientPrefsDialog_ok \
! 	#		[list [lindex $name 0] [say $name] color {}]
! 	#	}
! 	#}
! 	#}
! }
# in the future, one View may have several canvases. (??)