aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorN.N. <krzyszcz@users.sourceforge.net>2004-03-16 12:13:54 +0000
committerN.N. <krzyszcz@users.sourceforge.net>2004-03-16 12:13:54 +0000
commit88b4da18ab484ea55f4a58174bf0ccebe0088f24 (patch)
treed11d880101338a255fabd9754cc88d5a67d63656
parent8371b58732b1368c59966e68f9eb16b5d9210921 (diff)
toxy alpha8
svn path=/trunk/externals/miXed/; revision=1425
-rw-r--r--Makefile2
-rw-r--r--Makefile.common2
-rw-r--r--cyclone/hammer/zl.c2
-rwxr-xr-xquoteinitializer13
-rw-r--r--shared/toxy/scriptlet.c2
-rw-r--r--test/toxy/kb.wid2
-rw-r--r--test/toxy/multiscale-test.pd24
-rw-r--r--test/toxy/multiscale.wid18
-rw-r--r--test/toxy/setup.wid155
-rw-r--r--toxy/Makefile14
-rw-r--r--toxy/build_counter2
-rw-r--r--toxy/widget.c9
-rw-r--r--toxy/widgettype.c2
13 files changed, 123 insertions, 124 deletions
diff --git a/Makefile b/Makefile
index 048ad44..86c1ce4 100644
--- a/Makefile
+++ b/Makefile
@@ -16,7 +16,7 @@ diff depend emptydeps:
ALLSRC_TAR = release/miXed-`date +%F`-src.tar
ALLSRC_ROOTFILES = LICENSE.txt Makefile.common Makefile Makefile.dirs \
- dumpsetups quoteinitializer
+ dumpsetups
snap release:
@for i in $(RELEASE_DIRS) ; \
diff --git a/Makefile.common b/Makefile.common
index 52a29a3..da2aa7f 100644
--- a/Makefile.common
+++ b/Makefile.common
@@ -247,7 +247,7 @@ REL_EXTERNS = $(foreach fn,$(CX_NAMES:.c=.$(X_SUFFIX)),$(REL_BINDIR)/$(fn)) \
$(foreach type,$(TYPES),\
$(foreach fn,$(call TYPES_EXTERNS,$(type)),$(REL_BINDIR)/$(fn)))
-REL_ROOTSRC = LICENSE.txt Makefile.common dumpsetups quoteinitializer
+REL_ROOTSRC = LICENSE.txt Makefile.common dumpsetups
srelease: emptydeps define_build
cd $(ROOT_DIR)/shared; $(MAKE) emptydeps
diff --git a/cyclone/hammer/zl.c b/cyclone/hammer/zl.c
index 59e8f84..3b00b48 100644
--- a/cyclone/hammer/zl.c
+++ b/cyclone/hammer/zl.c
@@ -2,6 +2,8 @@
* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "LICENSE.txt," in this distribution. */
+/* FIXME zl sub */
+
#include <string.h>
#include "m_pd.h"
#include "common/loud.h"
diff --git a/quoteinitializer b/quoteinitializer
deleted file mode 100755
index 6d4716d..0000000
--- a/quoteinitializer
+++ /dev/null
@@ -1,13 +0,0 @@
-#!/usr/bin/gawk -f
-
-BEGIN\
-{
- print "// Do not edit this file (edit \""ARGV[1]"\", and run \"make\").\n"
- if (ARGC > 2) { print ARGV[2]; ARGC = 2 }
-}
-
-{
- gsub("\\\\", "\\\\");
- gsub("\\\"", "\\\"");
- print "\""$0"\\n\""
-}
diff --git a/shared/toxy/scriptlet.c b/shared/toxy/scriptlet.c
index b21f51a..954c596 100644
--- a/shared/toxy/scriptlet.c
+++ b/shared/toxy/scriptlet.c
@@ -348,7 +348,7 @@ static int scriptlet_addstring(t_scriptlet *sp, char *ibuf,
{
int result = 1;
char *bp = ibuf, *ep = ibuf, *ep1;
- char dotbuf[64]; /* LATER reestimation */
+ char dotbuf[256]; /* FIXME requires a growable per-scriptlet buffer. */
if (!sp->s_separator)
sp->s_separator = ' ';
while (*ep)
diff --git a/test/toxy/kb.wid b/test/toxy/kb.wid
index 9a64d70..bfba5ac 100644
--- a/test/toxy/kb.wid
+++ b/test/toxy/kb.wid
@@ -59,5 +59,5 @@ proc ::toxy::kbset {path target remote value} {
::toxy::kb .- .| . .#oct .#size
-# undo the "bind Canvas <1> {+focus %W}" in the setup part above
+# undo the "bind Canvas <1> {+focus %W}" from the setup.wid
bind .- <FocusIn> {focus .^.c}
diff --git a/test/toxy/multiscale-test.pd b/test/toxy/multiscale-test.pd
index cde36a8..9776d27 100644
--- a/test/toxy/multiscale-test.pd
+++ b/test/toxy/multiscale-test.pd
@@ -1,33 +1,35 @@
#N canvas 39 49 800 548 12;
#X obj 25 84 widget multiscale m1 #n 50 #dx 15 #dy 90;
-#X obj 25 260 widget multiscale m2 #bg red #dy 120;
+#X obj 25 326 widget multiscale m2 #bg red #dy 120;
#X msg 25 52 #n \$1;
#X floatatom 25 23 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 coords 0 100 49 0 400 140 1;
#X restore 296 206 graph;
-#X obj 265 509 tabwrite t;
-#X obj 27 408 unpack;
-#X floatatom 27 445 5 0 0 0 - - -;
-#X floatatom 100 445 5 0 0 0 - - -;
-#X floatatom 109 196 5 0 0 0 - - -;
-#X obj 589 509 tabread t;
+#X obj 265 511 tabwrite t;
+#X obj 25 474 unpack;
+#X floatatom 25 511 5 0 0 0 - - -;
+#X floatatom 98 511 5 0 0 0 - - -;
+#X floatatom 94 199 5 0 0 0 - - -;
+#X obj 589 511 tabread t;
#X obj 589 477 t 0 0;
#X obj 589 413 until;
#X obj 265 477 tow . multiscale m1;
#X obj 589 381 r rcount;
#X obj 589 445 int;
#X obj 629 445 + 1;
-#X obj 527 510 pack;
+#X obj 527 511 pack;
#X msg 265 445 tot pd [concat rcount .#n .`.:];
#X obj 265 408 t b b;
-#X msg 653 414 0;
+#X msg 653 413 0;
#X obj 127 23 widget button b -command .<.> -bg yellow -width 3 -height
2;
#X obj 265 372 tow . button b;
#X obj 25 228 pack;
#X floatatom 25 199 5 0 0 0 - - -;
+#X msg 95 282 #hi \$1;
+#X floatatom 95 246 5 0 0 0 - - -;
#X connect 1 0 6 0;
#X connect 2 0 0 0;
#X connect 3 0 2 0;
@@ -52,3 +54,5 @@
#X connect 22 0 19 0;
#X connect 23 0 1 0;
#X connect 24 0 23 0;
+#X connect 25 0 1 0;
+#X connect 26 0 25 0;
diff --git a/test/toxy/multiscale.wid b/test/toxy/multiscale.wid
index be56d2b..18f5603 100644
--- a/test/toxy/multiscale.wid
+++ b/test/toxy/multiscale.wid
@@ -1,4 +1,4 @@
-proc ::toxy::multiscalecommand {target sel ndx v} {
+proc ::toxy::multiscale_command {target sel ndx v} {
pd [concat $target $sel $v $ndx \;]
}
@@ -14,7 +14,7 @@ proc ::toxy::multiscale_list {path count ndx v} {
}
}
-proc ::toxy::multiscale {path target remote count dx dy bg} {
+proc ::toxy::multiscale {path cvpath target remote count lo hi res dx dy bg} {
if {[winfo exists $path.s0]} {
# puts stderr [concat $path.s0 exists]
} else {
@@ -25,9 +25,9 @@ proc ::toxy::multiscale {path target remote count dx dy bg} {
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 \
+ -from $hi -to $lo -resolution $res \
-bg $bg -highlightthickness 0 \
- -command [concat ::toxy::multiscalecommand $target _cb $ndx]
+ -command [concat ::toxy::multiscale_command $target _cb $ndx]
if {$dx < 50} {
$path.s$ndx config -showvalue 0 -relief flat
} else {
@@ -35,19 +35,21 @@ proc ::toxy::multiscale {path target remote count dx dy bg} {
}
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
+ ::toxy::master $path.s$ndx $path $cvpath $target
incr px $dx
}
}
}
#> multiscale canvas
-#. #n 3 #dx 60 #dy 90
+# FIXME fractional resolution: scalePtr->value == value fails in TkScaleSetValue
+#. #n 3 #lo 0 #hi 100 #res 1
+#. #dx 60 #dy 90
#. #bg yellow
#. @float ::toxy::multiscale_float .- .| .#n .#1
#. @list ::toxy::multiscale_list .- .#n .#2 .#1
-::toxy::multiscale .- .| . .#n .#dx .#dy .#bg
+::toxy::multiscale .- .^.c .| . .#n .#lo .#hi .#res .#dx .#dy .#bg
-# undo the "bind Canvas <1> {+focus %W}" in the setup part above
+# undo the "bind Canvas <1> {+focus %W}" from the setup.wid
bind .- <FocusIn> {focus .^.c}
diff --git a/test/toxy/setup.wid b/test/toxy/setup.wid
index 9f66b61..f5aff1c 100644
--- a/test/toxy/setup.wid
+++ b/test/toxy/setup.wid
@@ -11,21 +11,21 @@ bind Canvas <1> {+focus %W}
# (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} {
+proc ::toxy::item_dotrace {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] }
+ } else { puts stderr [concat failed ::toxy::item_dotrace: $res] }
}
-proc ::toxy::itembindtrace {varname mastername ndxname op} {
+proc ::toxy::item_bindtrace {varname mastername ndxname op} {
set $varname [set $mastername]
}
-proc ::toxy::itemsettrace {op path target varname} {
+proc ::toxy::item_settrace {op path target varname} {
if {[catch {$path cget $op} res] == 0} {
if {$res == ""} {
if {[catch {$path config $op $varname} err]} {
@@ -33,23 +33,23 @@ proc ::toxy::itemsettrace {op path target varname} {
}
} else {
if {[info tclversion] < 8.4} {
- trace variable $res w "::toxy::itembindtrace $varname"
+ trace variable $res w "::toxy::item_bindtrace $varname"
} else {
- trace add variable $res write "::toxy::itembindtrace $varname"
+ trace add variable $res write "::toxy::item_bindtrace $varname"
}
}
if {![info exists $varname.last]} { set $varname.last "" }
if {[info tclversion] < 8.4} {
- trace variable $varname w "::toxy::itemdotrace $target"
+ trace variable $varname w "::toxy::item_dotrace $target"
} else {
- trace add variable $varname write "::toxy::itemdotrace $target"
+ trace add variable $varname write "::toxy::item_dotrace $target"
}
return
} else { return 0 }
}
# LATER revisit -- seems clumsy and fragile
-proc ::toxy::itemremovetrace {op path varname} {
+proc ::toxy::item_removetrace {op path varname} {
if {[catch {$path cget $op} res] == 0} {
if {$res == $varname} {
if {[catch {$path config $op ""} err]} {
@@ -57,18 +57,18 @@ proc ::toxy::itemremovetrace {op path varname} {
}
} elseif {$res != ""} {
if {[info tclversion] < 8.4} {
- catch { trace vdelete $res w "::toxy::itembindtrace $varname" }
+ catch { trace vdelete $res w "::toxy::item_bindtrace $varname" }
} else {
catch { trace remove variable \
- $res write "::toxy::itembindtrace $varname" }
+ $res write "::toxy::item_bindtrace $varname" }
}
}
}
}
-proc ::toxy::itemdestroy {path varname} {
- ::toxy::itemremovetrace -variable $path $varname.var
- ::toxy::itemremovetrace -textvariable $path $varname.txt
+proc ::toxy::item_destroy {path varname} {
+ ::toxy::item_removetrace -variable $path $varname.var
+ ::toxy::item_removetrace -textvariable $path $varname.txt
if {[info tclversion] < 8.4} {
catch { unset $varname.last $varname.var $varname.txt $varname }
} else {
@@ -77,13 +77,13 @@ proc ::toxy::itemdestroy {path varname} {
catch {destroy $path}
}
-proc ::toxy::itemgetconfig {path target} {
+proc ::toxy::item_getconfig {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} {
+proc ::toxy::item_visconfig {path target name varname cvpath px py} {
if {[info exists ::toxy::itemoptions]} {
set failed [catch {eval $path config $::toxy::itemoptions} res]
unset ::toxy::itemoptions
@@ -98,17 +98,18 @@ proc ::toxy::itemvisconfig {path target name varname cvpath px py} {
# FIXME explicit traces
set needtraces 0
} else {
- set needtraces 1
+# set needtraces 1
+ set needtraces 0
}
if {$needtraces != 0} {
- if {[catch {::toxy::itemsettrace -variable \
+ if {[catch {::toxy::item_settrace -variable \
$path $target $varname.var} res1]} {
- error [concat in ::toxy::itemsettrace: $res1]
+ error [concat in ::toxy::item_settrace: $res1]
}
- if {[catch {::toxy::itemsettrace -textvariable \
+ if {[catch {::toxy::item_settrace -textvariable \
$path $target $varname.txt} res2]} {
- error [concat in ::toxy::itemsettrace: $res2]
+ error [concat in ::toxy::item_settrace: $res2]
}
# puts stderr [concat traces: ($res1) ($res2)]
if {$res1 == 0 && $res2 == 0} {
@@ -132,12 +133,12 @@ proc ::toxy::itemvisconfig {path target name varname cvpath px py} {
if {$failed} { error [concat in ::toxy::iteminits: $res] }
}
- ::toxy::itemgetconfig $path $target
+ ::toxy::item_getconfig $path $target
return
}
-proc ::toxy::itemvis {tkclass path target name varname cvpath px py} {
+proc ::toxy::item_vis {tkclass path target name varname cvpath px py} {
if {[winfo exists $path]} {
# puts stderr [concat $path exists]
set ::toxy::itemfailure 0
@@ -145,7 +146,7 @@ proc ::toxy::itemvis {tkclass path target name varname cvpath px py} {
set ::toxy::itemfailure [catch {$tkclass $path} ::toxy::itemerrmess]
}
if {$::toxy::itemfailure == 0} {
- set ::toxy::itemfailure [catch {::toxy::itemvisconfig \
+ set ::toxy::itemfailure [catch {::toxy::item_visconfig \
$path $target $name $varname $cvpath $px $py} \
::toxy::itemerrmess]
}
@@ -156,12 +157,58 @@ proc ::toxy::itemvis {tkclass path target name varname cvpath px py} {
}
}
+# 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::item_click {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::item_inout {target v} {
+ pd [concat $target.rp _inout $v \;]
+}
+
+proc ::toxy::master_release {target cvpath x y b} {
+ ::toxy::item_inout $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::master_motion {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::master {path toppath cvpath target} {
+# FIXME subitem handling in megawidgets
+ bind $path <ButtonRelease> "::toxy::master_release $target $cvpath %X %Y %b"
+ bind $path <1> "::toxy::item_click $target $cvpath %X %Y %b 0"
+ bind $path <Shift-1> "::toxy::item_click $target $cvpath %X %Y %b 1"
+ bind $path <Control-1> "::toxy::item_click $target $cvpath %X %Y %b 2"
+ bind $path <Control-Shift-1> "::toxy::item_click $target $cvpath %X %Y %b 3"
+ bind $path <Alt-1> "::toxy::item_click $target $cvpath %X %Y %b 4"
+ bind $path <Alt-Shift-1> "::toxy::item_click $target $cvpath %X %Y %b 5"
+ bind $path <Alt-Control-1> "::toxy::item_click $target $cvpath %X %Y %b 6"
+ bind $path <Alt-Control-Shift-1> \
+ "::toxy::item_click $target $cvpath %X %Y %b 7"
+ bind $path <3> "::toxy::item_click $target $cvpath %X %Y %b 8"
+
+ bind $path <Motion> "::toxy::master_motion $target $cvpath %X %Y"
+ bind $path <Enter> "::toxy::item_inout $target 1"
+ bind $path <Leave> "::toxy::item_inout $target 0"
+}
+
# FIXME
-proc ::toxy::scalecommand {target sel v} {
+proc ::toxy::scale_command {target sel v} {
pd [concat $target $sel $v \;]
}
-proc ::toxy::popupcommand {path target remote i text} {
+proc ::toxy::popup_command {path target remote i text} {
set [$path cget -textvariable] $text
pd [concat $target _cb $i \;]
if {$remote != "."} {
@@ -180,7 +227,7 @@ proc ::toxy::popup {path target remote entries args} {
} else {
incr i
$path.pop add command -label [lindex $e 0] \
- -command [concat ::toxy::popupcommand \
+ -command [concat ::toxy::popup_command \
$path $target $remote $i \
[lindex $e [expr {[llength $e] > 1}]]]
}
@@ -188,60 +235,10 @@ proc ::toxy::popup {path target remote entries args} {
} 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
+::toxy::master .- .- .^.c .|
# standard widget types
@@ -251,7 +248,7 @@ proc ::toxy::masterinit {path target cvpath} {
#. @bang .- flash .: .- invoke
#> float scale
-#. -command [concat ::toxy::scalecommand .| _cb]
+#. -command [concat ::toxy::scale_command .| _cb]
#. -bg pink -activebackground red -length 200
#. @float .- set .#1
diff --git a/toxy/Makefile b/toxy/Makefile
index 44e8206..4ae80d2 100644
--- a/toxy/Makefile
+++ b/toxy/Makefile
@@ -1,13 +1,19 @@
ROOT_DIR = ..
-WIQFILE = setup.wiq
+WIDPATH = $(ROOT_DIR)/test/toxy/setup.wid
+WIQFILE = $(notdir $(WIDPATH:.wid=.wiq))
redefault: checkwiq $(WIQFILE) default
checkwiq:
@if [ -f $(WIQFILE) ] && ! [ -s $(WIQFILE) ] ; then \
echo ERROR: empty file $(WIQFILE)... removed ; \
rm -f $(WIQFILE) ; fi
-$(WIQFILE): $(ROOT_DIR)/test/toxy/$(WIQFILE:.wiq=.wid)
- $(ROOT_DIR)/quoteinitializer $< \
- '"puts stderr [concat loading built-in widget definitions]\n"' > $@
+$(WIQFILE): $(WIDPATH)
+ @echo transferring widget definitions from \"$<\" to \"$@\"
+ @cat $< | sed \
+-e '1i// Do not edit this file (edit \"$<\", and run \"make\").' \
+-e '1i//' \
+-e '1i\"puts stderr [concat loading built-in widget definitions]\\n\"' \
+-e 's/\([\\\"]\)/\\\1/g' \
+-e 's/^.*$$/\"&\\n\"/' > $@
@if [ -f $(WIQFILE) ] && ! [ -s $(WIQFILE) ] ; then \
echo ERROR: quoteinitializer failed... $(WIQFILE) removed ; \
rm -f $(WIQFILE) ; fi
diff --git a/toxy/build_counter b/toxy/build_counter
index 553acb4..2c83711 100644
--- a/toxy/build_counter
+++ b/toxy/build_counter
@@ -1,3 +1,3 @@
#define TOXY_VERSION "0.1"
#define TOXY_RELEASE "alpha"
-#define TOXY_BUILD 7
+#define TOXY_BUILD 8
diff --git a/toxy/widget.c b/toxy/widget.c
index 63797df..f75b991 100644
--- a/toxy/widget.c
+++ b/toxy/widget.c
@@ -239,6 +239,7 @@ static void widget_displace(t_gobj *z, t_glist *glist, int dx, int dy)
canvas_fixlinesfor(glist_getcanvas(glist), t);
}
+/* LATER handle subitems */
static void widget_select(t_gobj *z, t_glist *glist, int flag)
{
t_widget *x = (t_widget *)z;
@@ -313,7 +314,7 @@ static void widget_pushinits(t_widget *x)
static void widget_getconfig(t_widget *x)
{
- sys_vgui("::toxy::itemgetconfig %s %s\n",
+ sys_vgui("::toxy::item_getconfig %s %s\n",
widget_getmypathname(x, x->x_glist)->s_name,
x->x_cbtarget->s_name);
}
@@ -334,7 +335,7 @@ static void widget_vis(t_gobj *z, t_glist *glist, int vis)
#endif
widget_pushoptions(x, 0);
widget_pushinits(x);
- sys_vgui("::toxy::itemvis %s %s %s %s %s %s %g %g\n",
+ sys_vgui("::toxy::item_vis %s %s %s %s %s %s %g %g\n",
x->x_tkclass->s_name, mypathname,
x->x_cbtarget->s_name, x->x_name->s_name,
x->x_varname->s_name, cvpathname, px1, py1);
@@ -431,7 +432,7 @@ static t_widgetbehavior widget_behavior =
static void widget_novis(t_widget *x)
{
- sys_vgui("::toxy::itemdestroy %s %s\n",
+ sys_vgui("::toxy::item_destroy %s %s\n",
widget_getmypathname(x, x->x_glist)->s_name, x->x_varname->s_name);
}
@@ -706,6 +707,7 @@ static void widget__failure(t_widget *x, t_symbol *s, int ac, t_atom *av)
clock_delay(x->x_transclock, 0);
}
+/* LATER handle subitems */
static void widget__config(t_widget *x, t_symbol *target, t_symbol *bg,
t_floatarg fw, t_floatarg fh, t_floatarg fst)
{
@@ -751,6 +753,7 @@ static void widget__callback(t_widget *x, t_symbol *s, int ac, t_atom *av)
}
/* see also widget_select() */
+/* LATER handle subitems */
static void widget__inout(t_widget *x, t_floatarg f)
{
int disable = (int)f && x->x_glist->gl_edit;
diff --git a/toxy/widgettype.c b/toxy/widgettype.c
index f9a6f46..4541947 100644
--- a/toxy/widgettype.c
+++ b/toxy/widgettype.c
@@ -2,8 +2,6 @@
* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "LICENSE.txt," in this distribution. */
-/* FIXME .#iprops crash */
-
#include <stdio.h>
#include <string.h>
#include "m_pd.h"