//// "$Id: pack.cxx,v 1.1.1.1 2003/08/07 21:18:42 jasonk Exp $"//// Fl_Pack test program for the Fast Light Tool Kit (FLTK).//// Rather crude test of the Fl_Pack object.// Changing the type() of an Fl_Pack after it is displayed is not supported// so I have to do a lot of resizing of things before that.//// Copyright 1998-1999 by Bill Spitzak and others.//// This library is free software; you can redistribute it and/or// modify it under the terms of the GNU Library General Public// License as published by the Free Software Foundation; either// version 2 of the License, or (at your option) any later version.//// This library 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// Library General Public License for more details.//// You should have received a copy of the GNU Library General Public// License along with this library; if not, write to the Free Software// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307// USA.//// Please report all bugs and problems to "fltk-bugs@easysw.com".//#include <FL/Fl.H>#include <FL/Fl_Button.H>#include <FL/Fl_Light_Button.H>#include <FL/Fl_Window.H>#include <FL/Fl_Scroll.H>#include <FL/Fl_Value_Slider.H>#include <FL/Fl_Pack.H>Fl_Pack *pack;Fl_Scroll *scroll;void type_cb(Fl_Light_Button*, long v) {  for (int i = 0; i < pack->children(); i++) {    Fl_Widget* o = pack->child(i);    o->resize(0,0,25,25);  }  pack->resize(scroll->x(),scroll->y(),scroll->w(),scroll->h());  pack->parent()->redraw();  pack->type(uchar(v));  pack->redraw();}void spacing_cb(Fl_Value_Slider*o, long) {  pack->spacing(int(o->value()));  scroll->redraw();}int main(int argc, char **argv) { Fl_Window *w; {Fl_Window* o = new Fl_Window(365, 525);  w = o;  scroll = new Fl_Scroll(10,10,345,285); {Fl_Pack* o = new Fl_Pack(10, 10, 345, 285);  pack = o;  o->box(FL_DOWN_FRAME);  //o->box(FL_ENGRAVED_FRAME); new Fl_Button(35, 35, 25, 25, "b1"); new Fl_Button(45, 45, 25, 25, "b2"); new Fl_Button(55, 55, 25, 25, "b3"); new Fl_Button(65, 65, 25, 25, "b4"); new Fl_Button(75, 75, 25, 25, "b5"); new Fl_Button(85, 85, 25, 25, "b6"); new Fl_Button(95, 95, 25, 25, "b7"); new Fl_Button(105, 105, 25, 25, "b8"); new Fl_Button(115, 115, 25, 25, "b9"); new Fl_Button(125, 125, 25, 25, "b10"); new Fl_Button(135, 135, 25, 25, "b11"); new Fl_Button(145, 145, 25, 25, "b12"); new Fl_Button(155, 155, 25, 25, "b13"); new Fl_Button(165, 165, 25, 25, "b14"); new Fl_Button(175, 175, 25, 25, "b15"); new Fl_Button(185, 185, 25, 25, "b16"); new Fl_Button(195, 195, 25, 25, "b17"); new Fl_Button(205, 205, 25, 25, "b18"); new Fl_Button(215, 215, 25, 25, "b19"); new Fl_Button(225, 225, 25, 25, "b20"); new Fl_Button(235, 235, 25, 25, "b21"); new Fl_Button(245, 245, 25, 25, "b22"); new Fl_Button(255, 255, 25, 25, "b23"); new Fl_Button(265, 265, 25, 25, "b24");  o->end();  w->resizable(o); } scroll->end(); {Fl_Light_Button* o = new Fl_Light_Button(10, 325, 175, 25, "HORIZONTAL"); o->type(FL_RADIO_BUTTON);  o->callback((Fl_Callback*)type_cb, (void*)(Fl_Pack::HORIZONTAL)); } {Fl_Light_Button* o = new Fl_Light_Button(10, 350, 175, 25, "VERTICAL"); o->type(FL_RADIO_BUTTON); o->value(1);  o->callback((Fl_Callback*)type_cb, (void*)(Fl_Pack::VERTICAL)); } {Fl_Value_Slider* o = new Fl_Value_Slider(50,375, 295,25,"spacing:"); o->align(FL_ALIGN_LEFT); o->type(FL_HORIZONTAL); o->range(0,30); o->step(1); o->callback((Fl_Callback*)spacing_cb); } w->end(); } w->show(argc, argv); return Fl::run();}//// End of "$Id: pack.cxx,v 1.1.1.1 2003/08/07 21:18:42 jasonk Exp $".//