[PD-cvs] pd/src desire.tk,1.1.2.30,1.1.2.31
Mathieu Bouchard
matju at users.sourceforge.net
Tue Sep 6 05:32:02 CEST 2005
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
}
More information about the Pd-cvs
mailing list