[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