scrolllist 0.1

svn path=/trunk/externals/unauthorized/; revision=3969

13 files changed, 1548 insertions, 0 deletions

diff --git a/scrolllist/CHANGES.LOG b/scrolllist/CHANGES.LOG
new file mode 100755
index 0000000..f374175
--- /dev/null
+++ b/scrolllist/CHANGES.LOG
@@ -0,0 +1,2 @@
+0.1
+  initial version
diff --git a/scrolllist/INSTALL b/scrolllist/INSTALL
new file mode 100755
index 0000000..9b308b4
--- /dev/null
+++ b/scrolllist/INSTALL
@@ -0,0 +1,14 @@
+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/
diff --git a/scrolllist/Makefile b/scrolllist/Makefile
new file mode 100755
index 0000000..a8624eb
--- /dev/null
+++ b/scrolllist/Makefile
@@ -0,0 +1,48 @@
+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
diff --git a/scrolllist/README b/scrolllist/README
new file mode 100755
index 0000000..e5d29e8
--- /dev/null
+++ b/scrolllist/README
@@ -0,0 +1,19 @@
+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.

+

+*****************************************************************************

+

+

diff --git a/scrolllist/Untitled-1.pd b/scrolllist/Untitled-1.pd
new file mode 100644
index 0000000..0d21359
--- /dev/null
+++ b/scrolllist/Untitled-1.pd
@@ -0,0 +1,8 @@
+#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;
diff --git a/scrolllist/ave-lucifer.txt b/scrolllist/ave-lucifer.txt
new file mode 100644
index 0000000..8aca29e
--- /dev/null
+++ b/scrolllist/ave-lucifer.txt
@@ -0,0 +1,35 @@
+Ave, Lúcifer
+(Arnaldo Baptista/ Rita Lee/ Élcio Decário)
+
+As maçãs
+Envolvem os corpos nus
+Nesse rio que corre
+Em veias mansas dentro de mim
+
+Anjos e arcanjos
+Não pousam neste éden infernal
+E a flecha do selvagem
+Matou mil aves no ar
+
+Quieta, a serpente se enrola
+Nos seus pés
+É Lúcifer da floresta
+Que tenta me abraçar
+
+Vem amor
+Que um paraíso
+Num abraço amigo
+Sorrira pra nós sem ninguém nos ver
+
+Prometa
+Meu amor macio
+Como uma flor cheia de mel
+Pra te embriagar, sem ninguém nos ver
+
+Tragam uvas negras
+Tragam festas e flores
+Tragam copos e dores
+Tragam incensos odores
+
+Mas, tragam Lúcifer pra mim
+Em uma bandeja pra mim
diff --git a/scrolllist/help-scrolllist.pd b/scrolllist/help-scrolllist.pd
new file mode 100755
index 0000000..6563f16
--- /dev/null
+++ b/scrolllist/help-scrolllist.pd
@@ -0,0 +1,111 @@
+#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@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;
diff --git a/scrolllist/scrolllist.c b/scrolllist/scrolllist.c
new file mode 100755
index 0000000..37fe5e3
--- /dev/null
+++ b/scrolllist/scrolllist.c
@@ -0,0 +1,1000 @@
+/*---------------------- scrolllist~ ------------------------------------------ */
+/*                                                                              */
+/* scrolllist~ : scrolling list of text items                                   */
+/* constructor : scrolllist | scrolllist <capacity> <width> <height>            */
+/*                                                                              */
+/* Copyleft Yves Degoyon ( ydegoyon@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.                                 */
+/*                                                                              */
+/* You should have received a copy of the GNU General Public License            */
+/* along with this program; if not, write to the Free Software                  */
+/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.  */
+/*                                                                              */
+/* Based on PureData by Miller Puckette and others.                             */
+/*                                                                              */
+/* "I tried your cat's name, it tried your favorite band"                       */
+/* "I have the password to your ... shell account"                              */
+/* Barcelona - Shell Account                                                    */
+/* ---------------------------------------------------------------------------- */  
+
+#include <stdlib.h>
+#include <string.h>
+#include <stdio.h>
+#include <math.h>
+#include <ctype.h>
+#include <regex.h>
+#include <time.h>
+#include <sys/time.h>
+#include "m_pd.h"
+#include "m_imp.h"
+#include "g_canvas.h"
+#include "t_tk.h"
+
+#ifdef NT
+#include <io.h>
+#else
+#include <unistd.h>
+#include <sys/types.h>
+#include <dirent.h>
+#endif
+
+t_widgetbehavior scrolllist_widgetbehavior;
+static t_class *scrolllist_class;
+
+static int guidebug=0;
+
+static char   *scrolllist_version = "scrolllist: scrolling list of text items : version 0.1, written by Yves Degoyon (ydegoyon@free.fr)";
+
+#define MIN(a,b) (a>b?b:a)
+
+#define SYS_VGUI2(a,b) if (guidebug) \
+                         post(a,b);\
+                         sys_vgui(a,b)
+
+#define SYS_VGUI3(a,b,c) if (guidebug) \
+                         post(a,b,c);\
+                         sys_vgui(a,b,c)
+
+#define SYS_VGUI4(a,b,c,d) if (guidebug) \
+                         post(a,b,c,d);\
+                         sys_vgui(a,b,c,d)
+
+#define SYS_VGUI5(a,b,c,d,e) if (guidebug) \
+                         post(a,b,c,d,e);\
+                         sys_vgui(a,b,c,d,e)
+
+#define SYS_VGUI6(a,b,c,d,e,f) if (guidebug) \
+                         post(a,b,c,d,e,f);\
+                         sys_vgui(a,b,c,d,e,f)
+
+#define SYS_VGUI7(a,b,c,d,e,f,g) if (guidebug) \
+                         post(a,b,c,d,e,f,g);\
+                         sys_vgui(a,b,c,d,e,f,g)
+
+#define SYS_VGUI8(a,b,c,d,e,f,g,h) if (guidebug) \
+                         post(a,b,c,d,e,f,g,h);\
+                         sys_vgui(a,b,c,d,e,f,g,h)
+
+#define SYS_VGUI9(a,b,c,d,e,f,g,h,i) if (guidebug) \
+                         post(a,b,c,d,e,f,g,h,i );\
+                         sys_vgui(a,b,c,d,e,f,g,h,i)
+
+#define SYS_VGUI10(a,b,c,d,e,f,g,h,i,j) if (guidebug) \
+                         post(a,b,c,d,e,f,g,h,i,j );\
+                         sys_vgui(a,b,c,d,e,f,g,h,i,j)
+
+#define SYS_VGUI11(a,b,c,d,e,f,g,h,i,j,k) if (guidebug) \
+                         post(a,b,c,d,e,f,g,h,i,j,k );\
+                         sys_vgui(a,b,c,d,e,f,g,h,i,j,k)
+
+#define MAX_STRING_LENGTH 256
+
+typedef struct _scrolllist
+{
+    t_object x_obj;
+    t_glist *x_glist;
+    t_outlet *x_item;           /* outlet to output current selected item    */
+    t_int x_capacity;           /* number of text items                      */
+    t_int x_height;             /* height of the scrolllist                  */
+    t_int x_width;              /* width of the scrolllist                   */
+    t_int x_itemselected;       /* index of the selected item                */
+    t_int x_selected;           /* stores selected state                     */
+    t_int x_graphics;           /* flag to draw graphics or not              */
+    char **x_items;             /* text items                                */
+    t_int x_nitems;             /* number of current items                   */
+    t_int x_ndisplayed;         /* number of displayed items                 */
+    t_int x_firstseen;          /* first displayed item                      */
+    t_int x_lastseen;           /* last displayed item                       */
+    t_int x_cdy;                /* cumulated y drag                          */
+    char   *x_font;             /* font used for entries                     */
+    t_int  x_charheight;        /* height of characters                      */
+    t_int  x_charwidth;         /* width of characters                       */
+    char   *x_bgcolor;          /* background color                          */
+    char   *x_fgcolor;          /* foreground color                          */
+    char   *x_secolor;          /* selection color                           */
+} t_scrolllist;     
+
+static void scrolllist_erase(t_scrolllist *x, t_glist *glist)
+{
+  t_canvas *canvas=glist_getcanvas(glist);
+  t_int i;
+
+    // just in case we got confused
+    if ( x->x_firstseen < 0 ) x->x_firstseen=0;
+    if ( x->x_lastseen > x->x_capacity-1 ) x->x_lastseen=x->x_capacity-1;
+
+    // delete previous entries
+    for ( i=x->x_firstseen; i<=x->x_lastseen; i++ )
+    {
+        SYS_VGUI4(".x%x.c delete %xITEM%d\n", canvas, x, i);
+    }
+}
+
+static void scrolllist_update(t_scrolllist *x, t_glist *glist)
+{
+  t_canvas *canvas=glist_getcanvas(glist);
+  t_int i;
+
+    // just in case we got confused
+    if ( x->x_firstseen < 0 ) x->x_firstseen=0;
+    if ( x->x_lastseen > x->x_capacity-1 ) x->x_lastseen=x->x_capacity-1;
+
+    // display the content of text items
+    for ( i=x->x_firstseen; i<=x->x_lastseen; i++ )
+    {
+       // display the entry if displayable
+       if ( ( (i-x->x_firstseen)*x->x_charheight < x->x_height ) && ( x->x_items[i] != NULL ) )
+       {
+          SYS_VGUI11(".x%x.c create text %d %d -fill %s -activefill %s -width %d -text \"%s\" -anchor w -font %s -tags %xITEM%d\n",
+                    canvas,
+                    text_xpix(&x->x_obj, glist)+5,
+                    text_ypix(&x->x_obj, glist)+5+(i-x->x_firstseen)*x->x_charheight,
+                    x->x_fgcolor,
+                    x->x_secolor,
+                    x->x_width,
+                    x->x_items[i],
+                    x->x_font,
+                    x, i );
+        }
+        if ( ( x->x_itemselected >= x->x_firstseen ) && ( x->x_itemselected <= x->x_lastseen ) )
+        {
+          SYS_VGUI5(".x%x.c itemconfigure %xITEM%d -fill %s\n", 
+                     canvas, x, x->x_itemselected, x->x_secolor); 
+        }
+    }
+}
+
+static void scrolllist_output_current(t_scrolllist* x)
+{
+    if ( x->x_items && x->x_itemselected < x->x_nitems && x->x_itemselected >= 0 )
+    {
+       outlet_symbol( x->x_item, gensym( x->x_items[x->x_itemselected] ) );
+    }
+}
+
+static void scrolllist_draw_new(t_scrolllist *x, t_glist *glist)
+{   
+  t_canvas *canvas=glist_getcanvas(glist);    
+
+    x->x_glist = glist;
+    if ( x->x_graphics )
+    {
+      SYS_VGUI8(".x%x.c create rectangle %d %d %d %d -fill %s -tags %xTEXTLIST\n",
+             canvas, text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist),
+             text_xpix(&x->x_obj, glist) + x->x_width, text_ypix(&x->x_obj, glist) + x->x_height,
+             x->x_bgcolor, x); 
+    }
+    else
+    {
+      SYS_VGUI7(".x%x.c create rectangle %d %d %d %d -outline white -fill white -tags %xTEXTLIST\n",
+             canvas, text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist),
+             text_xpix(&x->x_obj, glist) + x->x_width, text_ypix(&x->x_obj, glist) + x->x_height, x); 
+    }
+    scrolllist_erase( x, glist );
+    scrolllist_update( x, glist );
+}
+
+static void scrolllist_draw_move(t_scrolllist *x, t_glist *glist)
+{  
+  t_canvas *canvas=glist_getcanvas(glist);
+  t_int i;
+  struct timespec tv;
+ 
+    tv.tv_sec = 0;
+    tv.tv_nsec = 10000000;
+
+    SYS_VGUI7(".x%x.c coords %xTEXTLIST %d %d %d %d\n",
+           canvas, x,
+           text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist),
+           text_xpix(&x->x_obj, glist)+x->x_width, 
+           text_ypix(&x->x_obj, glist)+x->x_height);
+    for ( i=x->x_firstseen; i<=x->x_lastseen; i++ )
+    {
+       // nanosleep( &tv, NULL );
+       SYS_VGUI6(".x%x.c coords %xITEM%d %d %d\n",
+             canvas, x, i,
+             text_xpix(&x->x_obj, glist)+5,
+             text_ypix(&x->x_obj, glist)+5+(i-x->x_firstseen)*x->x_charheight);
+    }
+
+    canvas_fixlinesfor( canvas, (t_text*)x );
+}
+
+static void scrolllist_draw_erase(t_scrolllist* x, t_glist* glist)
+{
+ t_canvas *canvas=glist_getcanvas(glist);
+ t_int i;
+ 
+    SYS_VGUI3(".x%x.c delete %xTEXTLIST\n", canvas, x);
+    for ( i=x->x_firstseen; i<=x->x_lastseen; i++ )
+    {
+        SYS_VGUI4(".x%x.c delete %xITEM%d\n", canvas, x, i); 
+    }
+} 
+
+static void scrolllist_draw_select(t_scrolllist* x, t_glist* glist)
+{
+  t_canvas *canvas=glist_getcanvas(glist);
+ 
+    // post( "scrolllist : select" );
+    if(x->x_selected)
+    {
+        /* sets the item in blue */
+        SYS_VGUI3(".x%x.c itemconfigure %xTEXTLIST -outline #0000FF\n", canvas, x);
+    }
+    else
+    {
+        SYS_VGUI3(".x%x.c itemconfigure %xTEXTLIST -outline #000000\n", canvas, x);
+    }
+}       
+
+/* ------------------------ scrolllist widgetbehaviour----------------------------- */
+
+
+static void scrolllist_getrect(t_gobj *z, t_glist *owner,
+			    int *xp1, int *yp1, int *xp2, int *yp2)
+{
+ t_scrolllist* x = (t_scrolllist*)z;
+
+   *xp1 = text_xpix(&x->x_obj, owner);
+   *yp1 = text_ypix(&x->x_obj, owner);
+   *xp2 = text_xpix(&x->x_obj, owner)+x->x_width;
+   *yp2 = text_ypix(&x->x_obj, owner)+x->x_height;
+}
+
+static void scrolllist_save(t_gobj *z, t_binbuf *b)
+{
+ t_scrolllist *x = (t_scrolllist *)z;
+
+   // post( "saving scrolllist : %d", x->x_capacity );
+   binbuf_addv(b, "ssiisiiissss", gensym("#X"), gensym("obj"),
+		(t_int)text_xpix(&x->x_obj, x->x_glist), (t_int)text_ypix(&x->x_obj, x->x_glist),
+		gensym("scrolllist"), x->x_capacity, x->x_width, x->x_height,
+                gensym(x->x_font), gensym(x->x_bgcolor), 
+                gensym(x->x_fgcolor), gensym(x->x_secolor) );
+   binbuf_addv(b, ";");
+}
+
+static void scrolllist_select(t_gobj *z, t_glist *glist, int selected)
+{
+ t_scrolllist *x = (t_scrolllist *)z;
+
+   x->x_selected = selected;
+
+   scrolllist_draw_select( x, glist );
+}
+
+static void scrolllist_vis(t_gobj *z, t_glist *glist, int vis)
+{
+ t_scrolllist *x = (t_scrolllist *)z;
+ t_rtext *y;
+
+   // post( "scrolllist : vis (%d)", vis );
+   x->x_glist = glist;
+   if (vis)
+   {
+      scrolllist_draw_erase(x, x->x_glist);
+      scrolllist_draw_new( x, glist );
+   }
+   else
+   {
+      scrolllist_draw_erase( x, glist );
+   }
+}
+
+static void scrolllist_deleteobj(t_gobj *z, t_glist *glist)
+{
+  t_scrolllist *x = (t_scrolllist *)z;
+
+    canvas_deletelinesfor( glist_getcanvas(glist), (t_text *)z);
+}
+
+static void scrolllist_displace(t_gobj *z, t_glist *glist, int dx, int dy)
+{
+  t_scrolllist *x = (t_scrolllist *)z;
+  t_int xold = text_xpix(&x->x_obj, glist);
+  t_int yold = text_ypix(&x->x_obj, glist);
+
+    // post( "scrolllist_displace dx=%d dy=%d", dx, dy );
+
+    x->x_obj.te_xpix += dx;
+    x->x_obj.te_ypix += dy;
+    if(xold != text_xpix(&x->x_obj, glist) || yold != text_ypix(&x->x_obj, glist))
+    {
+	scrolllist_draw_move(x, glist);
+    }
+}
+
+static void scrolllist_motion(t_scrolllist *x, t_floatarg dx, t_floatarg dy)
+{
+ t_int i;
+ t_canvas *canvas=glist_getcanvas(x->x_glist);
+  
+  x->x_cdy+=dy;
+  scrolllist_erase( x, x->x_glist );
+ 
+  // check if we need to scroll
+  // eventually, move down
+  if ( x->x_cdy >= x->x_charheight )
+  {
+     if ( x->x_firstseen < x->x_nitems - x->x_ndisplayed )
+     {
+         x->x_firstseen++;
+         x->x_lastseen++;
+         // post( "scrolllist : moved down first=%d last=%d", x->x_firstseen, x->x_lastseen );
+     }
+  }
+  // eventually, move up
+  if ( x->x_cdy <= -x->x_charheight )
+  {
+     if ( x->x_firstseen-1 >= 0 )
+     {
+        x->x_firstseen--;
+        x->x_lastseen--;
+        // post( "scrolllist : moved up first=%d last=%d", x->x_firstseen, x->x_lastseen );
+     }
+  }
+  scrolllist_update(x, x->x_glist);
+  if ( ( x->x_cdy >= x->x_charheight ) || ( x->x_cdy <= -x->x_charheight ) ) x->x_cdy = 0;
+} 
+  
+static void scrolllist_scroll(t_scrolllist *x, t_floatarg fdy)
+{
+  t_int nbsteps, si;
+
+    x->x_cdy += (t_int)fdy;
+    nbsteps = (t_int)abs(x->x_cdy/x->x_charheight);
+    // post( "scrolllist : iterations %d", nbsteps );
+    for (si=0; si<nbsteps; si++ )
+    {
+      scrolllist_motion(x, 0, (fdy/abs(fdy))*x->x_charheight);
+    }
+}
+
+static void scrolllist_graphics(t_scrolllist *x, t_floatarg fgraphics)
+{
+   if ( ( (t_int)fgraphics == 0 ) || ( (t_int)fgraphics == 1 ) ) 
+   {
+      scrolllist_draw_erase(x, x->x_glist);
+      x->x_graphics = (t_int) fgraphics;
+      scrolllist_draw_new(x, x->x_glist);
+   }
+}
+
+static int scrolllist_click(t_gobj *z, struct _glist *glist,
+		   int xpix, int ypix, int shift, int alt, int dbl, int doit)
+{
+ t_scrolllist* x = (t_scrolllist *)z;
+ t_canvas *canvas=glist_getcanvas(x->x_glist);
+ t_int xoffset;
+
+    if (doit) 
+    {
+      // deselect previously selected item
+      SYS_VGUI5(".x%x.c itemconfigure %xITEM%d -fill %s\n", 
+                 canvas, x, x->x_itemselected, x->x_fgcolor); 
+      x->x_itemselected = x->x_firstseen + (ypix-text_ypix(&x->x_obj, glist))/x->x_charheight;
+      SYS_VGUI5(".x%x.c itemconfigure %xITEM%d -fill %s\n", 
+                 canvas, x, x->x_itemselected, x->x_secolor); 
+      // post( "scrolllist : selected item : %d", x->x_itemselected );
+      if ( x->x_items && ( x->x_itemselected < x->x_nitems ) )
+      {
+         xoffset=(xpix-text_xpix(&x->x_obj, glist));
+         if ( xoffset <= (t_int)( x->x_width*4/5 ) )
+         {
+           scrolllist_output_current(x);
+           scrolllist_erase( x, x->x_glist );
+           scrolllist_update( x, glist );
+         }
+         else
+         {
+           x->x_itemselected=-1;
+         }
+      }
+      x->x_glist = glist;
+      glist_grab( glist, &x->x_obj.te_g, (t_glistmotionfn)scrolllist_motion,
+                  NULL, xpix, ypix ); 
+    }
+    return (1);
+}
+
+static void scrolllist_properties(t_gobj *z, t_glist *owner)
+{
+ char buf[800];
+ t_scrolllist *x=(t_scrolllist *)z;
+
+   sprintf(buf, "pdtk_scrolllist_dialog %%s %d %d %d %s %s %s %s\n",
+            x->x_capacity, x->x_width, x->x_height, 
+            x->x_font, x->x_bgcolor,
+            x->x_fgcolor, x->x_secolor );
+   // post("scrolllist_properties : %s", buf );
+   gfxstub_new(&x->x_obj.ob_pd, x, buf);
+}
+
+static void scrolllist_dialog(t_scrolllist *x, t_symbol *s, int argc, t_atom *argv)
+{
+  char **titems;
+  t_int ncapacity, i, ccapacity;
+
+   scrolllist_erase( x, x->x_glist );
+   scrolllist_draw_erase(x, x->x_glist);
+
+   if ( !x ) {
+     post( "scrolllist : error :tried to set properties on an unexisting object" );
+   }
+   if ( argc != 9 )
+   {
+      post( "scrolllist : error in the number of arguments ( %d instead of 10 )", argc );
+      return;
+   }
+   if ( argv[0].a_type != A_FLOAT  || argv[1].a_type != A_FLOAT ||
+        argv[2].a_type != A_FLOAT  || argv[3].a_type != A_SYMBOL ||
+        argv[4].a_type != A_FLOAT  || argv[5].a_type != A_SYMBOL ||
+        argv[6].a_type != A_SYMBOL || argv[7].a_type != A_SYMBOL ||
+        argv[8].a_type != A_SYMBOL ) {
+      post( "scrolllist : wrong arguments" );
+      return;
+   }
+   
+   ncapacity = (t_int)argv[0].a_w.w_float;
+   titems = (char**) malloc( ncapacity*sizeof(char*) );
+
+   if ( ncapacity < x->x_nitems )
+   {
+      post( "scrolllist : new size is too small : texts lost !!" );
+      ccapacity = ncapacity;
+   }
+   else
+   {
+      ccapacity = x->x_nitems;
+   }
+   for ( i=0; i<ccapacity; i++ )
+   {
+      if ( x->x_items[i] != NULL )
+      {
+        titems[i] = (char*) malloc( strlen( x->x_items[i] ) + 1 );
+        memcpy( titems[i], x->x_items[i], strlen( x->x_items[i] ) );
+        titems[i][strlen( x->x_items[i] )]='\0'; 
+        free( x->x_items[i] );
+        x->x_items[i] = NULL;
+      }
+   }
+   if ( x->x_items ) 
+   {
+     free( x->x_items );
+     x->x_items = NULL;
+   }
+   x->x_items = titems;
+   x->x_nitems = ccapacity;
+   x->x_capacity = ncapacity;
+
+   x->x_width = (int)argv[1].a_w.w_float;
+   x->x_height = (int)argv[2].a_w.w_float;
+   sprintf( x->x_font, "{%s %d %s}", argv[3].a_w.w_symbol->s_name, 
+                       (t_int)argv[4].a_w.w_float, argv[5].a_w.w_symbol->s_name );
+   x->x_charheight = (t_int)argv[4].a_w.w_float;
+   strcpy( x->x_bgcolor, argv[6].a_w.w_symbol->s_name );
+   strcpy( x->x_fgcolor, argv[7].a_w.w_symbol->s_name );
+   strcpy( x->x_secolor, argv[8].a_w.w_symbol->s_name );
+
+   x->x_firstseen = 0;
+   x->x_ndisplayed = (t_int)(x->x_height/x->x_charheight );
+   if ( x->x_nitems >= x->x_ndisplayed )
+   {
+     x->x_lastseen = x->x_ndisplayed-1;
+   }
+   else
+   {
+     x->x_lastseen = x->x_nitems-1;
+   }
+
+   scrolllist_draw_new(x, x->x_glist);
+   scrolllist_update(x, x->x_glist);
+}
+
+static void scrolllist_sort(t_scrolllist* x)
+{
+  char **titems;
+  t_int i, j, k, irank, indest;
+
+    scrolllist_erase( x, x->x_glist );
+
+    // sort text items
+    titems = (char**) malloc( x->x_capacity*sizeof(char*) );
+    for ( i=0; i<x->x_capacity; i++ )
+    {
+       titems[i]=NULL;
+    }
+    indest=0;
+    for ( i=0; i<x->x_nitems; i++ )
+    {
+      if ( x->x_items[i] != NULL )
+      {
+        irank=0;
+        for ( j=0; j<x->x_capacity; j++ )
+        {
+           if ( titems[j] != NULL )
+           {
+              // post( "scrollist : comparing >%s< to >%s<", titems[j], x->x_items[i] );
+              if ( strcasecmp( titems[j], x->x_items[i] ) > 0 )
+              {
+                 irank=j;
+                 break;
+              }
+              irank=j+1;
+           }
+        }
+        // insert in irank
+        // post( "scrollist : inserting %s at %d", x->x_items[i], irank );
+        for ( k=indest-1; k>=irank; k-- )
+        {
+           if ( (k+1) < x->x_capacity )
+           {
+              if ( titems[k+1] != NULL )
+              {
+                free( titems[k+1] );
+                titems[k+1] = NULL;
+              }
+              titems[k+1] = (char*) malloc( strlen( titems[k] ) + 1 );
+              memcpy( titems[k+1], titems[k], strlen( titems[k] ) );
+              titems[k+1][strlen( titems[k] )]='\0';
+              // post( "scrollist : copying %d to %d", k, k+1 );
+           }
+        } 
+        titems[irank] = (char*) malloc( strlen( x->x_items[i] ) + 1 );
+        memcpy( titems[irank], x->x_items[i], strlen( x->x_items[i] ) );
+        titems[irank][strlen( x->x_items[i] )]='\0';
+        free( x->x_items[i] );
+        x->x_items[i]=NULL;
+        indest++;
+      }
+    }
+    if ( x->x_items ) 
+    {
+     free( x->x_items );
+     x->x_items = NULL;
+    }
+    x->x_items = titems;
+    
+    scrolllist_update( x, x->x_glist );
+}
+
+static void scrolllist_font(t_scrolllist* x, t_symbol *fname, t_symbol *fcase, t_floatarg fsize)
+{
+    if ( (t_int)fsize <= 4 )
+    {
+       post( "scrolllist : wrong font size in font message : %d", (t_int)fsize );
+       return;
+    }
+    sprintf( x->x_font, "{%s %d %s}", fname->s_name, (t_int)fsize, fcase->s_name );
+    x->x_charheight = (t_int)fsize;
+    x->x_charwidth = (2*x->x_charheight)/3;
+    // post( "scrolllist : setting font to : %s", x->x_font );
+    scrolllist_erase( x, x->x_glist );
+    scrolllist_update( x, x->x_glist );
+}
+
+static void scrolllist_add(t_scrolllist* x, t_symbol *fnewtext)
+{
+  t_int i;
+
+   // post( "scrollist : add : nitems = %d", x->x_nitems ); 
+   if ( x->x_nitems >= x->x_capacity )
+   {
+      // post( "scrolllist : warning : list is full, erasing first line" );
+      for ( i=0; i<(x->x_nitems-1); i++ )
+      {
+          if ( x->x_items[i] != NULL )
+          {
+            free( x->x_items[i] );
+            x->x_items[i] = NULL;
+          }
+          x->x_items[i] = (char*) malloc( strlen( x->x_items[i+1] ) + 1 );
+          memcpy( x->x_items[i], x->x_items[i+1], strlen( x->x_items[i+1] ) );
+          x->x_items[i][strlen( x->x_items[i+1] )]='\0';
+          // post( "scrollist : copying %d to %d", i+1, i );
+      } 
+      x->x_items[x->x_nitems-1] = (char*) malloc( strlen( fnewtext->s_name ) + 1 );
+      memcpy( x->x_items[x->x_nitems-1], fnewtext->s_name, strlen( fnewtext->s_name ) );
+      x->x_items[x->x_nitems-1][strlen( fnewtext->s_name )]='\0';
+   } 
+   else
+   {
+      // post( "scrolllist : item #%d : %x", x->x_nitems, &x->x_items[x->x_nitems] ); 
+      // post( "scrolllist : allocating : %d", strlen( fnewtext->s_name ) + 1 ); 
+      x->x_items[x->x_nitems] = (char*) malloc( strlen( fnewtext->s_name ) + 1 );
+      memcpy( x->x_items[x->x_nitems], fnewtext->s_name, strlen( fnewtext->s_name ) );
+      x->x_items[x->x_nitems][strlen( fnewtext->s_name )]='\0';
+      x->x_nitems++;
+      if ( (x->x_nitems-x->x_firstseen)*x->x_charheight+5 < x->x_height )
+      {
+         x->x_lastseen = x->x_nitems-1;
+      }
+   }
+   scrolllist_erase( x, x->x_glist );
+   scrolllist_update( x, x->x_glist );
+}
+
+static void scrolllist_insert(t_scrolllist* x, t_symbol *ftext, t_floatarg frank)
+{
+ t_int rank, i;
+
+   if ( (t_int)frank > x->x_capacity )
+   {
+      post( "scrolllist : error : incorrect rank in insert message (%d), over capacity", (t_int)frank );
+      return;
+   }
+   rank = (t_int)frank-1;
+   if ( rank < 0 )
+   {
+      rank=0;
+   }
+   if ( rank > x->x_nitems-1 )
+   {
+      rank=x->x_nitems-1;
+   }
+   for ( i=x->x_nitems-1; i>=rank; i-- )
+   {
+      if ( (i+1) < x->x_capacity )
+      {
+         if ( x->x_items[i+1] != NULL )
+         {
+           free( x->x_items[i+1] );
+           x->x_items[i+1] = NULL;
+         }
+         x->x_items[i+1] = (char*) malloc( strlen( x->x_items[i] ) + 1 );
+         memcpy( x->x_items[i+1], x->x_items[i], strlen( x->x_items[i] ) );
+         x->x_items[i+1][strlen( x->x_items[i] )]='\0';
+         // post( "scrollist : copying %d to %d", i, i+1 );
+      }
+   } 
+   // post( "scrollist : inserting at %d", rank );
+   x->x_items[rank] = (char*) malloc( strlen( ftext->s_name ) + 1 );
+   memcpy( x->x_items[rank], ftext->s_name, strlen( ftext->s_name ) );
+   x->x_items[rank][strlen( ftext->s_name )]='\0';
+   if ( x->x_nitems < x->x_capacity ) x->x_nitems++;
+   if ( (x->x_nitems-x->x_firstseen)*x->x_charheight+5 < x->x_height )
+   {
+      x->x_lastseen = x->x_nitems-1;
+   }
+   scrolllist_erase( x, x->x_glist );
+   scrolllist_update( x, x->x_glist );
+}
+
+static void scrolllist_replace(t_scrolllist* x, t_symbol *ftext, t_floatarg frank)
+{
+ t_int rank;
+
+   if ( ( (t_int)frank <= 0 ) || ( (t_int)frank > x->x_nitems ) )
+   {
+      post( "scrolllist : error : incorrect rank in replace message (%d), no such text", (t_int)frank );
+      return;
+   }
+
+   rank = (t_int) frank-1;
+   if ( x->x_items[rank] != NULL )
+   {
+      free( x->x_items[rank] );
+      x->x_items[rank] = NULL;
+   } 
+   x->x_items[rank] = (char*) malloc( strlen( ftext->s_name ) + 1 );
+   memcpy( x->x_items[rank], ftext->s_name, strlen( ftext->s_name ) );
+   x->x_items[rank][strlen( ftext->s_name )]='\0';
+   scrolllist_erase( x, x->x_glist );
+   scrolllist_update( x, x->x_glist );
+}
+
+static void scrolllist_delete(t_scrolllist* x, t_floatarg frank)
+{
+  t_int rank, i;
+
+   if ( ( (t_int)frank <= 0 ) || ( (t_int)frank > x->x_nitems ) )
+   {
+      post( "scrolllist : error : incorrect rank in delete message (%d), no such text (%d)", (t_int)frank, x->x_nitems );
+      return;
+   }
+
+   rank = (t_int) frank-1;
+   for ( i=rank; i<x->x_nitems-1; i++ )
+   {
+      if ( x->x_items[i] != NULL )
+      {
+         free( x->x_items[i] );
+         x->x_items[i] = NULL;
+      }
+      x->x_items[i] = (char*) malloc( strlen( x->x_items[i+1] ) + 1 );
+      memcpy( x->x_items[i], x->x_items[i+1], strlen( x->x_items[i+1] ) );
+      x->x_items[i][strlen( x->x_items[i+1] )]='\0';
+      // post( "scrollist : copying %d to %d", i+1, i );
+   } 
+   free( x->x_items[x->x_nitems-1] );
+   x->x_items[x->x_nitems-1] = NULL;
+   if ( x->x_lastseen == x->x_nitems-2 ) x->x_lastseen--;
+   x->x_nitems--;
+   scrolllist_erase( x, x->x_glist );
+   scrolllist_update( x, x->x_glist );
+}
+
+static void scrolllist_clear(t_scrolllist* x)
+{
+ t_int i;
+
+   scrolllist_erase( x, x->x_glist );
+   for ( i=0; i<x->x_capacity; i++ )
+   {
+      x->x_items[i]=NULL;
+   }
+   x->x_nitems = 0;
+   x->x_selected = 0;
+   x->x_itemselected = -1;
+   x->x_firstseen = 0;
+   x->x_lastseen = -1;
+   scrolllist_update( x, x->x_glist );
+}
+
+static void scrolllist_seek(t_scrolllist *x, t_floatarg fseeked)
+{
+ t_int iout=0;
+ t_canvas *canvas=glist_getcanvas(x->x_glist);
+
+   if ( fseeked < 0 )
+   {
+      post( "scrolllist : wrong searched file : %f", fseeked );
+      return;
+   }
+
+   iout = (t_int)fseeked % (x->x_nitems);
+   SYS_VGUI5(".x%x.c itemconfigure %xITEM%d -fill %s\n", canvas, x, x->x_itemselected, x->x_fgcolor); 
+   x->x_itemselected = iout;
+   SYS_VGUI5(".x%x.c itemconfigure %xITEM%d -fill %s\n", canvas, x, x->x_itemselected, x->x_secolor); 
+   scrolllist_output_current(x);
+}
+
+static t_scrolllist *scrolllist_new(t_symbol *s, int argc, t_atom *argv )
+{
+ t_int i, argoffset=0;
+ t_scrolllist *x;
+
+   x = (t_scrolllist *)pd_new(scrolllist_class);
+
+   x->x_capacity = 100;
+   x->x_width = 400;
+   x->x_height = 200;
+   x->x_font = ( char * ) malloc( MAX_STRING_LENGTH );
+   sprintf( x->x_font, "{Helvetica 10 bold}" );
+   x->x_charheight = 10;
+   x->x_charwidth = (2*10)/3;
+   x->x_bgcolor = ( char * ) malloc( MAX_STRING_LENGTH );
+   sprintf( x->x_bgcolor, "#457782" );
+   x->x_fgcolor = ( char * ) malloc( MAX_STRING_LENGTH );
+   sprintf( x->x_fgcolor, "black" );
+   x->x_secolor = ( char * ) malloc( MAX_STRING_LENGTH );
+   sprintf( x->x_secolor, "red" );
+
+   if ( argc >= 1 )
+   {
+      if ( argv[0].a_type != A_FLOAT )
+      {
+        error( "scrolllist : wrong argument (capacity : 1)" );
+        return NULL;
+      }
+      x->x_capacity = (int)argv[0].a_w.w_float;
+   }
+   if ( argc >= 2 )
+   {
+      if ( argv[1].a_type != A_FLOAT )
+      {
+        error( "scrolllist : wrong argument (width : 2)" );
+        return NULL;
+      }
+      if ( (int)argv[1].a_w.w_float <= 0 )
+      {
+        error( "scrolllist : wrong width (%d)", (t_int)(int)argv[1].a_w.w_float );
+        error( "scrolllist : usage : scrolllist <capacity> <width> <height>" );
+        return NULL;
+      }
+      x->x_width = (int)argv[1].a_w.w_float;
+   }
+   if ( argc >= 3 )
+   {
+      if ( argv[2].a_type != A_FLOAT )
+      {
+        error( "scrolllist : wrong argument (height : 3)" );
+        return NULL;
+      }
+      if ( (int)argv[2].a_w.w_float <= 0 )
+      {
+        error( "scrolllist : wrong height (%d)", (t_int)(int)argv[2].a_w.w_float );
+        error( "scrolllist : usage : scrolllist <capacity> <width> <height>" );
+        return NULL;
+      }
+      x->x_height = (int)argv[2].a_w.w_float;
+   }
+   if ( argc >= 6 )
+   {
+      if ( argv[3].a_type != A_SYMBOL || 
+           argv[5].a_type != A_SYMBOL )
+      {
+        error( "scrolllist : wrong arguments (font : 4,6)" );
+        error( "argument types : %d %d", argv[3].a_type, argv[5].a_type );
+        return NULL;
+      }
+      if ( argv[4].a_type != A_SYMBOL &&
+           argv[4].a_type != A_FLOAT )
+      {
+        error( "scrolllist : wrong arguments (font size : 5)" );
+        error( "argument types : %d", argv[4].a_type );
+        return NULL;
+      }
+      if ( argv[4].a_type == A_SYMBOL )
+      {
+        sprintf( x->x_font, "%s", argv[3].a_w.w_symbol->s_name );
+        x->x_charheight = (t_int)atoi( strstr( argv[3].a_w.w_symbol->s_name, " ") );
+        argoffset=2;
+      }
+      if ( argv[4].a_type == A_FLOAT )
+      {
+        x->x_charheight = (t_int)argv[4].a_w.w_float;
+        sprintf( x->x_font, "%s %d %s", argv[3].a_w.w_symbol->s_name, 
+                           x->x_charheight, argv[5].a_w.w_symbol->s_name );
+        argoffset=0;
+      }
+      post( "scrolllist : font : %s, size : %d", x->x_font, x->x_charheight );
+   }
+   if ( argc >= 7-argoffset )
+   {
+      if ( argv[6-argoffset].a_type != A_SYMBOL )
+      {
+        error( "scrolllist : wrong arguments (background color : %d)", 7-argoffset );
+        return NULL;
+      }
+      strcpy( x->x_bgcolor, argv[6-argoffset].a_w.w_symbol->s_name );
+   }
+   if ( argc >= 8-argoffset )
+   {
+      if ( argv[7-argoffset].a_type != A_SYMBOL )
+      {
+        error( "scrolllist : wrong arguments (foreground color : %d)", 8-argoffset );
+        return NULL;
+      }
+      strcpy( x->x_fgcolor, argv[7-argoffset].a_w.w_symbol->s_name );
+   }
+   if ( argc >= 9-argoffset )
+   {
+      if ( argv[8-argoffset].a_type != A_SYMBOL )
+      {
+        error( "scrolllist : wrong arguments (selection color : %d)", 9-argoffset );
+        return NULL;
+      }
+      strcpy( x->x_secolor, argv[8-argoffset].a_w.w_symbol->s_name );
+   }
+
+   x->x_item = outlet_new(&x->x_obj, &s_symbol );
+
+   x->x_glist = (t_glist *) canvas_getcurrent(); 
+   x->x_nitems = 0;
+   x->x_items = (char **) malloc( x->x_capacity*sizeof(char*) );
+   for ( i=0; i<x->x_capacity; i++ )
+   {
+      x->x_items[i]=NULL;
+   }
+
+   x->x_selected = 0;
+   x->x_itemselected = -1;
+   x->x_firstseen = 0;
+   x->x_lastseen = -1;
+   x->x_ndisplayed = (t_int)(x->x_height/x->x_charheight );
+
+   x->x_graphics = 1;
+
+   post( "scrolllist : capacity=%d width=%d height=%d", x->x_capacity, x->x_width, x->x_height );
+
+   return (x);
+}
+
+static void scrolllist_free(t_scrolllist *x)
+{
+  t_int i;
+
+    // post( "scrolllist : scrolllist_free" );
+
+    // free text items list
+    if ( x->x_nitems )
+    {
+      for ( i=0; i<x->x_nitems; i++ )
+      {
+        if ( x->x_items[i] != NULL ) 
+        {
+          // post( "scrolllist : freeing entry %d size=%d : %s", i, strlen( x->x_items[i] ) + 1, x->x_items[i] );
+          free( x->x_items[i] );
+        }
+      }
+    }
+    free( x->x_items );
+    if ( x->x_font )
+    {
+       free( x->x_font );
+    }
+    if ( x->x_bgcolor )
+    {
+       free( x->x_bgcolor );
+    }
+    if ( x->x_fgcolor )
+    {
+       free( x->x_fgcolor );
+    }
+    if ( x->x_secolor )
+    {
+       free( x->x_secolor );
+    }
+}
+
+void scrolllist_setup(void)
+{
+    post( scrolllist_version );
+#include "scrolllist.tk2c"
+    scrolllist_class = class_new(gensym("scrolllist"), (t_newmethod)scrolllist_new,
+			      (t_method)scrolllist_free, sizeof(t_scrolllist), 
+                              CLASS_DEFAULT, A_GIMME, 0);
+    class_addmethod(scrolllist_class, (t_method)scrolllist_seek, gensym("seek"), A_DEFFLOAT, A_NULL );
+    class_addmethod(scrolllist_class, (t_method)scrolllist_dialog, gensym("dialog"), A_GIMME, A_NULL );
+    class_addmethod(scrolllist_class, (t_method)scrolllist_sort, gensym("sort"), A_NULL );
+    class_addmethod(scrolllist_class, (t_method)scrolllist_graphics, gensym("graphics"), A_DEFFLOAT, A_NULL );
+    class_addmethod(scrolllist_class, (t_method)scrolllist_scroll, gensym("scroll"), A_DEFFLOAT, A_NULL );
+    class_addmethod(scrolllist_class, (t_method)scrolllist_font, gensym("font"), A_SYMBOL, A_SYMBOL, A_DEFFLOAT, A_NULL );
+    class_addmethod(scrolllist_class, (t_method)scrolllist_insert, gensym("insert"), A_SYMBOL, A_DEFFLOAT, A_NULL );
+    class_addmethod(scrolllist_class, (t_method)scrolllist_replace, gensym("replace"), A_SYMBOL, A_DEFFLOAT, A_NULL );
+    class_addmethod(scrolllist_class, (t_method)scrolllist_add, gensym("add"), A_SYMBOL, A_NULL );
+    class_addmethod(scrolllist_class, (t_method)scrolllist_delete, gensym("delete"), A_DEFFLOAT, A_NULL );
+    class_addmethod(scrolllist_class, (t_method)scrolllist_clear, gensym("clear"), A_NULL );
+
+    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"));
+}
diff --git a/scrolllist/scrolllist.pd_linux b/scrolllist/scrolllist.pd_linux
new file mode 100755
index 0000000..35296e9
--- /dev/null
+++ b/scrolllist/scrolllist.pd_linux
diff --git a/scrolllist/scrolllist.tk b/scrolllist/scrolllist.tk
new file mode 100755
index 0000000..79ca61c
--- /dev/null
+++ b/scrolllist/scrolllist.tk
@@ -0,0 +1,141 @@
+############ scrolllist procedures  -- ydegoyon@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@free.fr     #########
diff --git a/scrolllist/scrolllist.tk2c b/scrolllist/scrolllist.tk2c
new file mode 100644
index 0000000..97129fb
--- /dev/null
+++ b/scrolllist/scrolllist.tk2c
@@ -0,0 +1,112 @@
+// ########### scrolllist procedures -- ydegoyon@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@free.fr #########
diff --git a/scrolllist/tk2c.bash b/scrolllist/tk2c.bash
new file mode 100755
index 0000000..9dfeb03
--- /dev/null
+++ b/scrolllist/tk2c.bash
@@ -0,0 +1,24 @@
+#!/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
diff --git a/scrolllist/yesterday.txt b/scrolllist/yesterday.txt
new file mode 100644
index 0000000..acbd1ed
--- /dev/null
+++ b/scrolllist/yesterday.txt
@@ -0,0 +1,34 @@
+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.