pd/src desire.tk,1.1.2.240,1.1.2.241 - Pd-cvs

13 Jun 2006


      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 ----