diff options
Diffstat (limited to 'scrolllist.c')
| -rw-r--r-- | scrolllist.c | 1218 |
1 files changed, 610 insertions, 608 deletions
diff --git a/scrolllist.c b/scrolllist.c index bbbbf73..e10846b 100644 --- a/scrolllist.c +++ b/scrolllist.c @@ -26,7 +26,7 @@ /* "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> @@ -124,12 +124,12 @@ typedef struct _scrolllist char *x_bgcolor; /* background color */ char *x_fgcolor; /* foreground color */ char *x_secolor; /* selection color */ -} t_scrolllist; +} t_scrolllist; static void scrolllist_erase(t_scrolllist *x, t_glist *glist) { - t_canvas *canvas=glist_getcanvas(glist); - t_int i; + t_canvas *canvas=glist_getcanvas(glist); + t_int i; // just in case we got confused if ( x->x_firstseen < 0 ) x->x_firstseen=0; @@ -144,8 +144,8 @@ static void scrolllist_erase(t_scrolllist *x, t_glist *glist) static void scrolllist_update(t_scrolllist *x, t_glist *glist) { - t_canvas *canvas=glist_getcanvas(glist); - t_int i; + t_canvas *canvas=glist_getcanvas(glist); + t_int i; // just in case we got confused if ( x->x_firstseen < 0 ) x->x_firstseen=0; @@ -154,24 +154,24 @@ static void scrolllist_update(t_scrolllist *x, t_glist *glist) // 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%lx.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 ); + // display the entry if displayable + if ( ( (i-x->x_firstseen)*x->x_charheight < x->x_height ) && ( x->x_items[i] != NULL ) ) + { + SYS_VGUI11(".x%lx.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%lx.c itemconfigure %xITEM%d -fill %s\n", - canvas, x, x->x_itemselected, x->x_secolor); + SYS_VGUI5(".x%lx.c itemconfigure %xITEM%d -fill %s\n", + canvas, x, x->x_itemselected, x->x_secolor); } } } @@ -180,53 +180,53 @@ 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] ) ); + 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); +{ + t_canvas *canvas=glist_getcanvas(glist); x->x_glist = glist; if ( x->x_graphics ) { - SYS_VGUI8(".x%lx.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); + SYS_VGUI8(".x%lx.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%lx.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); + SYS_VGUI7(".x%lx.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; - +{ + t_canvas *canvas=glist_getcanvas(glist); + t_int i; + struct timespec tv; + tv.tv_sec = 0; tv.tv_nsec = 10000000; SYS_VGUI7(".x%lx.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); + 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%lx.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); + // nanosleep( &tv, NULL ); + SYS_VGUI6(".x%lx.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 ); @@ -234,20 +234,20 @@ static void scrolllist_draw_move(t_scrolllist *x, t_glist *glist) static void scrolllist_draw_erase(t_scrolllist* x, t_glist* glist) { - t_canvas *canvas=glist_getcanvas(glist); - t_int i; - + t_canvas *canvas=glist_getcanvas(glist); + t_int i; + SYS_VGUI3(".x%lx.c delete %xTEXTLIST\n", canvas, x); for ( i=x->x_firstseen; i<=x->x_lastseen; i++ ) { - SYS_VGUI4(".x%lx.c delete %xITEM%d\n", canvas, x, i); + SYS_VGUI4(".x%lx.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); - + t_canvas *canvas=glist_getcanvas(glist); + // post( "scrolllist : select" ); if(x->x_selected) { @@ -258,75 +258,75 @@ static void scrolllist_draw_select(t_scrolllist* x, t_glist* glist) { SYS_VGUI3(".x%lx.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) + int *xp1, int *yp1, int *xp2, int *yp2) { - t_scrolllist* x = (t_scrolllist*)z; + 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; + *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), + 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, ";"); + binbuf_addv(b, ";"); } static void scrolllist_select(t_gobj *z, t_glist *glist, int selected) { - t_scrolllist *x = (t_scrolllist *)z; + t_scrolllist *x = (t_scrolllist *)z; - x->x_selected = selected; + x->x_selected = selected; - scrolllist_draw_select( x, glist ); + 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 ); - } + 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; + 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); + 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 ); @@ -334,234 +334,236 @@ static void scrolllist_displace(t_gobj *z, t_glist *glist, int dx, int dy) 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); + 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; -} - + 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; + 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); + 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); - } + 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) + 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; + t_scrolllist* x = (t_scrolllist *)z; + t_canvas *canvas=glist_getcanvas(x->x_glist); + t_int xoffset; - if (doit) + if (doit) { - // deselect previously selected item - SYS_VGUI5(".x%lx.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%lx.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 ); + // deselect previously selected item + SYS_VGUI5(".x%lx.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%lx.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; + 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, + 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); + // 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, - (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); + 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, + (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); + scrolllist_erase( x, x->x_glist ); + scrolllist_draw_erase(x, x->x_glist); - strcpy( x->x_bgcolor, s->s_name ); + strcpy( x->x_bgcolor, s->s_name ); - scrolllist_draw_new(x, x->x_glist); - scrolllist_update(x, x->x_glist); + 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); + scrolllist_erase( x, x->x_glist ); + scrolllist_draw_erase(x, x->x_glist); - strcpy( x->x_fgcolor, s->s_name ); + strcpy( x->x_fgcolor, s->s_name ); - scrolllist_draw_new(x, x->x_glist); - scrolllist_update(x, x->x_glist); + 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); + scrolllist_erase( x, x->x_glist ); + scrolllist_draw_erase(x, x->x_glist); - strcpy( x->x_secolor, s->s_name ); + strcpy( x->x_secolor, s->s_name ); - scrolllist_draw_new(x, x->x_glist); - scrolllist_update(x, x->x_glist); + 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; + char **titems; + t_int i, j, k, irank, indest; scrolllist_erase( x, x->x_glist ); @@ -569,59 +571,59 @@ static void scrolllist_sort(t_scrolllist* x) titems = (char**) malloc( x->x_capacity*sizeof(char*) ); for ( i=0; i<x->x_capacity; i++ ) { - titems[i]=NULL; + 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 ( x->x_items[i] != NULL ) { - 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; - } + 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++; } - // 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 ) + if ( x->x_items ) { - free( x->x_items ); - x->x_items = NULL; + free( x->x_items ); + x->x_items = NULL; } x->x_items = titems; - + scrolllist_update( x, x->x_glist ); } @@ -629,8 +631,8 @@ static void scrolllist_font(t_scrolllist* x, t_symbol *fname, t_symbol *fcase, t { if ( (t_int)fsize <= 4 ) { - post( "scrolllist : wrong font size in font message : %d", (t_int)fsize ); - return; + 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; @@ -642,357 +644,357 @@ static void scrolllist_font(t_scrolllist* x, t_symbol *fname, t_symbol *fcase, t 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 ); + 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 ); + 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 ); + 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 ); + 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 ); + 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; - } - if ( x->x_nitems == 0 ) return; - - iout = (t_int)fseeked % (x->x_nitems); - SYS_VGUI5(".x%lx.c itemconfigure %xITEM%d -fill %s\n", canvas, x, x->x_itemselected, x->x_fgcolor); - x->x_itemselected = iout; - SYS_VGUI5(".x%lx.c itemconfigure %xITEM%d -fill %s\n", canvas, x, x->x_itemselected, x->x_secolor); - scrolllist_output_current(x); + 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%lx.c itemconfigure %xITEM%d -fill %s\n", canvas, x, x->x_itemselected, x->x_fgcolor); + x->x_itemselected = iout; + SYS_VGUI5(".x%lx.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, - (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; 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); + 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, + (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; 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; + 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 ) + for ( i=0; i<x->x_nitems; i++ ) { - // post( "scrolllist : freeing entry %d size=%d : %s", i, strlen( x->x_items[i] ) + 1, x->x_items[i] ); - free( x->x_items[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 ); + free( x->x_font ); } if ( x->x_bgcolor ) { - free( x->x_bgcolor ); + free( x->x_bgcolor ); } if ( x->x_fgcolor ) { - free( x->x_fgcolor ); + free( x->x_fgcolor ); } if ( x->x_secolor ) { - free( x->x_secolor ); + free( x->x_secolor ); } } @@ -1000,8 +1002,8 @@ void scrolllist_setup(void) { verbose(0, scrolllist_version ); scrolllist_class = class_new(gensym("scrolllist"), (t_newmethod)scrolllist_new, - (t_method)scrolllist_free, sizeof(t_scrolllist), - CLASS_DEFAULT, A_GIMME, 0); + (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 ); @@ -1036,6 +1038,6 @@ void scrolllist_setup(void) class_setwidget(scrolllist_class, &scrolllist_widgetbehavior); sys_vgui("eval [read [open {%s/%s.tcl}]]\n", - scrolllist_class->c_externdir->s_name, + scrolllist_class->c_externdir->s_name, scrolllist_class->c_name->s_name); } |