[PD-cvs] externals/miXed/test/toxy setup.wid,1.3,1.4

[Krzysztof Czaja]

Update of /cvsroot/pure-data/externals/miXed/test/toxy
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10934/test/toxy

Modified Files:
	setup.wid 
Log Message:
various bug-fixes, maxmode, toxy .#args

Index: setup.wid
===================================================================
RCS file: /cvsroot/pure-data/externals/miXed/test/toxy/setup.wid,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** setup.wid	23 Mar 2004 12:07:22 -0000	1.3
--- setup.wid	8 Dec 2004 15:40:14 -0000	1.4
***************
*** 117,134 ****
      }
  
!     if {[info exists ::toxy::masterinits]} {
! 	set failed [catch {eval $::toxy::masterinits} res]
! 	unset ::toxy::masterinits
! 	if {$failed} { error [concat in ::toxy::masterinits: $res] }
      }
!     if {[info exists ::toxy::typeinits]} {
! 	set failed [catch {eval $::toxy::typeinits} res]
! 	unset ::toxy::typeinits
! 	if {$failed} { error [concat in ::toxy::typeinits: $res] }
      }
!     if {[info exists ::toxy::iteminits]} {
! 	set failed [catch {eval $::toxy::iteminits} res]
! 	unset ::toxy::iteminits
! 	if {$failed} { error [concat in ::toxy::iteminits: $res] }
      }
  
--- 117,134 ----
      }
  
!     if {[info exists ::toxy::masterinit]} {
! 	set failed [catch {eval $::toxy::masterinit} res]
! 	unset ::toxy::masterinit
! 	if {$failed} { error [concat in ::toxy::masterinit: $res] }
      }
!     if {[info exists ::toxy::typeinit]} {
! 	set failed [catch {eval $::toxy::typeinit} res]
! 	unset ::toxy::typeinit
! 	if {$failed} { error [concat in ::toxy::typeinit: $res] }
      }
!     if {[info exists ::toxy::iteminit]} {
! 	set failed [catch {eval $::toxy::iteminit} res]
! 	unset ::toxy::iteminit
! 	if {$failed} { error [concat in ::toxy::iteminit: $res] }
      }
  
***************
*** 205,209 ****
  # FIXME
  proc ::toxy::scale_command {target sel v} {
!     pd [concat $target $sel $v \;]
  }
  
--- 205,217 ----
  # FIXME
  proc ::toxy::scale_command {target sel v} {
!     if {$::toxy::scale_isactive} {
! 	pd [concat $target $sel $v \;]
!     }
!     set ::toxy::scale_isactive 1
! }
! 
! proc ::toxy::scale_doset {path v} {
!     set ::toxy::scale_isactive 0
!     $path set $v
  }
  
***************
*** 240,243 ****
--- 248,254 ----
  ::toxy::master .- .- .^.c .|
  
+ # FIXME
+ set ::toxy::scale_isactive 1
+ 
  # standard widget types
  
***************
*** 251,254 ****
--- 262,266 ----
  #. -bg pink -activebackground red -length 200
  #. @float .- set .#1
+ #. @vset ::toxy::scale_doset .- .#1
  
  #> symbol entry