[PD-cvs] pd/src desire.tk,1.1.2.240,1.1.2.241
Mathieu Bouchard
matju at users.sourceforge.net
Tue Jun 13 19:13:26 CEST 2006
- Previous message: [PD-cvs] pd/src desire.tk,1.1.2.239,1.1.2.240
- Next message: [PD-cvs] externals/pmpd/src link.c, NONE, 1.1 link2D.c, NONE, 1.1 link3D.c, NONE, 1.1 mass.c, NONE, 1.1 mass2D.c, NONE, 1.1 mass3D.c, NONE, 1.1 pmpd.c, 1.3, 1.4 pmpd~.c, 1.1, 1.2 lia.c, 1.1.1.1, NONE lia2D.c, 1.1.1.1, NONE lia3D.c, 1.1.1.1, NONE masse.c, 1.2, NONE masse2D.c, 1.2, NONE masse3D.c, 1.2, NONE
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24609
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
fixed error in IEMPropertiesDialog creation
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.240
retrieving revision 1.1.2.241
diff -C2 -d -r1.1.2.240 -r1.1.2.241
*** desire.tk 13 Jun 2006 17:09:26 -0000 1.1.2.240
--- desire.tk 13 Jun 2006 17:13:24 -0000 1.1.2.241
***************
*** 2967,2970 ****
--- 2967,2972 ----
global classinfo fields
super $of
+
+ # cloning contents of the $of object, except for some little exceptions
foreach var {snd rcv lab} {
catch {set val $_($@of:$var); switch -- $val { empty {set val ""}}; set @$var $val}
***************
*** 2972,2984 ****
foreach var {w h hold break ldx ldy fstyle fs is_log steady min max
on nonzero val change log_height hh isa} {
! catch {set @$var $_($obj:$var)}
}
foreach var {bcol fcol lcol} {
! catch {set @$var [parse_color $_($obj:$var)]}
}
! # watch out. have to figure this one out.
! catch {set @loadbang [expr $@isa & 1]}
! catch {set @scale [expr $@isa>>20) & 1]}
set @class $_($of:class)
--- 2974,2985 ----
foreach var {w h hold break ldx ldy fstyle fs is_log steady min max
on nonzero val change log_height hh isa} {
! catch {set @$var $_($of:$var)}
}
foreach var {bcol fcol lcol} {
! catch {set @$var [parse_color $_($of:$var)]}
}
! set @loadbang [expr $@isa & 1]
! set @scale [expr ($@isa>>20) & 1]
set @class $_($of:class)
***************
*** 3015,3019 ****
lappend props lcol "label color: " color {}
properties_dialog $self .$self iemgui_ok $props
- cancel_apply_ok $self iemgui
if {[info tclversion] < 8.4} {
--- 3016,3019 ----
- Previous message: [PD-cvs] pd/src desire.tk,1.1.2.239,1.1.2.240
- Next message: [PD-cvs] externals/pmpd/src link.c, NONE, 1.1 link2D.c, NONE, 1.1 link3D.c, NONE, 1.1 mass.c, NONE, 1.1 mass2D.c, NONE, 1.1 mass3D.c, NONE, 1.1 pmpd.c, 1.3, 1.4 pmpd~.c, 1.1, 1.2 lia.c, 1.1.1.1, NONE lia2D.c, 1.1.1.1, NONE lia3D.c, 1.1.1.1, NONE masse.c, 1.2, NONE masse2D.c, 1.2, NONE masse3D.c, 1.2, NONE
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list