[PD-cvs] externals/unauthorized/scrolllist CHANGES.LOG, NONE, 1.1 INSTALL, NONE, 1.1 Makefile, NONE, 1.1 README, NONE, 1.1 Untitled-1.pd, NONE, 1.1 ave-lucifer.txt, NONE, 1.1 help-scrolllist.pd, NONE, 1.1 scrolllist.c, NONE, 1.1 scrolllist.pd_linux, NONE, 1.1 scrolllist.tk, NONE, 1.1 scrolllist.tk2c, NONE, 1.1 tk2c.bash, NONE, 1.1 yesterday.txt, NONE, 1.1
Yves Degoyon
sevyves at users.sourceforge.net
Sat Nov 19 04:44:31 CET 2005
Update of /cvsroot/pure-data/externals/unauthorized/scrolllist
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18936/scrolllist
Added Files:
CHANGES.LOG INSTALL Makefile README Untitled-1.pd
ave-lucifer.txt help-scrolllist.pd scrolllist.c
scrolllist.pd_linux scrolllist.tk scrolllist.tk2c tk2c.bash
yesterday.txt
Log Message:
scrolllist 0.1
--- NEW FILE: scrolllist.c ---
/*---------------------- scrolllist~ ------------------------------------------ */
/* */
/* scrolllist~ : scrolling list of text items */
/* constructor : scrolllist | scrolllist <capacity> <width> <height> */
/* */
/* Copyleft Yves Degoyon ( ydegoyon at free.fr ) */
/* */
/* This program is free software; you can redistribute it and/or */
/* modify it under the terms of the GNU General Public License */
/* as published by the Free Software Foundation; either version 2 */
/* of the License, or (at your option) any later version. */
/* */
/* See file LICENSE for further informations on licensing terms. */
/* */
/* This program is distributed in the hope that it will be useful, */
/* but WITHOUT ANY WARRANTY; without even the implied warranty of */
/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
/* GNU General Public License for more details. */
/* */
[...961 lines suppressed...]
scrolllist_widgetbehavior.w_getrectfn = scrolllist_getrect;
scrolllist_widgetbehavior.w_displacefn = scrolllist_displace;
scrolllist_widgetbehavior.w_selectfn = scrolllist_select;
scrolllist_widgetbehavior.w_activatefn = NULL;
scrolllist_widgetbehavior.w_deletefn = scrolllist_deleteobj;
scrolllist_widgetbehavior.w_visfn = scrolllist_vis;
scrolllist_widgetbehavior.w_clickfn = scrolllist_click;
#if PD_MINOR_VERSION >= 37
class_setpropertiesfn(scrolllist_class, scrolllist_properties);
class_setsavefn(scrolllist_class, scrolllist_save);
#else
scrolllist_widgetbehavior.w_propertiesfn = scrolllist_properties;
scrolllist_widgetbehavior.w_savefn = scrolllist_save;
#endif
class_setwidget(scrolllist_class, &scrolllist_widgetbehavior);
class_sethelpsymbol(scrolllist_class, gensym("help-scrolllist.pd"));
}
--- NEW FILE: scrolllist.pd_linux ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: ave-lucifer.txt ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: help-scrolllist.pd ---
#N canvas 38 85 936 562 10;
#X text 574 514 scrolllist 100 200 200;
#X text 576 527 scrolllist;
#X text 500 515 Examples :;
#X text 72 507 Comments and bugs @ ydegoyon at free.fr;
#X symbolatom 26 481 30 0 0 0 - - -;
#X text 472 332 Note : you can scroll the list by dragging;
#X msg 67 79 seek \$1;
#X floatatom 127 81 5 0 0 0 - - -;
#X text 444 129 Change the font;
#X msg 116 129 font Helvetica normal 14;
#X msg 297 129 font Courier bold 24;
#X msg 128 157 scroll 200;
#X msg 209 157 scroll -200;
#X text 300 156 Scrolling by numbers for the laziest;
#X obj 254 183 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X msg 164 183 graphics \$1;
#X text 383 183 Show or hide graphics;
#X msg 277 182 1;
#X obj 310 183 loadbang;
#X text 498 469 Scrollist lets you display text items in a patch window
;
#X text 498 486 Constructor : scrolllist <capacity> <width> <height>
| scrolllist ( defaults 100 400 200 );
#X text 168 73 You can seek in the text list;
#X text 168 86 It behaves as a circular list;
#X text 142 104 Sort the text items;
#X text 248 481 Selected text item;
#X text 470 397 with the "Properties" dialog;
#X text 470 383 You can change all the properties of the object;
#X msg 612 57 add \$1;
#X text 666 58 add a text;
#X obj 612 32 l2s;
#X text 808 90 insert a text;
#X msg 742 89 dystopia;
#X msg 612 7 the aesthetics of our anger;
#X msg 734 115 atacama;
#X text 797 115 replace a text;
#X text 828 149 delete a text;
#X msg 611 89 insert \$1 3;
#X obj 709 89 l2s;
#X obj 705 115 l2s;
#X msg 610 115 replace \$1 3;
#X msg 612 149 delete \$1;
#X obj 692 149 hradio 15 1 0 8 empty empty empty 0 -6 0 8 -262144 -1
-1 0;
#X obj 555 269 textfile;
#X msg 585 236 read yesterday.txt cr;
#X msg 620 270 rewind;
#X obj 527 269 l2s;
#X msg 525 236 add \$1;
#X obj 748 216 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 747 237 metro 1000;
#X obj 35 222 scrolllist 25 400 200 {Helvetica 12 normal} black green
#904562;
#X text 470 343 the mouse in the text area;
#X msg 33 57 clear;
#X text 79 57 clear all;
#X obj 482 270 t b;
#X text 746 270 read a full text;
#X msg 481 295 scroll 12;
#X obj 585 213 loadbang;
#X obj 73 237 r smsg;
#X obj 62 383 s somsg;
#X obj 26 455 r somsg;
#X obj 14 176 s smsg;
#X obj 557 295 s smsg;
#X obj 573 176 s smsg;
#X msg 95 105 sort;
#X msg 617 295 read ave-lucifer.txt cr;
#X connect 6 0 60 0;
#X connect 7 0 6 0;
#X connect 9 0 60 0;
#X connect 10 0 60 0;
#X connect 11 0 60 0;
#X connect 12 0 60 0;
#X connect 14 0 15 0;
#X connect 15 0 60 0;
#X connect 17 0 14 0;
#X connect 18 0 17 0;
#X connect 27 0 62 0;
#X connect 29 0 27 0;
#X connect 31 0 37 0;
#X connect 32 0 29 0;
#X connect 33 0 38 0;
#X connect 36 0 62 0;
#X connect 37 0 36 0;
#X connect 38 0 39 0;
#X connect 39 0 62 0;
#X connect 40 0 62 0;
#X connect 41 0 40 0;
#X connect 42 0 45 0;
#X connect 42 1 44 0;
#X connect 43 0 42 0;
#X connect 44 0 42 0;
#X connect 45 0 46 0;
#X connect 46 0 53 0;
#X connect 46 0 61 0;
#X connect 47 0 48 0;
#X connect 48 0 42 0;
#X connect 49 0 58 0;
#X connect 51 0 60 0;
#X connect 53 0 55 0;
#X connect 55 0 61 0;
#X connect 56 0 43 0;
#X connect 57 0 49 0;
#X connect 59 0 4 0;
#X connect 63 0 60 0;
#X connect 64 0 42 0;
--- NEW FILE: Makefile ---
NAME=scrolllist
CSYM=scrolllist
current: pd_linux
INCLUDE = -I../../src
# ----------------------- Mac OSX -----------------------
pd_darwin: $(NAME).pd_darwin
.SUFFIXES: .pd_darwin
DARWINCFLAGS = -DPD -O2 -Wall -W -Wshadow -Wstrict-prototypes \
-Wno-unused -Wno-parentheses -Wno-switch
.c.pd_darwin:
cc $(DARWINCFLAGS) $(INCLUDE) -o $*.o -c $*.c
cc -bundle -undefined suppress -flat_namespace -o $*.pd_darwin $*.o
rm -f $*.o ../$*.pd_darwin
ln -s $*/$*.pd_darwin ..
# ----------------------- LINUX i386 -----------------------
pd_linux: $(NAME).pd_linux
.SUFFIXES: .pd_linux
LINUXCFLAGS = -DPD -DUNIX -O2 -funroll-loops -fomit-frame-pointer \
-Wall -W -Wno-shadow -Wstrict-prototypes \
-Wno-unused -Wno-parentheses -Wno-switch -Werror -g
.c.pd_linux:
./tk2c.bash < $*.tk > $*.tk2c
gcc $(LINUXCFLAGS) $(INCLUDE) -o $*.o -c $*.c
ld -export_dynamic -shared -o $*.pd_linux $*.o -lc -lm
strip --strip-unneeded $*.pd_linux
rm -f $*.o ../$*.pd_linux
ln -s $*/$*.pd_linux ..
# ----------------------------------------------------------
install:
cp help-*.pd ../../doc/5.reference
clean:
rm -f *.o *.pd_* so_locations
--- NEW FILE: tk2c.bash ---
#!/bin/bash
#set -x
while read line
do
for word in $line
do
if [ "X"$word != "X"${word#\#} ]
then
echo // ${line#\#}
break
else
line=${line//\'/\\\'}
#useless, slashes never gets in
line=${line//\\/\\\\}
#this one's dirty, i know
line=${line//;/\\\\;}
line=${line//\"/\\\"}
echo 'sys_gui("'$line'\n");'
break
fi
done
done
--- NEW FILE: scrolllist.tk ---
############ scrolllist procedures -- ydegoyon at free.fr #########
proc scrolllist_apply {id} {
# strip "." from the TK id to make a variable name suffix
set vid [string trimleft $id .]
# for each variable, make a local variable to hold its name...
set var_graph_capacity [concat graph_capacity_$vid]
global $var_graph_capacity
set var_graph_width [concat graph_width_$vid]
global $var_graph_width
set var_graph_height [concat graph_height$vid]
global $var_graph_height
set var_graph_font [concat graph_font$vid]
global $var_graph_font
set var_graph_bgcolor [concat graph_bgcolor$vid]
global $var_graph_bgcolor
set var_graph_fgcolor [concat graph_fgcolor$vid]
global $var_graph_fgcolor
set var_graph_secolor [concat graph_secolor$vid]
global $var_graph_secolor
set cmd [concat $id dialog \
[eval concat $$var_graph_capacity] \
[eval concat $$var_graph_width] \
[eval concat $$var_graph_height] \
[eval concat $$var_graph_font] \
[eval concat $$var_graph_bgcolor] \
[eval concat $$var_graph_fgcolor] \
[eval concat $$var_graph_secolor] \
\;]
#puts stderr $cmd
pd $cmd
}
proc scrolllist_cancel {id} {
set cmd [concat $id cancel \;]
#puts stderr $cmd
pd $cmd
}
proc scrolllist_ok {id} {
scrolllist_apply $id
scrolllist_cancel $id
}
proc pdtk_scrolllist_dialog {id capacity width height font bgcolor fgcolor secolor} {
set vid [string trimleft $id .]
set var_graph_capacity [concat graph_capacity_$vid]
global $var_graph_capacity
set var_graph_width [concat graph_width_$vid]
global $var_graph_width
set var_graph_height [concat graph_height$vid]
global $var_graph_height
set var_graph_font [concat graph_font$vid]
global $var_graph_font
set var_graph_bgcolor [concat graph_bgcolor$vid]
global $var_graph_bgcolor
set var_graph_fgcolor [concat graph_fgcolor$vid]
global $var_graph_fgcolor
set var_graph_secolor [concat graph_secolor$vid]
global $var_graph_secolor
set $var_graph_capacity $capacity
set $var_graph_width $width
set $var_graph_height $height
set $var_graph_font $font
set $var_graph_bgcolor $bgcolor
set $var_graph_fgcolor $fgcolor
set $var_graph_secolor $secolor
toplevel $id
wm title $id {scrolllist}
wm protocol $id WM_DELETE_WINDOW [concat scrolllist_cancel $id]
label $id.label -text {SCROLLLIST PROPERTIES}
pack $id.label -side top
frame $id.buttonframe
pack $id.buttonframe -side bottom -fill x -pady 2m
button $id.buttonframe.cancel -text {Cancel}\
-command "scrolllist_cancel $id"
button $id.buttonframe.apply -text {Apply}\
-command "scrolllist_apply $id"
button $id.buttonframe.ok -text {OK}\
-command "scrolllist_ok $id"
pack $id.buttonframe.cancel -side left -expand 1
pack $id.buttonframe.apply -side left -expand 1
pack $id.buttonframe.ok -side left -expand 1
frame $id.1rangef
pack $id.1rangef -side top
label $id.1rangef.lcapacity -text "Capacity :"
entry $id.1rangef.capacity -textvariable $var_graph_capacity -width 7
pack $id.1rangef.lcapacity $id.1rangef.capacity -side left
frame $id.2rangef
pack $id.2rangef -side top
label $id.2rangef.lwidth -text "Width :"
entry $id.2rangef.width -textvariable $var_graph_width -width 7
pack $id.2rangef.lwidth $id.2rangef.width -side left
frame $id.3rangef
pack $id.3rangef -side top
label $id.3rangef.lheight -text "Height :"
entry $id.3rangef.height -textvariable $var_graph_height -width 7
pack $id.3rangef.lheight $id.3rangef.height -side left
frame $id.3_5rangef
pack $id.3_5rangef -side top
label $id.3_5rangef.lfont -text "Font :"
entry $id.3_5rangef.font -textvariable $var_graph_font -width 30
pack $id.3_5rangef.lfont $id.3_5rangef.font -side left
frame $id.4rangef
pack $id.4rangef -side top
label $id.4rangef.lbgcolor -text "Background Color :"
entry $id.4rangef.bgcolor -textvariable $var_graph_bgcolor -width 7
pack $id.4rangef.lbgcolor $id.4rangef.bgcolor -side left
frame $id.5rangef
pack $id.5rangef -side top
label $id.5rangef.lfgcolor -text "Foreground Color :"
entry $id.5rangef.fgcolor -textvariable $var_graph_fgcolor -width 7
pack $id.5rangef.lfgcolor $id.5rangef.fgcolor -side left
frame $id.6rangef
pack $id.6rangef -side top
label $id.6rangef.lsecolor -text "Selection Color :"
entry $id.6rangef.secolor -textvariable $var_graph_secolor -width 7
pack $id.6rangef.lsecolor $id.6rangef.secolor -side left
bind $id.1rangef.capacity <KeyPress-Return> [concat scrolllist_ok $id]
bind $id.2rangef.width <KeyPress-Return> [concat scrolllist_ok $id]
bind $id.3rangef.height <KeyPress-Return> [concat scrolllist_ok $id]
bind $id.3_5rangef.font <KeyPress-Return> [concat scrolllist_ok $id]
bind $id.4rangef.bgcolor <KeyPress-Return> [concat scrolllist_ok $id]
bind $id.5rangef.fgcolor <KeyPress-Return> [concat scrolllist_ok $id]
bind $id.6rangef.secolor <KeyPress-Return> [concat scrolllist_ok $id]
}
############ scrolllist procedures END -- ydegoyon at free.fr #########
--- NEW FILE: yesterday.txt ---
Yesterday
All those backups seemed a waste of pay.
Now my database has gone away.
Oh I believe in yesterday.
Suddenly,
There's not half the files there used to be,
And there's a milestone
hanging over me
The system crashed so suddenly.
I pushed something wrong
What it was I could not say.
Now all my data's gone
and I long for yesterday-ay-ay-ay.
Yesterday,
The need for back-ups seemed so far away.
I knew my data was all here to stay,
Now I believe in yesterday.
Yesterday
All those backups seemed a waste of pay.
Now my database has gone away.
Oh I believe in yesterday.
Suddenly,
There's not half the files there used to be,
And there's a milestone
hanging over me
The system crashed so suddenly.
I pushed something wrong
What it was I could not say.
Now all my data's gone
and I long for yesterday-ay-ay-ay.
Yesterday,
The need for back-ups seemed so far away.
I knew my data was all here to stay,
Now I believe in yesterday.
--- NEW FILE: Untitled-1.pd ---
#N canvas 0 0 999 679 10;
#N canvas 0 0 450 300 sub 1;
#X obj -24 -13 scrolllist 100 400 200 {Helvetica 10 bold} white black
red;
#X msg 123 227 graphics 0;
#X connect 1 0 0 0;
#X coords 0 0 1 1 200 140 1;
#X restore 206 100 pd sub;
--- NEW FILE: INSTALL ---
untar in /my/pd/dir/externs
cd /my/pd/dir/externs/scrolllist
make clean
make
make install
open help-scrolllist.pd
Thanx for getting here.
Yves/
--- NEW FILE: README ---
Version 0.01
copyleft 2001 by Yves Degoyon
tarballs and updates available @ http://ydegoyon.free.fr/software.html
scrolllist : displays and scrolls a text in a patch window
To install scrolllist, follow the steps from INSTALL
This software is published under GPL terms.
This is software with ABSOLUTELY NO WARRANTY.
Use it at your OWN RISK. It's possible to damage e.g. hardware or your hearing
due to a bug or for other reasons.
We do not warrant that the program is free of infringement of any third-party
patents.
*****************************************************************************
--- NEW FILE: CHANGES.LOG ---
0.1
initial version
--- NEW FILE: scrolllist.tk2c ---
// ########### scrolllist procedures -- ydegoyon at free.fr #########
sys_gui("proc scrolllist_apply {id} {\n");
// strip "." from the TK id to make a variable name suffix
sys_gui("set vid [string trimleft $id .]\n");
// for each variable, make a local variable to hold its name...
sys_gui("set var_graph_capacity [concat graph_capacity_$vid]\n");
sys_gui("global $var_graph_capacity\n");
sys_gui("set var_graph_width [concat graph_width_$vid]\n");
sys_gui("global $var_graph_width\n");
sys_gui("set var_graph_height [concat graph_height$vid]\n");
sys_gui("global $var_graph_height\n");
sys_gui("set var_graph_font [concat graph_font$vid]\n");
sys_gui("global $var_graph_font\n");
sys_gui("set var_graph_bgcolor [concat graph_bgcolor$vid]\n");
sys_gui("global $var_graph_bgcolor\n");
sys_gui("set var_graph_fgcolor [concat graph_fgcolor$vid]\n");
sys_gui("global $var_graph_fgcolor\n");
sys_gui("set var_graph_secolor [concat graph_secolor$vid]\n");
sys_gui("global $var_graph_secolor\n");
sys_gui("set cmd [concat $id dialog [eval concat $$var_graph_capacity] [eval concat $$var_graph_width] [eval concat $$var_graph_height] [eval concat $$var_graph_font] [eval concat $$var_graph_bgcolor] [eval concat $$var_graph_fgcolor] [eval concat $$var_graph_secolor] \\;]\n");
// puts stderr $cmd
sys_gui("pd $cmd\n");
sys_gui("}\n");
sys_gui("proc scrolllist_cancel {id} {\n");
sys_gui("set cmd [concat $id cancel \\;]\n");
// puts stderr $cmd
sys_gui("pd $cmd\n");
sys_gui("}\n");
sys_gui("proc scrolllist_ok {id} {\n");
sys_gui("scrolllist_apply $id\n");
sys_gui("scrolllist_cancel $id\n");
sys_gui("}\n");
sys_gui("proc pdtk_scrolllist_dialog {id capacity width height font bgcolor fgcolor secolor} {\n");
sys_gui("set vid [string trimleft $id .]\n");
sys_gui("set var_graph_capacity [concat graph_capacity_$vid]\n");
sys_gui("global $var_graph_capacity\n");
sys_gui("set var_graph_width [concat graph_width_$vid]\n");
sys_gui("global $var_graph_width\n");
sys_gui("set var_graph_height [concat graph_height$vid]\n");
sys_gui("global $var_graph_height\n");
sys_gui("set var_graph_font [concat graph_font$vid]\n");
sys_gui("global $var_graph_font\n");
sys_gui("set var_graph_bgcolor [concat graph_bgcolor$vid]\n");
sys_gui("global $var_graph_bgcolor\n");
sys_gui("set var_graph_fgcolor [concat graph_fgcolor$vid]\n");
sys_gui("global $var_graph_fgcolor\n");
sys_gui("set var_graph_secolor [concat graph_secolor$vid]\n");
sys_gui("global $var_graph_secolor\n");
sys_gui("set $var_graph_capacity $capacity\n");
sys_gui("set $var_graph_width $width\n");
sys_gui("set $var_graph_height $height\n");
sys_gui("set $var_graph_font $font\n");
sys_gui("set $var_graph_bgcolor $bgcolor\n");
sys_gui("set $var_graph_fgcolor $fgcolor\n");
sys_gui("set $var_graph_secolor $secolor\n");
sys_gui("toplevel $id\n");
sys_gui("wm title $id {scrolllist}\n");
sys_gui("wm protocol $id WM_DELETE_WINDOW [concat scrolllist_cancel $id]\n");
sys_gui("label $id.label -text {SCROLLLIST PROPERTIES}\n");
sys_gui("pack $id.label -side top\n");
sys_gui("frame $id.buttonframe\n");
sys_gui("pack $id.buttonframe -side bottom -fill x -pady 2m\n");
sys_gui("button $id.buttonframe.cancel -text {Cancel} -command \"scrolllist_cancel $id\"\n");
sys_gui("button $id.buttonframe.apply -text {Apply} -command \"scrolllist_apply $id\"\n");
sys_gui("button $id.buttonframe.ok -text {OK} -command \"scrolllist_ok $id\"\n");
sys_gui("pack $id.buttonframe.cancel -side left -expand 1\n");
sys_gui("pack $id.buttonframe.apply -side left -expand 1\n");
sys_gui("pack $id.buttonframe.ok -side left -expand 1\n");
sys_gui("frame $id.1rangef\n");
sys_gui("pack $id.1rangef -side top\n");
sys_gui("label $id.1rangef.lcapacity -text \"Capacity :\"\n");
sys_gui("entry $id.1rangef.capacity -textvariable $var_graph_capacity -width 7\n");
sys_gui("pack $id.1rangef.lcapacity $id.1rangef.capacity -side left\n");
sys_gui("frame $id.2rangef\n");
sys_gui("pack $id.2rangef -side top\n");
sys_gui("label $id.2rangef.lwidth -text \"Width :\"\n");
sys_gui("entry $id.2rangef.width -textvariable $var_graph_width -width 7\n");
sys_gui("pack $id.2rangef.lwidth $id.2rangef.width -side left\n");
sys_gui("frame $id.3rangef\n");
sys_gui("pack $id.3rangef -side top\n");
sys_gui("label $id.3rangef.lheight -text \"Height :\"\n");
sys_gui("entry $id.3rangef.height -textvariable $var_graph_height -width 7\n");
sys_gui("pack $id.3rangef.lheight $id.3rangef.height -side left\n");
sys_gui("frame $id.3_5rangef\n");
sys_gui("pack $id.3_5rangef -side top\n");
sys_gui("label $id.3_5rangef.lfont -text \"Font :\"\n");
sys_gui("entry $id.3_5rangef.font -textvariable $var_graph_font -width 30\n");
sys_gui("pack $id.3_5rangef.lfont $id.3_5rangef.font -side left\n");
sys_gui("frame $id.4rangef\n");
sys_gui("pack $id.4rangef -side top\n");
sys_gui("label $id.4rangef.lbgcolor -text \"Background Color :\"\n");
sys_gui("entry $id.4rangef.bgcolor -textvariable $var_graph_bgcolor -width 7\n");
sys_gui("pack $id.4rangef.lbgcolor $id.4rangef.bgcolor -side left\n");
sys_gui("frame $id.5rangef\n");
sys_gui("pack $id.5rangef -side top\n");
sys_gui("label $id.5rangef.lfgcolor -text \"Foreground Color :\"\n");
sys_gui("entry $id.5rangef.fgcolor -textvariable $var_graph_fgcolor -width 7\n");
sys_gui("pack $id.5rangef.lfgcolor $id.5rangef.fgcolor -side left\n");
sys_gui("frame $id.6rangef\n");
sys_gui("pack $id.6rangef -side top\n");
sys_gui("label $id.6rangef.lsecolor -text \"Selection Color :\"\n");
sys_gui("entry $id.6rangef.secolor -textvariable $var_graph_secolor -width 7\n");
sys_gui("pack $id.6rangef.lsecolor $id.6rangef.secolor -side left\n");
sys_gui("bind $id.1rangef.capacity <KeyPress-Return> [concat scrolllist_ok $id]\n");
sys_gui("bind $id.2rangef.width <KeyPress-Return> [concat scrolllist_ok $id]\n");
sys_gui("bind $id.3rangef.height <KeyPress-Return> [concat scrolllist_ok $id]\n");
sys_gui("bind $id.3_5rangef.font <KeyPress-Return> [concat scrolllist_ok $id]\n");
sys_gui("bind $id.4rangef.bgcolor <KeyPress-Return> [concat scrolllist_ok $id]\n");
sys_gui("bind $id.5rangef.fgcolor <KeyPress-Return> [concat scrolllist_ok $id]\n");
sys_gui("bind $id.6rangef.secolor <KeyPress-Return> [concat scrolllist_ok $id]\n");
sys_gui("}\n");
// ########### scrolllist procedures END -- ydegoyon at free.fr #########
More information about the Pd-cvs
mailing list