[PD-cvs] externals/miXed/test/toxy multiscale-test.pd,NONE,1.1 multiscale.wid,NONE,1.1 popcustom-test.pd,NONE,1.1 setup.wid,NONE,1.1 button-test.pd,1.3,1.4 kb-test.pd,1.1,1.2 kb.wid,1.1,1.2 listbox-test.pd,1.1,1.2 popup-test.pd,1.1,1.2 tclversion.pd,1.1,1.2 default.wid,1.5,NONE

krzyszcz at users.sourceforge.net krzyszcz at users.sourceforge.net
Tue Mar 9 13:41:25 CET 2004


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

Modified Files:
	button-test.pd kb-test.pd kb.wid listbox-test.pd popup-test.pd 
	tclversion.pd 
Added Files:
	multiscale-test.pd multiscale.wid popcustom-test.pd setup.wid 
Removed Files:
	default.wid 
Log Message:
toxy alpha6

--- NEW FILE: multiscale-test.pd ---
#N canvas 39 49 775 469 12;
#X obj 27 98 widget multiscale m1 #n 30 #dx 15 #dy 60;
#X obj 27 200 widget multiscale m2 #bg red #dy 120;
#X obj 188 371 tow . multiscale m1;
#X msg 27 59 #n \$1;
#X floatatom 27 24 5 0 0 0 - - -;
#N canvas 0 0 450 300 graph1 0;
#X array t 50 float 0;
#X coords 0 1 49 0 400 140 1;
#X restore 296 206 graph;
#X obj 188 410 tabwrite t;
#X obj 27 367 unpack;
#X floatatom 27 411 5 0 0 0 - - -;
#X floatatom 100 411 5 0 0 0 - - -;
#X connect 1 0 7 0;
#X connect 2 0 6 0;
#X connect 3 0 0 0;
#X connect 4 0 3 0;
#X connect 7 0 8 0;
#X connect 7 1 9 0;

--- NEW FILE: multiscale.wid ---
proc ::toxy::multiscalecommand {target sel ndx v} {
    pd [concat $target $sel $v $ndx \;]
}

proc ::toxy::multiscale {path target remote count dx dy bg} {
    if {[winfo exists $path.s0]} {
#	puts stderr [concat $path.s0 exists]
    } else {
	set width [expr {$count * $dx + 10}]
	set height [expr {$dy + 10}]
	$path config -width $width -height $height -bg $bg
	set px 5
	set py 5
	for {set ndx 0} {$ndx < $count} {incr ndx} {
	    scale $path.s$ndx -width $dx -length $dy \
		-from 1 -to 0 -resolution 0.01 \
		-bg $bg -highlightthickness 0 \
		-command [concat ::toxy::multiscalecommand $target _cb $ndx]
	    if {$dx < 50} {
		$path.s$ndx config -showvalue 0 -relief flat
	    } else {
		$path.s$ndx config -digits 3 -relief sunken
	    }
	    set id [$path create window $px $py -width $dx -height $dy \
		-anchor nw -window $path.s$ndx -tags $path.s$ndx]
	    ::toxy::masterinit $path.s$ndx $target $path
	    incr px $dx
	}
    }
}

#> multiscale canvas
#. #n 3 #dx 60 #dy 90
#. #bg yellow

::toxy::multiscale .- .| . .#n .#dx .#dy .#bg

# undo the "bind Canvas <1> {+focus %W}" in the setup part above
bind .- <FocusIn> {focus .^.c}

--- NEW FILE: popcustom-test.pd ---
#N canvas 356 9 338 241 12;
#X obj 38 104 r rpop;
#X floatatom 38 142 5 0 0 0 - - -;
#X floatatom 120 142 5 0 0 0 - - -;
#X obj 120 104 r rpop1;
#X floatatom 210 142 5 0 0 0 - - -;
#X obj 210 104 r rpop2;
#N canvas 12 11 293 279 blackpanel 1;
#X obj 23 111 widget menubutton mb -menu .-.pop -bg green -activebackground
yellow -width 5 -text one @float if .(.#1 >= 1.) .(.-.pop invoke .#1.)
;
#X obj 23 12 loadbang;
#X obj 96 110 widget pop1 p1;
#X obj 188 110 widget pop2 p2;
#X msg 23 41 ini ::toxy::popup .- .| rpop [list one two three four five]
-bg green -activebackground yellow .: destroy .^.m .: .^.scrollvert
configure -width 0 .: .^.scrollhort configure -width 0 .: .^.c configure
-bg black;
#X obj 23 150 r topop;
#X obj 96 150 r topop1;
#X obj 188 150 r topop2;
#X connect 1 0 4 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X connect 6 0 2 0;
#X connect 7 0 3 0;
#X restore 95 198 pd blackpanel;
#X floatatom 38 24 5 0 0 0 - - -;
#X floatatom 120 24 5 0 0 0 - - -;
#X floatatom 210 24 5 0 0 0 - - -;
#X obj 38 58 s topop;
#X obj 120 58 s topop1;
#X obj 210 58 s topop2;
#X connect 0 0 1 0;
#X connect 3 0 2 0;
#X connect 5 0 4 0;
#X connect 7 0 10 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;

--- NEW FILE: setup.wid ---
# LATER transfer the `standard' toxy setup definitions into a tcl package
# LATER think about using a slave interpreter, and a toxy-specific connection
# LATER gather aqua incompatibilities, and decide, if there is no other
# way than branching (different meaning of -bg, -borderwidth trouble,
# right click, etc.)

# LATER ask for adding something of the sort to pd.tk:
bind Canvas <1> {+focus %W}

# In order to keep the state after our canvas has been destroyed
# (i.e. our subpatch closed) -- use 'store' and 'restore' handlers,
# if defined, otherwise try setting -variable and -textvariable traces.

proc ::toxy::itemdotrace {target varname ndxname op} {
    if {[catch {set v [set $varname]} res] == 0} {
	if {$v != [set $varname.last]} {
# FIXME activate this on demand (for explicit traces)
#	    pd $target.rp _value $v \;
	    set $varname.last $v
	}
    } else { puts stderr [concat failed ::toxy::itemdotrace: $res] }
}

proc ::toxy::itembindtrace {varname mastername ndxname op} {
    set $varname [set $mastername]
}

proc ::toxy::itemsettrace {op path target varname} {
    if {[catch {$path cget $op} res] == 0} {
	if {$res == ""} {
	    if {[catch {$path config $op $varname} err]} {
		error $err
	    }
	} else {
	    if {[info tclversion] < 8.4} {
		trace variable $res w "::toxy::itembindtrace $varname"
	    } else {
		trace add variable $res write "::toxy::itembindtrace $varname"
	    }
	}
	if {![info exists $varname.last]} { set $varname.last "" }
	if {[info tclversion] < 8.4} {
	    trace variable $varname w "::toxy::itemdotrace $target"
	} else {
	    trace add variable $varname write "::toxy::itemdotrace $target"
	}
	return
    } else { return 0 }
}

# LATER revisit -- seems clumsy and fragile
proc ::toxy::itemremovetrace {op path varname} {
    if {[catch {$path cget $op} res] == 0} {
	if {$res == $varname} {
	    if {[catch {$path config $op ""} err]} {
		error $err
	    }
	} elseif {$res != ""} {
	    if {[info tclversion] < 8.4} {
		catch { trace vdelete $res w "::toxy::itembindtrace $varname" }
	    } else {
		catch { trace remove variable \
		    $res write "::toxy::itembindtrace $varname" }
	    }
	}
    }
}

proc ::toxy::itemdestroy {path varname} {
    ::toxy::itemremovetrace -variable $path $varname.var
    ::toxy::itemremovetrace -textvariable $path $varname.txt
    if {[info tclversion] < 8.4} {
	catch { unset $varname.last $varname.var $varname.txt $varname }
    } else {
	unset -nocomplain $varname.last $varname.var $varname.txt $varname
    }
    catch {destroy $path}
}

proc ::toxy::itemgetconfig {path target} {
    pd $target.rp _config $target.rp [$path cget -bg] \
	[winfo reqwidth $path] [winfo reqheight $path] \
	[catch {$path config -state normal}]\;
}

proc ::toxy::itemvisconfig {path target name varname cvpath px py} {
    if {[info exists ::toxy::itemoptions]} {
	set failed [catch {eval $path config $::toxy::itemoptions} res]
	unset ::toxy::itemoptions
	if {$failed} { error [concat in $path config: $res] }
    }

    $cvpath create window $px $py \
	-anchor nw -window $path -tags [concat toxy$name $target]

# FIXME
    if {[info exists ::toxy::storethispath]} {
# FIXME explicit traces
	set needtraces 0
    } else {
	set needtraces 1
    }

    if {$needtraces != 0} {
	if {[catch {::toxy::itemsettrace -variable \
		$path $target $varname.var} res1]} {
	    error [concat in ::toxy::itemsettrace: $res1]
	}
	if {[catch {::toxy::itemsettrace -textvariable \
		$path $target $varname.txt} res2]} {
	    error [concat in ::toxy::itemsettrace: $res2]
	}
#	puts stderr [concat traces: ($res1) ($res2)]
	if {$res1 == 0 && $res2 == 0} {
#	    puts stderr [concat toxy warning: $path untraceable]
	}
    }

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

    ::toxy::itemgetconfig $path $target

    return
}

proc ::toxy::itemvis {tkclass path target name varname cvpath px py} {
    if {[winfo exists $path]} {
#	puts stderr [concat $path exists]
	set ::toxy::itemfailure 0
    } else {
	set ::toxy::itemfailure [catch {$tkclass $path} ::toxy::itemerrmess]
    }
    if {$::toxy::itemfailure == 0} {
	set ::toxy::itemfailure [catch {::toxy::itemvisconfig \
	    $path $target $name $varname $cvpath $px $py} \
	    ::toxy::itemerrmess]
    }
    if {$::toxy::itemfailure} {
	if {[winfo exists $path]} {destroy $path}
	puts stderr [concat tcl error: $::toxy::itemerrmess]
	pd $target.rp _failure \;
    }
}

# FIXME
proc ::toxy::scalecommand {target sel v} {
    pd [concat $target $sel $v \;]
}

proc ::toxy::popupcommand {path target remote i text} {
    set [$path cget -textvariable] $text
    pd [concat $target _cb $i \;]
    if {$remote != "."} {
	pd [concat $remote $i \;]
    }
}

proc ::toxy::popup {path target remote entries args} {
    if {[winfo exists $path.pop]} {
#	puts stderr [concat $path.pop exists]
    } elseif {[catch {eval {menu $path.pop} $args} err] == 0} {
	set i 0
	foreach e $entries {
	    if {$e == "."} {
		$path.pop add separator
	    } else {
		incr i
		$path.pop add command -label [lindex $e 0] \
		    -command [concat ::toxy::popupcommand \
			$path $target $remote $i \
			    [lindex $e [expr {[llength $e] > 1}]]]
	    }
	}
    } else { error [concat in ::toxy::popup: $err] }
}

# empirically, binding event coords as %X - [winfo rootx $cvpath] works
# better, than %x + [winfo x %W], or %x + t->te_xpix, LATER investigate

proc ::toxy::itemclick {target cvpath x y b f} {
    pd $target.rp _click \
	[$cvpath canvasx [expr {$x - [winfo rootx $cvpath]}]] \
	[$cvpath canvasy [expr {$y - [winfo rooty $cvpath]}]] $b $f\;
}

proc ::toxy::iteminout {target v} {
    pd [concat $target.rp _inout $v \;]
}

proc ::toxy::masterrelease {target cvpath x y b} {
    ::toxy::iteminout $target 3
# pdtk_canvas_mouseup is a hack, which we must call anyway
    pdtk_canvas_mouseup $cvpath \
	[expr {$x - [winfo rootx $cvpath]}] \
	[expr {$y - [winfo rooty $cvpath]}] $b
}

proc ::toxy::mastermotion {target cvpath x y} {
    pd $target.rp _motion \
	[$cvpath canvasx [expr {$x - [winfo rootx $cvpath]}]] \
	[$cvpath canvasy [expr {$y - [winfo rooty $cvpath]}]] 0 \;
}

proc ::toxy::masterinit {path target cvpath} {
    set topitem [expr {[string index $cvpath end-1] == "."}]
# FIXME subitem handling
    if {$topitem} {
	bind $path <ButtonRelease> \
	    "::toxy::masterrelease $target $cvpath %X %Y %b"
    }
    bind $path <1> "::toxy::itemclick $target $cvpath %X %Y %b 0"
    bind $path <Shift-1> "::toxy::itemclick $target $cvpath %X %Y %b 1"
    bind $path <Control-1> "::toxy::itemclick $target $cvpath %X %Y %b 2"
    bind $path <Control-Shift-1> "::toxy::itemclick $target $cvpath %X %Y %b 3"
    bind $path <Alt-1> "::toxy::itemclick $target $cvpath %X %Y %b 4"
    bind $path <Alt-Shift-1> "::toxy::itemclick $target $cvpath %X %Y %b 5"
    bind $path <Alt-Control-1> "::toxy::itemclick $target $cvpath %X %Y %b 6"
    bind $path <Alt-Control-Shift-1> \
	"::toxy::itemclick $target $cvpath %X %Y %b 7"
    bind $path <3> "::toxy::itemclick $target $cvpath %X %Y %b 8"

    bind $path <Motion> "::toxy::mastermotion $target $cvpath %X %Y"
    bind $path <Enter> "::toxy::iteminout $target 1"
    bind $path <Leave> "::toxy::iteminout $target 0"
}

# master initializer
#> master

::toxy::masterinit .- .| .^.c

# standard widget types

#> bang button
#. -image ::toxy::img::empty -command .<.>
#. -bg pink -activebackground red -width 50 -height 50
#. @bang .- flash .: .- invoke

#> float scale
#. -command [concat ::toxy::scalecommand .| _cb]
#. -bg pink -activebackground red -length 200
#. @float .- set .#1

#> symbol entry
#. -bg pink -font .(helvetica 24.) -width 16
#. @symbol .- delete 0 end .: .- insert 0 .#1

bind .- <Return> {eval .<[.- get].>; focus .^.c}

#> popup menubutton
#. -menu .-.pop
#. -bg purple -fg white -activebackground magenta -text popup
#. -width 8 -relief raised -borderwidth 3
#. @float if .(.#1 >= 1.) .(.-.pop invoke .#1.)
#. #items test
#. #iprops "-bg" purple "-fg" white "-activebackground" magenta "-borderwidth" 3

::toxy::popup .- .| . [concat .#items] .#iprops

Index: button-test.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/miXed/test/toxy/button-test.pd,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** button-test.pd	19 Feb 2004 22:23:18 -0000	1.3
--- button-test.pd	9 Mar 2004 12:41:21 -0000	1.4
***************
*** 23,26 ****
--- 23,28 ----
  #X obj 294 268 loadbang;
  #X msg 294 295 ini .- config -textvariable "";
+ #X obj 250 21 widget button bb -bg green -activebackground yellow
+ -command .<.> ;
  #X connect 0 0 3 0;
  #X connect 1 0 0 0;
***************
*** 40,41 ****
--- 42,44 ----
  #X connect 17 0 18 0;
  #X connect 18 0 0 0;
+ #X connect 19 0 10 0;

Index: kb-test.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/miXed/test/toxy/kb-test.pd,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** kb-test.pd	24 Sep 2003 10:46:19 -0000	1.1
--- kb-test.pd	9 Mar 2004 12:41:21 -0000	1.2
***************
*** 1,17 ****
  #N canvas 354 116 645 486 12;
! #X obj 37 61 widget kb k1;
  #X floatatom 37 160 5 0 0 0 - - -;
! #X obj 37 310 widget kb k2 #oct 8 #size 0.35 -bg red;
  #X floatatom 37 369 5 0 0 0 - - -;
- #X msg 120 271 #oct \$1 \, refresh;
  #X floatatom 120 237 5 0 0 0 - - -;
  #X floatatom 37 24 5 0 0 0 - - -;
  #X msg 114 24 bang;
  #X floatatom 37 237 5 0 0 0 - - -;
  #X connect 0 0 1 0;
  #X connect 2 0 3 0;
! #X connect 4 0 2 0;
! #X connect 5 0 4 0;
  #X connect 6 0 0 0;
! #X connect 7 0 0 0;
! #X connect 8 0 2 0;
--- 1,21 ----
  #N canvas 354 116 645 486 12;
! #X obj 37 59 widget kb k1;
  #X floatatom 37 160 5 0 0 0 - - -;
! #X obj 37 310 widget kb k2 #oct 10 #size 0.35 -bg red;
  #X floatatom 37 369 5 0 0 0 - - -;
  #X floatatom 120 237 5 0 0 0 - - -;
  #X floatatom 37 24 5 0 0 0 - - -;
  #X msg 114 24 bang;
  #X floatatom 37 237 5 0 0 0 - - -;
+ #X floatatom 205 237 5 0 0 0 - - -;
+ #X msg 205 271 #size \$1;
+ #X msg 120 271 #oct \$1;
  #X connect 0 0 1 0;
  #X connect 2 0 3 0;
! #X connect 4 0 10 0;
! #X connect 5 0 0 0;
  #X connect 6 0 0 0;
! #X connect 7 0 2 0;
! #X connect 8 0 9 0;
! #X connect 9 0 2 0;
! #X connect 10 0 2 0;

Index: kb.wid
===================================================================
RCS file: /cvsroot/pure-data/externals/miXed/test/toxy/kb.wid,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** kb.wid	19 Feb 2004 22:23:18 -0000	1.1
--- kb.wid	9 Mar 2004 12:41:21 -0000	1.2
***************
*** 1,9 ****
  proc ::toxy::kb {path target remote noctaves size} {
      set lft [expr {round(5 * $size)}]
!     set top [expr {5 * $size}]
!     set bot [expr {100 * $size}]
      set dx [expr {round(17 * $size)}]
!     set wid [expr {$dx - $size * .5}]
!     set blbot [expr {$bot * .65}]
  
      $path config -height [expr {$bot + $top}] \
--- 1,9 ----
  proc ::toxy::kb {path target remote noctaves size} {
      set lft [expr {round(5 * $size)}]
!     set top [expr {round(5 * $size)}]
!     set bot [expr {round(100 * $size)}]
      set dx [expr {round(17 * $size)}]
!     set wid [expr {round($dx - $size * .5)}]
!     set blbot [expr {round($bot * .65)}]
  
      $path config -height [expr {$bot + $top}] \

Index: listbox-test.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/miXed/test/toxy/listbox-test.pd,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** listbox-test.pd	24 Sep 2003 10:46:19 -0000	1.1
--- listbox-test.pd	9 Mar 2004 12:41:21 -0000	1.2
***************
*** 1,18 ****
! #N canvas 154 52 626 383 12;
! #X obj 281 144 widget listbox lb -width 32 -height 12 -bg black -fg
! white;
! #X obj 20 282 tow . listbox lb;
! #X obj 20 21 loadbang;
! #X msg 20 52 ini foreach fn [lsort [glob *]] .(.- insert end $fn.)
! ;
! #X obj 236 143 widget button b -text ok -height 14 -bg black -fg white
  -command .<.>;
! #X obj 112 21 tow . button b;
! #X msg 36 83 tot if .([.- curselection] != "".) .(eval .<set [.- get
! [.- curselection]].>.);
! #X msg 20 324;
! #X connect 1 0 7 0;
! #X connect 2 0 3 0;
! #X connect 3 0 1 0;
! #X connect 5 0 6 0;
  #X connect 6 0 1 0;
--- 1,24 ----
! #N canvas 445 76 626 425 12;
! #X obj 281 179 widget listbox lb -width 32 -height 12 -bg black -fg
! white @bang ::toxy::lbcommand .- .|;
! #X obj 20 295 tow . listbox lb;
! #X obj 20 23 loadbang;
! #X obj 236 179 widget button b -text ok -height 1 -bg black -fg white
  -command .<.>;
! #X obj 84 179 tow . button b;
! #X msg 20 337;
! #X msg 54 257 tot puts [.- size];
! #X msg 44 222 tot .- delete 0 end;
! #X msg 33 179 bang;
! #X msg 20 57 tot proc ::toxy::lbcommand .(path target.) .(if .([$path
! curselection] != "".) .(pd [concat $target _cb set [$path get [$path
! curselection]] .`.:].).) \, ini if .([.- size] == 0.) .(foreach fn
! [lsort [glob *]] .(.- insert end $fn.) .: bind .- <Double-Button-1>
! .(::toxy::lbcommand .- .|.).) \, @bang ::toxy::lbcommand .- .|;
! #X connect 1 0 5 0;
! #X connect 2 0 9 0;
! #X connect 4 0 1 0;
  #X connect 6 0 1 0;
+ #X connect 7 0 1 0;
+ #X connect 8 0 1 0;
+ #X connect 9 0 1 0;

Index: popup-test.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/miXed/test/toxy/popup-test.pd,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** popup-test.pd	24 Sep 2003 10:46:19 -0000	1.1
--- popup-test.pd	9 Mar 2004 12:41:21 -0000	1.2
***************
*** 1,39 ****
! #N canvas 356 9 338 241 12;
! #X obj 38 104 r rpop;
! #X floatatom 38 142 5 0 0 0 - - -;
! #X floatatom 120 142 5 0 0 0 - - -;
! #X obj 120 104 r rpop1;
! #X floatatom 210 142 5 0 0 0 - - -;
! #X obj 210 104 r rpop2;
! #N canvas 12 11 293 279 blackpanel 1;
! #X obj 23 111 widget menubutton mb -menu .-.pop -bg green -activebackground
! yellow -width 5 -text one @float if .(.#1 >= 1.) .(.-.pop invoke .#1.)
! ;
! #X obj 23 12 loadbang;
! #X obj 96 110 widget pop1 p1;
! #X obj 188 110 widget pop2 p2;
! #X msg 23 41 ini ::toxy::popup .- .| rpop [list one two three four five]
! -bg green -activebackground yellow .: destroy .^.m .: .^.scrollvert
! configure -width 0 .: .^.scrollhort configure -width 0 .: .^.c configure
! -bg black;
! #X obj 23 150 r topop;
! #X obj 96 150 r topop1;
! #X obj 188 150 r topop2;
! #X connect 1 0 4 0;
! #X connect 4 0 0 0;
! #X connect 5 0 0 0;
! #X connect 6 0 2 0;
! #X connect 7 0 3 0;
! #X restore 95 198 pd blackpanel;
! #X floatatom 38 24 5 0 0 0 - - -;
! #X floatatom 120 24 5 0 0 0 - - -;
! #X floatatom 210 24 5 0 0 0 - - -;
! #X obj 38 58 s topop;
! #X obj 120 58 s topop1;
! #X obj 210 58 s topop2;
! #X connect 0 0 1 0;
! #X connect 3 0 2 0;
! #X connect 5 0 4 0;
! #X connect 7 0 10 0;
! #X connect 8 0 11 0;
! #X connect 9 0 12 0;
--- 1,51 ----
! #N canvas 80 56 700 405 12;
! #X obj 17 17 widget popup p #items [.- config] -width 20;
! #X obj 20 130 tow . popup p;
! #X floatatom 20 71 5 0 0 0 - - -;
! #X obj 437 287 tow . popup q;
! #X obj 271 17 widget popup q -width 40;
! #X obj 20 208 t 0 0;
! #X obj 150 130 r rdefault;
! #X msg 55 249 list rdefault \$1 3;
! #X msg 20 287 list rcurrent \$1 4;
! #X msg 89 71 tot pd [concat \$1 set [lindex [.- config [lindex [lindex
! [.- config] \$2] 0]] \$3] .`.:];
! #X obj 20 170 - 1;
! #X obj 331 130 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
! 1;
! #X obj 405 130 r rcurrent;
! #X msg 150 170;
! #X msg 405 170;
! #X obj 225 213 route set;
! #X obj 331 249 random 20;
! #X msg 437 249 tot .-.pop add separator;
! #X msg 225 330 tot .-.pop add command -label \$1 .: set [.- cget -textvariable]
! \$1;
! #X obj 490 208 sel 1;
! #X obj 331 170 t 0 0;
! #X obj 331 208 metro 500;
! #X obj 225 249 route float;
! #X obj 308 287 symbol;
! #X connect 1 0 10 0;
! #X connect 2 0 1 0;
! #X connect 5 0 8 0;
! #X connect 5 1 7 0;
! #X connect 6 0 13 0;
! #X connect 7 0 9 0;
! #X connect 8 0 9 0;
! #X connect 9 0 1 0;
! #X connect 10 0 5 0;
! #X connect 11 0 20 0;
! #X connect 12 0 14 0;
! #X connect 12 0 15 0;
! #X connect 15 0 22 0;
! #X connect 16 0 8 0;
! #X connect 17 0 3 0;
! #X connect 18 0 3 0;
! #X connect 19 0 17 0;
! #X connect 20 0 21 0;
! #X connect 20 1 19 0;
! #X connect 21 0 16 0;
! #X connect 22 0 18 0;
! #X connect 22 1 23 0;
! #X connect 23 0 18 0;

Index: tclversion.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/miXed/test/toxy/tclversion.pd,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** tclversion.pd	25 Feb 2004 10:54:43 -0000	1.1
--- tclversion.pd	9 Mar 2004 12:41:21 -0000	1.2
***************
*** 1,13 ****
! #N canvas 68 131 532 301 24;
! #X obj 38 191 tot .;
  #X obj 38 29 loadbang;
! #X msg 38 138 query concat set [info tclversion];
! #X msg 38 243;
! #X obj 38 86 t b b;
! #X msg 147 191 set;
! #X connect 0 0 3 0;
  #X connect 1 0 4 0;
! #X connect 2 0 0 0;
! #X connect 4 0 2 0;
! #X connect 4 1 5 0;
! #X connect 5 0 3 0;
--- 1,20 ----
! #N canvas 68 131 662 379 24;
! #X obj 38 247 tot .;
  #X obj 38 29 loadbang;
! #X msg 38 299;
! #X msg 147 247 set;
! #X obj 38 79 t b b b;
! #X obj 231 247 tot .;
! #X msg 231 299;
! #X msg 78 188 query concat set patchlevel [info patchlevel];
! #X msg 38 138 query concat set version [info tclversion];
! #X connect 0 0 2 0;
  #X connect 1 0 4 0;
! #X connect 3 0 2 0;
! #X connect 3 0 6 0;
! #X connect 4 0 8 0;
! #X connect 4 1 7 0;
! #X connect 4 2 3 0;
! #X connect 5 0 6 0;
! #X connect 7 0 5 0;
! #X connect 8 0 0 0;

--- default.wid DELETED ---





More information about the Pd-cvs mailing list