[PD-cvs] pd/src desire.tk,1.1.2.123,1.1.2.124

chunlee chunlee at users.sourceforge.net
Tue Nov 15 16:32:57 CET 2005


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29529

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
messagebox renders but not functional yet


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.123
retrieving revision 1.1.2.124
diff -C2 -d -r1.1.2.123 -r1.1.2.124
*** desire.tk	15 Nov 2005 14:35:34 -0000	1.1.2.123
--- desire.tk	15 Nov 2005 15:32:55 -0000	1.1.2.124
***************
*** 84,87 ****
--- 84,88 ----
  		post %s "$o: $poolset($o)"
  		unset poolset($o)
+ 		puts ".....draw $o ....."
  		$o draw
  	}
***************
*** 2090,2093 ****
--- 2091,2095 ----
  #             @class   {@_class}
  set classinfo(obj)     {objectbox}
+ set classinfo(msg)     {messagebox}
  set classinfo(tgl)     {toggle}
  set classinfo(bng)     {bang}
***************
*** 2192,2201 ****
  }
  
! class_new messagebox {view}
! def messagebox draw {} {
  	global look
  	mset {x1 y1} [$self xy]
! 	set x2 [expr $x1+$xs]
! 	set y2 [expr $y1+$ys]
  	set points [list $x1 $y1 [expr $x2+4] $y1 $x2 [expr $y1+4] $x2 [expr $y2-4] \
  		[expr $x2+4] $y2 $x1 $y2 $x2 $y2 $x1 $y2]
--- 2194,2212 ----
  }
  
! class_new messagebox {textbox}
! 
! def* messagebox init {args} {
! 	puts "!!!!!! args:$args"
! 	super
! 	set @w 15
! 	set @xs $@w
! 	set @ys $@w
! }
! 
! def* messagebox draw {} {
  	global look
  	mset {x1 y1} [$self xy]
! 	set x2 [expr $x1+$@xs]
! 	set y2 [expr $y1+$@ys]
  	set points [list $x1 $y1 [expr $x2+4] $y1 $x2 [expr $y1+4] $x2 [expr $y2-4] \
  		[expr $x2+4] $y2 $x1 $y2 $x2 $y2 $x1 $y2]
***************
*** 2203,2207 ****
  	io_draw $self
  	if {[$self selected?]} {set frcol $look(objectframe4)} {set frcol $look(objectframe3)}
! 	$canvas itemconfigure ${self}BASE -outline $frcol
  }
  
--- 2214,2218 ----
  	io_draw $self
  	if {[$self selected?]} {set frcol $look(objectframe4)} {set frcol $look(objectframe3)}
! 	.$@canvas.c itemconfigure ${self}BASE -outline $frcol
  }
  





More information about the Pd-cvs mailing list