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 }
#-----------------------------------------------------------------------------------# #-----------------------------------------------------------------------------------# #-----------------------------------------------------------------------------------#