pd/src desire.tk,1.1.2.123,1.1.2.124 - Pd-cvs

15 Nov 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
  }