Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12421
Modified Files: Tag: devel_0_39 desire.tk Log Message: now Ctrl+N creates a canvas on the server side and waits for canvas creation request from server.
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.30 retrieving revision 1.1.2.31 diff -C2 -d -r1.1.2.30 -r1.1.2.31 *** desire.tk 6 Sep 2005 02:36:30 -0000 1.1.2.30 --- desire.tk 6 Sep 2005 03:32:00 -0000 1.1.2.31 *************** *** 370,387 **** proc menu_new {} { puts "menu_new:::" ! global untitled_number untitled_directory ! #pd "pd filename Untitled-$untitled_number $untitled_directory ;" ! #pd { ! # #N canvas; ! # #X pop 1; ! #} ! #global offset_canvas _ ! #set canvas_id [format %x [expr 0x80f2b50 + $offset_canvas]] ! #set canvas_id .x$canvas_id ! #set offset_canvas [expr $offset_canvas + 1] ! #puts "new canvas id -> $canvas_id" ! #pdtk_canvas_new $canvas_id 300 300 +[expr $offset_canvas*50]+[expr $offset_canvas*50] 1 ! #set untitled_number [expr $untitled_number + 1] ! canvas_new }
--- 370,386 ---- proc menu_new {} { puts "menu_new:::" ! global untitled_number untitled_directory offset_canvas _ ! pd "pd filename Untitled-$untitled_number $untitled_directory ;" ! pd { ! #N canvas; ! #X pop 1; ! } ! # set canvas_id [format %x [expr 0x80f2b50 + $offset_canvas]] ! # set canvas_id .x$canvas_id ! # set offset_canvas [expr $offset_canvas + 1] ! # puts "new canvas id -> $canvas_id" ! # pdtk_canvas_new $canvas_id 300 300 +[expr $offset_canvas*50]+[expr $offset_canvas*50] 1 ! set untitled_number [expr $untitled_number + 1] ! # canvas_new }
*************** *** 451,456 **** set object_id [format %x [expr 0x1111111 + $offset_obj_file]] set offset_obj_file [expr $offset_obj_file + 1] ! lappend _($canvas:obj_list) $object_id ! puts "obj_list ::: $_($canvas:obj_list)" puts "create obj" --- 450,454 ---- set object_id [format %x [expr 0x1111111 + $offset_obj_file]] set offset_obj_file [expr $offset_obj_file + 1] ! lappend _($canvas:obj_list) $object_id puts "obj_list ::: $_($canvas:obj_list)" puts "create obj" *************** *** 473,482 **** 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 } --- 471,480 ---- 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 }