[PD-cvs] pd/src desire.tk,1.1.2.237,1.1.2.238
chunlee
chunlee at users.sourceforge.net
Tue Jun 13 18:04:55 CEST 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. (??)
More information about the Pd-cvs
mailing list