[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
- Previous message: [PD-cvs] pd/src desire.tk,1.1.2.122,1.1.2.123
- Next message: [PD-cvs] externals/build/src matrix_mul_line~.c, NONE, 1.1 matrix_mul~.c, NONE, 1.1 mtx_*.c, NONE, 1.1 mtx_*~.c, NONE, 1.1 mtx_+.c, NONE, 1.1 mtx_-.c, NONE, 1.1 mtx_.*.c, NONE, 1.1
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
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
}
- Previous message: [PD-cvs] pd/src desire.tk,1.1.2.122,1.1.2.123
- Next message: [PD-cvs] externals/build/src matrix_mul_line~.c, NONE, 1.1 matrix_mul~.c, NONE, 1.1 mtx_*.c, NONE, 1.1 mtx_*~.c, NONE, 1.1 mtx_+.c, NONE, 1.1 mtx_-.c, NONE, 1.1 mtx_.*.c, NONE, 1.1
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list