Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9282
Modified Files: Tag: devel_0_39 desire.tk Log Message: still working on loading simple file, can load canvas and objects now
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.15 retrieving revision 1.1.2.16 diff -C2 -d -r1.1.2.15 -r1.1.2.16 *** desire.tk 28 Aug 2005 03:40:36 -0000 1.1.2.15 --- desire.tk 29 Aug 2005 18:40:43 -0000 1.1.2.16 *************** *** 3,30 **** #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 ! #3. text object creation/edit/delet is not done in tk ! # ! #i think that's it ! # ! #oh, these codes are not clean, i mean, there are codes that are left over from before, sorry:/ ! ! #26072005, chun@goto10.org #-----------------------------------------------------------------------------------#
set pd_nt 0
--- 3,21 ---- #thanks for taking time looking at this code:) # ! #this is desiredata ! #this code is still in early development #-----------------------------------------------------------------------------------#
+ #some variables i created, some are tmp only. + + set canvas .x80f2b50 + set offset 0 + set offset_wire 0 + set offset_canvas 0 + set offset_canvas_file 0 + set offset_wire_file 0 + set offset_obj_file 0 + + #-----------------------------------------------------------------------------------# set pd_nt 0
*************** *** 292,296 **** }
! set offset_canvas 0
proc menu_new {} { --- 283,287 ---- }
!
proc menu_new {} { *************** *** 339,343 **** puts "open_file $filename"
! global pd_opendir set directory [string range $filename 0 [expr [string last / $filename] - 1]] set pd_opendir $directory --- 330,335 ---- puts "open_file $filename"
! global pd_opendir offset_canvas_file offset_wire_file offset_obj_file _ font ! set directory [string range $filename 0 [expr [string last / $filename] - 1]] set pd_opendir $directory *************** *** 355,361 **** --- 347,359 ---- puts "read $no_lines lines" + set canvas 0 + foreach line $lines { + #set offset_canvas_file 0 + #set offset_wire_file 0 + #set offset_obj_file 0 + #puts "[lindex $line 0]" *************** *** 365,368 **** --- 363,381 ---- puts "creates canvas" + puts "XY offset: [lindex $line 2] : [lindex $line 3]" + puts "canvas size: [lindex $line 4] : [lindex $line 5]" + + + set canvas_id [format %x [expr 0x0000000 + $offset_canvas_file]] + set canvas_id .x$canvas_id + set canvas $canvas_id + set offset_canvas_file [expr $offset_canvas_file + 1] + + puts "new canvas id -> $canvas_id" + + + pdtk_canvas_new $canvas_id [lindex $line 4] [lindex $line 5] \ + +[lindex $line 2]+[lindex $line 3] 1 + } else { *************** *** 372,381 **** set ow [lindex $line 1] ! ! if {$ow != "connect"} { puts "create obj" ! } else { puts "create wires" --- 385,423 ---- set ow [lindex $line 1] ! ! if {$ow == "obj"} { ! set object_id [format %x [expr 0x1111111 + $offset_obj_file]] ! set offset_obj_file [expr $offset_obj_file + 1] puts "create obj" + set obj_name [lrange $line 4 end] + set lsize [expr [llength $line] - 1] + set last_str [string trimright [lindex $line $lsize] ";"] + set obj_name [lreplace $obj_name end end] + set obj_name [lappend obj_name $last_str] + set _($object_id:name_len) [string length $obj_name] + + puts "obj x: [lindex $line 2] y: [lindex $line 3]" + + set _($object_id:cx) [lindex $line 2] + set _($object_id:cy) [lindex $line 3] + + #puts "last in the list :: [lindex $line $lsize]" + #puts "trimed :: $last_str" + puts "obj_name :: $obj_name" + + objectbox_draw $object_id $canvas.c \ + [expr ($_($object_id:name_len)*$font(width)) + $font(padx)] \ + [expr $font(height) + $font(pady)] 1 3 + + pdtk_text_new \ + $canvas.c ${object_id}TEXT [expr $_($object_id:cx)+2] [expr $_($object_id:cy)+2] \ + $obj_name $font(size) #000000 + + ! } ! ! if {$ow == "connect"} { puts "create wires" *************** *** 502,508 ****
! set canvas .x80f2b50 ! set offset 0 ! set offset_wire 0
set font(size) 12 --- 544,549 ----
! !
set font(size) 12 *************** *** 1139,1143 **** #-----------------------------------------------------------------------------------# proc objectbox_draw {self canvas xs ys ins outs} { ! puts "objectbox_draw"
global _ look --- 1180,1184 ---- #-----------------------------------------------------------------------------------# proc objectbox_draw {self canvas xs ys ins outs} { ! puts "objectbox_draw ::: $self $canvas $xs $ys $ins $outs"
global _ look