From d145fa6f792d6c44da2feec90507adb94e40323e Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Sun, 31 Jul 2011 03:59:16 +0000 Subject: got everything building using the template Makefile svn path=/trunk/externals/unauthorized/; revision=15173 --- scrolllist/INSTALL | 14 - scrolllist/ave-lucifer.txt | 35 -- scrolllist/scrolllist-help.pd | 124 ----- scrolllist/scrolllist.c | 1039 ----------------------------------------- scrolllist/scrolllist.tk | 141 ------ scrolllist/scrolllist.tk2c | 112 ----- scrolllist/tk2c.bash | 24 - scrolllist/yesterday.txt | 34 -- 8 files changed, 1523 deletions(-) delete mode 100755 scrolllist/INSTALL delete mode 100644 scrolllist/ave-lucifer.txt delete mode 100755 scrolllist/scrolllist-help.pd delete mode 100644 scrolllist/scrolllist.c delete mode 100755 scrolllist/scrolllist.tk delete mode 100644 scrolllist/scrolllist.tk2c delete mode 100755 scrolllist/tk2c.bash delete mode 100644 scrolllist/yesterday.txt (limited to 'scrolllist') diff --git a/scrolllist/INSTALL b/scrolllist/INSTALL deleted file mode 100755 index 9b308b4..0000000 --- a/scrolllist/INSTALL +++ /dev/null @@ -1,14 +0,0 @@ -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/ave-lucifer.txt b/scrolllist/ave-lucifer.txt deleted file mode 100644 index 8aca29e..0000000 --- a/scrolllist/ave-lucifer.txt +++ /dev/null @@ -1,35 +0,0 @@ -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/scrolllist-help.pd b/scrolllist/scrolllist-help.pd deleted file mode 100755 index b16fee2..0000000 --- a/scrolllist/scrolllist-help.pd +++ /dev/null @@ -1,124 +0,0 @@ -#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 75 533 Comments and bugs @ ydegoyon@free.fr; -#X symbolatom 29 507 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 -| 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 251 507 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 40 273 scrolllist 25 400 200 {Courier 12 bold} blue white #567823 -; -#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 57 275 r smsg; -#X obj 62 383 s somsg; -#X obj 29 481 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 msg 96 211 bgcolor blue; -#X msg 196 212 fgcolor white; -#X msg 304 211 secolor #567823; -#X text 421 212 change colors; -#X msg 97 234 bgcolor black; -#X msg 197 235 fgcolor green; -#X msg 304 234 secolor red; -#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; -#X connect 65 0 60 0; -#X connect 66 0 60 0; -#X connect 67 0 60 0; -#X connect 69 0 60 0; -#X connect 70 0 60 0; -#X connect 71 0 60 0; diff --git a/scrolllist/scrolllist.c b/scrolllist/scrolllist.c deleted file mode 100644 index 9348895..0000000 --- a/scrolllist/scrolllist.c +++ /dev/null @@ -1,1039 +0,0 @@ -/*---------------------- scrolllist~ ------------------------------------------ */ -/* */ -/* scrolllist~ : scrolling list of text items */ -/* constructor : scrolllist | scrolllist */ -/* */ -/* 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 -#include -#include -#include -#include -#include -#include -#include -#include "m_pd.h" -#include "m_imp.h" -#include "g_canvas.h" - - -#ifdef NT -#include -#include -#else -#include -#include -#include -#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.3, 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)x->x_obj.te_xpix, (t_int)x->x_obj.te_ypix, - atom_getsymbol(binbuf_getvec(x->x_obj.te_binbuf)), - 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, (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; six_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", - (int)x->x_capacity, (int)x->x_width, (int)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; ix_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, - (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_bgcolor(t_scrolllist *x, t_symbol *s) -{ - scrolllist_erase( x, x->x_glist ); - scrolllist_draw_erase(x, x->x_glist); - - strcpy( x->x_bgcolor, s->s_name ); - - scrolllist_draw_new(x, x->x_glist); - scrolllist_update(x, x->x_glist); -} - -static void scrolllist_fgcolor(t_scrolllist *x, t_symbol *s) -{ - scrolllist_erase( x, x->x_glist ); - scrolllist_draw_erase(x, x->x_glist); - - strcpy( x->x_fgcolor, s->s_name ); - - scrolllist_draw_new(x, x->x_glist); - scrolllist_update(x, x->x_glist); -} - -static void scrolllist_secolor(t_scrolllist *x, t_symbol *s) -{ - scrolllist_erase( x, x->x_glist ); - scrolllist_draw_erase(x, x->x_glist); - - strcpy( x->x_secolor, s->s_name ); - - 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; ix_capacity; i++ ) - { - titems[i]=NULL; - } - indest=0; - for ( i=0; ix_nitems; i++ ) - { - if ( x->x_items[i] != NULL ) - { - irank=0; - for ( j=0; jx_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, (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; ix_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; ix_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; - } - if ( x->x_nitems == 0 ) 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 " ); - 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 " ); - 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, - (int)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; ix_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; ix_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_bgcolor, gensym("bgcolor"), A_SYMBOL, A_NULL ); - class_addmethod(scrolllist_class, (t_method)scrolllist_fgcolor, gensym("fgcolor"), A_SYMBOL, A_NULL ); - class_addmethod(scrolllist_class, (t_method)scrolllist_secolor, gensym("secolor"), 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); - -} diff --git a/scrolllist/scrolllist.tk b/scrolllist/scrolllist.tk deleted file mode 100755 index 79ca61c..0000000 --- a/scrolllist/scrolllist.tk +++ /dev/null @@ -1,141 +0,0 @@ -############ 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 [concat scrolllist_ok $id] - bind $id.2rangef.width [concat scrolllist_ok $id] - bind $id.3rangef.height [concat scrolllist_ok $id] - bind $id.3_5rangef.font [concat scrolllist_ok $id] - bind $id.4rangef.bgcolor [concat scrolllist_ok $id] - bind $id.5rangef.fgcolor [concat scrolllist_ok $id] - bind $id.6rangef.secolor [concat scrolllist_ok $id] -} - -############ scrolllist procedures END -- ydegoyon@free.fr ######### diff --git a/scrolllist/scrolllist.tk2c b/scrolllist/scrolllist.tk2c deleted file mode 100644 index 97129fb..0000000 --- a/scrolllist/scrolllist.tk2c +++ /dev/null @@ -1,112 +0,0 @@ -// ########### 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 [concat scrolllist_ok $id]\n"); -sys_gui("bind $id.2rangef.width [concat scrolllist_ok $id]\n"); -sys_gui("bind $id.3rangef.height [concat scrolllist_ok $id]\n"); -sys_gui("bind $id.3_5rangef.font [concat scrolllist_ok $id]\n"); -sys_gui("bind $id.4rangef.bgcolor [concat scrolllist_ok $id]\n"); -sys_gui("bind $id.5rangef.fgcolor [concat scrolllist_ok $id]\n"); -sys_gui("bind $id.6rangef.secolor [concat scrolllist_ok $id]\n"); -sys_gui("}\n"); -// ########### scrolllist procedures END -- ydegoyon@free.fr ######### diff --git a/scrolllist/tk2c.bash b/scrolllist/tk2c.bash deleted file mode 100755 index 9dfeb03..0000000 --- a/scrolllist/tk2c.bash +++ /dev/null @@ -1,24 +0,0 @@ -#!/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 deleted file mode 100644 index acbd1ed..0000000 --- a/scrolllist/yesterday.txt +++ /dev/null @@ -1,34 +0,0 @@ -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. -- cgit v1.2.1