[PD-cvs] pd/src desire.tk,NONE,1.1.2.1

[chunlee]

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

Added Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
a gui named desire!


--- NEW FILE: desire.tk ---
#-----------------------------------------------------------------------------------#
#
#thanks for taking time looking at this code:)
#
#few notes:
#
#1. "wish +++++.tk" to run it
#2. use Ctrl+1 to add object, use BackSpace to delete it
#3. other keybindings are not working yet, so there will be error
#4. only 1 canvas for now
#5. wire drawing functions are not there yet, so don't try to connect:)
#6. type any name in the object box, all object for now have 3 outlets and 1 inlet
#7. the foo button is for testing and debug, it does nothing
#8. close this code from the foo buttn window
#
#things to look at:
#
#1. when creating/editing text object, the tmp text input field is not handled in tk
#2. all the mouse position stuff (selection, hilight...) are now also done in tk
[...1697 lines suppressed...]
    global _
    set self [canvastosym $canvas]
    if {$iso != ""} {scan $iso %c key}
    #pd [canvastosym $canvas] key 0 $key 0 \;
    set edit 0; switch $_($self:mode) { edit { set edit 1 } }
    if {[string length $_($self:grab)] > 0} {
	set id $_($self:grab)
        set run [expr !$edit]
        if {$run && [info exists _($id:keyreleaseevent)]} {
		eval [linsert [list $_($self:grab) $canvas $key $shift] 0 $_($id:keyreleaseevent)]
        } elseif {!$run && [info exists _($id:keyreleaseeditevent)]} {
		eval [linsert [list $_($self:grab) $canvas $key $shift] 0 $_($id:keyreleaseeditevent)]
	}
    }
    #statusbar_update [canvastosym $canvas] $x $y
}

#-----------------------------------------------------------------------------------#
#-----------------------------------------------------------------------------------#
#-----------------------------------------------------------------------------------#