non
/
ntk
mirror of https://github.com/original-male/ntk
1
0
Fork 0
Code Releases 2 Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
124 Commits
1 Branch
8.9MB
Tree: 8ee564bef3
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '8ee564bef3'
${ noResults }
ntk/test/tree.fl

1134 lines
40KB
Raw Blame History 

  1. # data file for the Fltk User Interface Designer (fluid)

  2. version 1.0300 

  3. header_name {.h} 

  4. code_name {.cxx}

  5. decl {\#include <stdio.h>} {public global

  6. } 

  7. 

  8. decl {\#include <FL/Fl.H>} {public global

  9. } 

  10. 

  11. decl {\#include <FL/Fl_Pixmap.H>} {public global

  12. } 

  13. 

  14. decl {\#include <FL/Fl_Group.H>} {public global

  15. } 

  16. 

  17. decl {\#include <FL/Fl_Tree.H>} {public global

  18. } 

  19. 

  20. decl {\#include <FL/fl_ask.H>} {public global

  21. } 

  22. 

  23. decl {\#include <FL/fl_message.H>} {public global

  24. } 

  25. 

  26. decl {\#include <FL/Fl_File_Chooser.H>} {public global

  27. } 

  28. 

  29. decl {\#include <FL/Fl_Preferences.H>} {public global

  30. } 

  31. 

  32. decl {\#include <FL/Fl_Color_Chooser.H>} {public global

  33. } 

  34. 

  35. decl {int G_cb_counter = 0;} {

  36.   comment {// Global callback event counter} private local

  37. } 

  38. 

  39. Function {reason_as_name(Fl_Tree_Reason reason)} {

  40.   comment {Return an Fl_Tree_Reason as a text string name} return_type {const char*}

  41. } {

  42.   code {switch ( reason ) {

  43.       case FL_TREE_REASON_NONE:       return("none");

  44.       case FL_TREE_REASON_SELECTED:   return("selected");

  45.       case FL_TREE_REASON_DESELECTED: return("deselected");

  46.       case FL_TREE_REASON_OPENED:     return("opened");

  47.       case FL_TREE_REASON_CLOSED:     return("closed");

  48.       default:                        return("???");

  49.     }} {}

  50. } 

  51. 

  52. Function {Button_CB(Fl_Widget*w, void*data)} {return_type void

  53. } {

  54.   code {fprintf(stderr, "'%s' button pushed\\n", w->label());} {}

  55. } 

  56. 

  57. Function {AssignUserIcons()} {

  58.   comment {Assign user icons to the items} open

  59. } {

  60.   code {static const char *L_folder_xpm[] = {

  61.     "11 11 3 1",

  62.     ".  c None",

  63.     "x  c \#d8d833",

  64.     "@  c \#808011",

  65.     "...........",

  66.     ".....@@@@..",

  67.     "....@xxxx@.",

  68.     "@@@@@xxxx@@",

  69.     "@xxxxxxxxx@",

  70.     "@xxxxxxxxx@",

  71.     "@xxxxxxxxx@",

  72.     "@xxxxxxxxx@",

  73.     "@xxxxxxxxx@",

  74.     "@xxxxxxxxx@",

  75.     "@@@@@@@@@@@"};

  76. static Fl_Pixmap L_folderpixmap(L_folder_xpm);

  77. 

  78. static const char *L_document_xpm[] = {

  79.     "11 11 3 1",

  80.     ".  c None",

  81.     "x  c \#d8d8f8",

  82.     "@  c \#202060",

  83.     ".@@@@@@@@@.",

  84.     ".@xxxxxxx@.",

  85.     ".@xxxxxxx@.",

  86.     ".@xxxxxxx@.",

  87.     ".@xxxxxxx@.",

  88.     ".@xxxxxxx@.",

  89.     ".@xxxxxxx@.",

  90.     ".@xxxxxxx@.",

  91.     ".@xxxxxxx@.",

  92.     ".@xxxxxxx@.",

  93.     ".@@@@@@@@@."};

  94. static Fl_Pixmap L_documentpixmap(L_document_xpm);

  95. 

  96. // Assign user icons to tree items

  97. for ( Fl_Tree_Item *item = tree->first(); item; item=item->next())

  98.     if ( usericon_radio->value() )

  99.         // Assign custom icons

  100.         item->usericon(item->has_children() ? &L_folderpixmap : &L_documentpixmap);

  101.     else

  102.     	// Don't assign custom icons

  103.         item->usericon(0);

  104. 

  105. tree->redraw();} {}

  106. } 

  107. 

  108. Function {RebuildTree()} {

  109.   comment {Rebuild the 'example tree' from scratch} open

  110. } {

  111.   code {// REBUILD THE TREE TO MAKE CURRENT "DEFAULT" PREFS TAKE EFFECT

  112. tree->clear();

  113. tree->add("Aaa");

  114. tree->add("Bbb");

  115. tree->add("Ccc");

  116. tree->add("Ddd");

  117. tree->add("Bbb/child-01");

  118. tree->add("Bbb/child-01/111");

  119. tree->add("Bbb/child-01/222");

  120. tree->add("Bbb/child-01/333");

  121. tree->add("Bbb/child-02");

  122. tree->add("Bbb/child-03");

  123. tree->add("Bbb/child-04");

  124. 

  125. {

  126.     static Fl_Button *but = 0;

  127.     // Assign an FLTK widget to one of the items

  128.     Fl_Tree_Item *i;

  129.     if ( ( i = tree->find_item("Bbb/child-03") ) != NULL ) {

  130.         if ( !but ) {		// only do this once at program startup

  131.             tree->begin();

  132.             but = new Fl_Button(1,1,140,1,"ccc button");     // we control w() only

  133.             but->labelsize(10);

  134. 	    but->callback(Button_CB);

  135.         }

  136.         i->widget(but);

  137.         tree->end();

  138.     }

  139. }

  140. {

  141.     // Assign an FLTK group to one of the items with widgets

  142.     Fl_Tree_Item *i;

  143.     if ( ( i = tree->find_item("Bbb/child-04") ) != NULL ) {

  144.         static Fl_Group *grp = 0;

  145.         if ( !grp ) {		// only do this once at program startup

  146.             tree->begin();

  147.               grp = new Fl_Group(100,100,140,18); // build group.. tree handles position

  148.               grp->color(FL_WHITE);

  149.               grp->begin();

  150.                 Fl_Button *abut = new Fl_Button(grp->x()+0 ,grp->y()+2,65,15,"D1");

  151.                 abut->labelsize(10);

  152. 		abut->callback(Button_CB);

  153.                 Fl_Button *bbut = new Fl_Button(grp->x()+75,grp->y()+2,65,15,"D2");

  154.                 bbut->labelsize(10);

  155. 		bbut->callback(Button_CB);

  156.               grp->end();

  157.               grp->resizable(grp);

  158.             tree->end();

  159.         }

  160.         i->widget(grp);

  161.     }

  162. }

  163. 

  164. // Add an 'Ascending' node, and create it sorted

  165. tree->sortorder(FL_TREE_SORT_NONE);

  166. tree->add("Ascending")->close();

  167. tree->sortorder(FL_TREE_SORT_ASCENDING);

  168. tree->add("Ascending/Zzz");

  169. tree->add("Ascending/Xxx");

  170. tree->add("Ascending/Aaa");

  171. tree->add("Ascending/Bbb");

  172. tree->add("Ascending/Yyy");

  173. tree->add("Ascending/Ccc");

  174. 

  175. // Add a 'Descending' node, and create it sorted

  176. tree->sortorder(FL_TREE_SORT_NONE);

  177. tree->add("Descending")->close();

  178. tree->sortorder(FL_TREE_SORT_DESCENDING);

  179. tree->add("Descending/Zzz");

  180. tree->add("Descending/Xxx");

  181. tree->add("Descending/Aaa");

  182. tree->add("Descending/Bbb");

  183. tree->add("Descending/Yyy");

  184. tree->add("Descending/Ccc");

  185. 

  186. // Add 500 items in numerical order

  187. tree->sortorder(FL_TREE_SORT_NONE);

  188. for ( int t=0; t<500; t++ ) {

  189.     static char s[80];

  190.     sprintf(s, "500 Items/item %04d", t);

  191.     tree->add(s);

  192. }

  193. tree->close("500 Items");	// close the 500 items by default

  194. 

  195. AssignUserIcons();

  196. 

  197. tree->redraw();} {selected

  198.   }

  199. } 

  200. 

  201. Function {EditColor(Fl_Color val)} {

  202.   comment {Prompt the user to change the specified color} return_type Fl_Color

  203. } {

  204.   code {uchar r,g,b;

  205. // Get the current color

  206. Fl::get_color(val,r,g,b);

  207. 

  208. // Bring up a color chooser to edit it

  209. fl_color_chooser("Choose Color",r,g,b);

  210. 

  211. // Return the new color the user picked

  212. return(fl_rgb_color(r,g,b));} {}

  213. } 

  214. 

  215. Function {} {open

  216. } {

  217.   Fl_Window window {

  218.     label tree open

  219.     xywh {800 102 1015 445} type Double visible

  220.   } {

  221.     Fl_Group tree {

  222.       label Tree

  223.       user_data 1234

  224.       callback {G_cb_counter++; // Increment callback counter whenever tree callback is invoked

  225. 

  226. Fl_Tree_Item *item = tree->callback_item();

  227. if ( item ) {

  228.   fprintf(stderr, "TREE CALLBACK: label='%s' userdata=%ld reason=%s\\n",

  229.           item->label(),

  230.           (long)(fl_intptr_t)tree->user_data(),

  231. 	  reason_as_name(tree->callback_reason()));

  232. } else {

  233.   fprintf(stderr, "TREE CALLBACK: reason=%s item=(no item -- probably multiple items were changed at once)\\n",

  234.           reason_as_name(tree->callback_reason()));

  235. }} open

  236.       tooltip {Test tree} xywh {15 22 280 411} box DOWN_BOX color 55 selection_color 15

  237.       class Fl_Tree

  238.     } {}

  239.     Fl_Group {} {open

  240.       xywh {300 5 705 427}

  241.       code0 {o->resizable(0);}

  242.     } {

  243.       Fl_Box {} {

  244.         label {Tree Globals}

  245.         tooltip {These controls only affect the selected items. If no items are selected, all existing items in tree are modified.} xywh {311 23 335 263} box GTK_DOWN_BOX color 47 labelsize 12 align 1

  246.       }

  247.       Fl_Value_Slider margintop_slider {

  248.         label {margintop()}

  249.         user_data tree

  250.         callback {int val = (int)margintop_slider->value();

  251. tree->margintop(val);

  252. tree->redraw();}

  253.         tooltip {Changes the top margin for the tree widget} xywh {486 31 140 16} type Horizontal labelsize 12 align 4 step 0.01 textsize 12

  254.         code0 {o->value(tree->margintop());}

  255.         code1 {o->range(0.0, 100.0);}

  256.         code2 {o->step(1.0);}

  257.         code3 {o->color(46); o->selection_color(FL_RED);}

  258.       }

  259.       Fl_Value_Slider marginleft_slider {

  260.         label {marginleft()}

  261.         user_data tree

  262.         callback {int val = (int)marginleft_slider->value();

  263. tree->marginleft(val);

  264. tree->redraw();}

  265.         tooltip {Changes the left margin for the tree widget} xywh {486 51 140 16} type Horizontal labelsize 12 align 4 step 0.01 textsize 12

  266.         code0 {o->value(tree->marginleft());}

  267.         code1 {o->range(0.0, 100.0);}

  268.         code2 {o->step(1.0);}

  269.         code3 {o->color(46); o->selection_color(FL_RED);}

  270.       }

  271.       Fl_Value_Slider openchild_marginbottom_slider {

  272.         label {openchild_marginbottom()}

  273.         user_data tree

  274.         callback {int val = (int)openchild_marginbottom_slider->value();

  275. tree->openchild_marginbottom(val);

  276. tree->redraw();}

  277.         tooltip {Changes the vertical space below an open child tree} xywh {486 71 140 16} type Horizontal labelsize 12 align 4 step 0.01 textsize 12

  278.         code0 {o->value(tree->openchild_marginbottom());}

  279.         code1 {o->range(0.0, 100.0);}

  280.         code2 {o->step(1.0);}

  281.         code3 {o->color(46); o->selection_color(FL_RED);}

  282.       }

  283.       Fl_Choice collapseicons_chooser {

  284.         label {Collapse icons}

  285.         callback {static const char *L_open_xpm[] = {

  286. \#ifdef __APPLE__

  287.   "11 11 3 1",

  288.   ".	c \#fefefe",

  289.   "\#	c \#444444",

  290.   "@	c \#000000",

  291.   "\#\#\#\#\#\#\#\#\#\#\#",

  292.   "\#.........\#",

  293.   "\#.........\#",

  294.   "\#....@....\#",

  295.   "\#....@....\#",

  296.   "\#..@@@@@..\#",

  297.   "\#....@....\#",

  298.   "\#....@....\#",

  299.   "\#.........\#",

  300.   "\#.........\#",

  301.   "\#\#\#\#\#\#\#\#\#\#\#"

  302. \#else

  303.     "11 11 2 1",

  304.     ".  c None",

  305.     "@  c \#000000",

  306.     "...@.......",

  307.     "...@@......",

  308.     "...@@@.....",

  309.     "...@@@@....",

  310.     "...@@@@@...",

  311.     "...@@@@@@..",

  312.     "...@@@@@...",

  313.     "...@@@@....",

  314.     "...@@@.....",

  315.     "...@@......",

  316.     "...@......."

  317. \#endif

  318.     };

  319. static Fl_Pixmap L_openpixmap(L_open_xpm);

  320. 

  321. static const char *L_close_xpm[] = {

  322. \#ifdef __APPLE__

  323.   "11 11 3 1",

  324.   ".	c \#fefefe",

  325.   "\#	c \#444444",

  326.   "@	c \#000000",

  327.   "\#\#\#\#\#\#\#\#\#\#\#",

  328.   "\#.........\#",

  329.   "\#.........\#",

  330.   "\#.........\#",

  331.   "\#.........\#",

  332.   "\#..@@@@@..\#",

  333.   "\#.........\#",

  334.   "\#.........\#",

  335.   "\#.........\#",

  336.   "\#.........\#",

  337.   "\#\#\#\#\#\#\#\#\#\#\#"

  338. \#else

  339.     "11 11 2 1",

  340.     ".  c None",

  341.     "@  c \#000000",

  342.     "...........",

  343.     "...........",

  344.     "...........",

  345.     "...........",

  346.     "...........",

  347.     "@@@@@@@@@@@",

  348.     ".@@@@@@@@@.",

  349.     "..@@@@@@@..",

  350.     "...@@@@@...",

  351.     "....@@@....",

  352.     ".....@....."

  353. \#endif

  354.     };

  355. static Fl_Pixmap L_closepixmap(L_close_xpm);

  356. 

  357. switch ( collapseicons_chooser->value() ) {

  358.     case 0:

  359.         tree->showcollapse(1);

  360.         tree->openicon(0);

  361.         tree->closeicon(0);

  362.         break;

  363.     case 1:

  364.         tree->showcollapse(1);

  365.         tree->openicon(&L_openpixmap);

  366.         tree->closeicon(&L_closepixmap);

  367.         break;

  368.     case 2:

  369.         tree->showcollapse(0);

  370.         break;

  371. }}

  372.         tooltip {Tests Fl_Tree::openicon() and Fl_Tree::closeicon()} xywh {486 96 140 21} down_box BORDER_BOX labelsize 12 textsize 11

  373.       } {

  374.         MenuItem {} {

  375.           label Normal

  376.           xywh {10 10 36 21} labelsize 12

  377.         }

  378.         MenuItem {} {

  379.           label Custom

  380.           xywh {20 20 36 21} labelsize 12

  381.         }

  382.         MenuItem {} {

  383.           label Off

  384.           xywh {30 30 36 21} labelsize 12

  385.         }

  386.       }

  387.       Fl_Choice connectorstyle_chooser {

  388.         label {Line style}

  389.         callback {// CHANGE COLLAPSESTYLE

  390. switch ( connectorstyle_chooser->value() ) {

  391.     case 0: tree->connectorstyle(FL_TREE_CONNECTOR_NONE);     break;

  392.     case 1: tree->connectorstyle(FL_TREE_CONNECTOR_DOTTED);   break;

  393.     case 2: tree->connectorstyle(FL_TREE_CONNECTOR_SOLID);    break;

  394. }}

  395.         tooltip {Tests connectorstyle() bit flags} xywh {486 120 140 21} down_box BORDER_BOX labelsize 12 textsize 11

  396.         code0 {switch (tree->connectorstyle()) { case FL_TREE_CONNECTOR_NONE: connectorstyle_chooser->value(0); break; case FL_TREE_CONNECTOR_DOTTED: connectorstyle_chooser->value(1); break; case FL_TREE_CONNECTOR_SOLID: connectorstyle_chooser->value(2); break; }}

  397.       } {

  398.         MenuItem {} {

  399.           label None

  400.           xywh {40 40 36 21} labelsize 12

  401.         }

  402.         MenuItem {} {

  403.           label Dotted

  404.           xywh {20 20 36 21} labelsize 12

  405.         }

  406.         MenuItem {} {

  407.           label Solid

  408.           xywh {30 30 36 21} labelsize 12

  409.         }

  410.       }

  411.       Fl_Choice selectmode_chooser {

  412.         label {Selection Mode}

  413.         callback {// Set selection mode

  414. switch ( selectmode_chooser->value() ) {

  415.     case 0:  tree->selectmode(FL_TREE_SELECT_NONE);   break;	// None

  416.     case 1:  tree->selectmode(FL_TREE_SELECT_SINGLE); break;	// Single

  417.     case 2:  tree->selectmode(FL_TREE_SELECT_MULTI);  break; 	// Multi

  418.     default: tree->selectmode(FL_TREE_SELECT_SINGLE); break;	// Single

  419. }}

  420.         tooltip {Sets how Fl_Tree handles mouse selection of tree items} xywh {486 144 140 21} down_box BORDER_BOX labelsize 12 textsize 11

  421.         code0 {selectmode_chooser->value(1);}

  422.         code1 {cb_selectmode_chooser(selectmode_chooser, (void*)0);}

  423.       } {

  424.         MenuItem {} {

  425.           label None

  426.           xywh {40 40 36 21} labelsize 12

  427.         }

  428.         MenuItem {} {

  429.           label Single

  430.           xywh {50 50 36 21} labelsize 12

  431.         }

  432.         MenuItem {} {

  433.           label Multi

  434.           xywh {60 60 36 21} labelsize 12

  435.         }

  436.       }

  437.       Fl_Choice whenmode_chooser {

  438.         label When

  439.         callback {// Set when mode

  440. switch ( whenmode_chooser->value() ) {

  441.   case 0:  tree->when(FL_WHEN_RELEASE);   break;

  442.   case 1:  tree->when(FL_WHEN_CHANGED);   break;

  443.   case 2:  tree->when(FL_WHEN_NEVER);     break;

  444.   default: tree->when(FL_WHEN_RELEASE);   break;

  445. }}

  446.         tooltip {Sets when() the tree's callback is invoked} xywh {486 168 140 21} down_box BORDER_BOX labelsize 12 textsize 11

  447.         code0 {whenmode_chooser->value(1);}

  448.         code1 {cb_whenmode_chooser(whenmode_chooser, (void*)0);}

  449.       } {

  450.         MenuItem {} {

  451.           label Changed

  452.           xywh {50 50 36 21} labelsize 12

  453.         }

  454.         MenuItem {} {

  455.           label Released

  456.           xywh {60 60 36 21} labelsize 12

  457.         }

  458.         MenuItem {} {

  459.           label Never

  460.           xywh {70 70 36 21} labelsize 12

  461.         }

  462.       }

  463.       Fl_Check_Button usericon_radio {

  464.         label {Enable user icons?}

  465.         user_data tree

  466.         callback {AssignUserIcons();}

  467.         tooltip {Tests Fl_Tree_Item::usericon()} xywh {486 194 20 16} down_box DOWN_BOX labelsize 12 align 7

  468.         code0 {usericon_radio->value(1);}

  469.       }

  470.       Fl_Check_Button showroot_radio {

  471.         label {Show root?}

  472.         user_data tree

  473.         callback {int onoff = showroot_radio->value();

  474. tree->showroot(onoff);}

  475.         tooltip {Tests tree->showroot();} xywh {486 211 20 16} down_box DOWN_BOX labelsize 12 align 7

  476.         code0 {int onoff = tree->showroot(); showroot_radio->value(onoff);}

  477.       }

  478.       Fl_Check_Button visiblefocus_checkbox {

  479.         label {Visible focus?}

  480.         user_data tree

  481.         callback {int onoff = visiblefocus_checkbox->value();

  482. tree->visible_focus(onoff);}

  483.         tooltip {Toggles the tree's visible_focus() box} xywh {486 228 20 16} down_box DOWN_BOX labelsize 12 align 7

  484.         code0 {int onoff = tree->visible_focus(); visiblefocus_checkbox->value(onoff);}

  485.       }

  486.       Fl_Button selection_color_button {

  487.         label {Selection Color}

  488.         callback {Fl_Color val = EditColor(tree->selection_color());		// Get color of first item in tree

  489. selection_color_button->color(val);	// update modified color to button

  490. tree->selection_color(val);

  491. tree->redraw();}

  492.         tooltip {Changes the tree widget's selection color. Tests Fl_Tree::selection_color()} xywh {486 251 16 16} box DOWN_BOX labelsize 12 align 7

  493.         code0 {o->color(tree->selection_color());}

  494.       }

  495.       Fl_Box {} {

  496.         label {Test Operations}

  497.         tooltip {These controls only affect the defaults for new items that are created. These test the Fl_Tree_Prefs methods.} xywh {311 312 335 120} box GTK_DOWN_BOX color 47 labelsize 12 align 1

  498.       }

  499.       Fl_Box showitem_box {

  500.         label {show_item()

  501. }

  502.         xywh {331 335 70 82} box GTK_DOWN_BOX labelsize 11 align 1

  503.       }

  504.       Fl_Button {} {

  505.         label Show

  506.         callback {Fl_Tree_Item *item = tree->next_selected_item();

  507. tree->show_item(item);}

  508.         tooltip {Tests show_item() with no position specified.

  509. Makes the selected item visible IF it is off-screen.

  510. No change made if it is not off-screen.} xywh {346 344 40 17} labelsize 11

  511.       }

  512.       Fl_Button {} {

  513.         label Top

  514.         callback {Fl_Tree_Item *item = tree->next_selected_item();

  515. tree->show_item_top(item);}

  516.         tooltip {Test show_item_top().

  517. Scrolls selected item to the top of the display

  518. (only works if scrollbar showing)

  519. To use:

  520. 1) open '500 items'

  521. 2) select item 0010

  522. 3) Hit Top/Mid/Bot} xywh {346 361 40 16} labelsize 11

  523.       }

  524.       Fl_Button {} {

  525.         label Mid

  526.         callback {Fl_Tree_Item *item = tree->next_selected_item();

  527. tree->show_item_middle(item);}

  528.         tooltip {Tests show_item_middle().

  529. Scrolls the selected item to the middle of the display

  530. To use:

  531.   1) open '500 items'

  532.   2) select 'item 0010'

  533.   3) Hit Top/Mid/Bot} xywh {346 377 40 16} labelsize 11

  534.       }

  535.       Fl_Button {} {

  536.         label Bot

  537.         callback {Fl_Tree_Item *item = tree->next_selected_item();

  538. tree->show_item_bottom(item);}

  539.         tooltip {Tests show_item_bottom().

  540. Scrolls the selected item to the bottom of the display

  541. To use:

  542.   1) open '500 items'

  543.   2) select 'item 0010'

  544.   3) Hit Top/Mid/Bot} xywh {346 393 40 16} labelsize 11

  545.       }

  546.       Fl_Button loaddb_button {

  547.         label {Load Database...}

  548.         callback {const char *filename = fl_file_chooser("Select a Preferences style Database", "Preferences(*.prefs)", 0L);

  549. if (filename) {

  550.   tree->clear();

  551.   Fl_Preferences prefs(filename, 0L, 0L);

  552.   tree->load(prefs);

  553.   tree->redraw();

  554. }}

  555.         tooltip {Load the contents of an Fl_Preferences database into the tree view} xywh {431 338 95 16} labelsize 9

  556.       }

  557.       Fl_Button insertabove_button {

  558.         label {Insert Above}

  559.         callback {Fl_Tree_Item *item=tree->first();

  560. while (item) {

  561.     if ( item->is_selected() ) {

  562.         tree->insert_above(item, "AaaAaa");

  563.         tree->insert_above(item, "BbbBbb");

  564.         tree->insert_above(item, "CccCcc");

  565.     }

  566.     item = item->next();

  567. }

  568. 

  569. tree->redraw();}

  570.         tooltip {Inserts three items above the selected items} xywh {431 358 95 16} labelsize 9

  571.       }

  572.       Fl_Button rebuildtree_button {

  573.         label {Rebuild Tree}

  574.         callback {RebuildTree();}

  575.         tooltip {Rebuilds the tree with defaults} xywh {431 378 95 16} labelsize 9

  576.       }

  577.       Fl_Button showpathname_button {

  578.         label {Show Pathname}

  579.         callback {Fl_Tree_Item *item = tree->first_selected_item();

  580. if ( !item ) { fl_message("No item was selected"); return; }

  581. 

  582. char pathname[256];

  583. switch ( tree->item_pathname(pathname, sizeof(pathname), item) ) {

  584.     case  0: fl_message("Pathname for '%s' is: \\"%s\\"", (item->label() ? item->label() : "???"), pathname); break;

  585.     case -1: fl_message("item_pathname() returned -1 (NOT FOUND)"); break;

  586.     case -2: fl_message("item_pathname() returned -2 (STRING TOO LONG)"); break;

  587. }}

  588.         tooltip {Show the pathname for the selected item. Tests the Fl_Tree::item_pathname() method.} xywh {431 398 95 16} labelsize 9

  589.       }

  590.       Fl_Button clearall_button {

  591.         label {Clear All}

  592.         callback {tree->clear();

  593. tree->redraw();}

  594.         tooltip {Clears all items

  595. Tests Fl_Tree::clear()} xywh {531 338 95 16} labelsize 9

  596.       }

  597.       Fl_Button testcallbackflag_button {

  598.         label {Test Callback Flag}

  599.         callback {Fl_Tree_Item *root = tree->root();

  600. fprintf(stderr, "--- Checking docallback off\\n");

  601. if (!root) return;

  602. 

  603. //// "OFF" TEST

  604. 

  605. // open/close: Make sure these methods don't trigger cb

  606. G_cb_counter = 0; tree->close(root, 0);       if ( G_cb_counter ) fl_alert("FAILED 'OFF' TEST\\n close(item) triggered cb!");

  607. G_cb_counter = 0; tree->open(root, 0);        if ( G_cb_counter ) fl_alert("FAILED 'OFF' TEST\\n open(item) triggered cb!");

  608. G_cb_counter = 0; tree->open_toggle(root, 0); if ( G_cb_counter ) fl_alert("FAILED 'OFF' TEST\\n open_toggle(item) triggered cb!");

  609. G_cb_counter = 0; tree->open("ROOT", 0);      if ( G_cb_counter ) fl_alert("FAILED 'OFF' TEST\\n open(path) triggered cb!");

  610. G_cb_counter = 0; tree->close("ROOT", 0);     if ( G_cb_counter ) fl_alert("FAILED 'OFF' TEST\\n close(path) triggered cb!");

  611. tree->open(root,0);	// leave root open

  612. 

  613. // select/deselect: Make sure these methods don't trigger cb

  614. G_cb_counter = 0; tree->select(root, 0);        if ( G_cb_counter ) fl_alert("FAILED 'OFF' TEST\\n select(item) triggered cb!");

  615. G_cb_counter = 0; tree->deselect(root, 0);      if ( G_cb_counter ) fl_alert("FAILED 'OFF' TEST\\n deselect(item) triggered cb!");

  616. G_cb_counter = 0; tree->select_toggle(root, 0); if ( G_cb_counter ) fl_alert("FAILED 'OFF' TEST\\n select_toggle(item) triggered cb!");

  617. G_cb_counter = 0; tree->deselect("ROOT", 0);    if ( G_cb_counter ) fl_alert("FAILED 'OFF' TEST\\n deselect(path) triggered cb!");

  618. G_cb_counter = 0; tree->select("ROOT", 0);      if ( G_cb_counter ) fl_alert("FAILED 'OFF' TEST\\n select(path) triggered cb!");

  619. tree->deselect("ROOT"); // leave deselected

  620. 

  621. //// "ON" TEST

  622. 

  623. // open/close: Make sure these methods don't trigger cb

  624. G_cb_counter = 0; tree->close(root, 1);       if ( !G_cb_counter ) fl_alert("FAILED 'ON' TEST\\n close(item) cb wasn't triggered!");

  625. G_cb_counter = 0; tree->open(root, 1);        if ( !G_cb_counter ) fl_alert("FAILED 'ON' TEST\\n open(item) cb wasn't triggered!");

  626. G_cb_counter = 0; tree->open_toggle(root, 1); if ( !G_cb_counter ) fl_alert("FAILED 'ON' TEST\\n open_toggle(item) cb wasn't triggered!");

  627. G_cb_counter = 0; tree->open(root, 1);        if ( !G_cb_counter ) fl_alert("FAILED 'ON' TEST\\n open(item)[2] cb wasn't triggered!");

  628. G_cb_counter = 0; tree->close(root, 1);       if ( !G_cb_counter ) fl_alert("FAILED 'ON' TEST\\n close(item)[2] cb wasn't triggered!");

  629. G_cb_counter = 0; tree->open("ROOT", 1);      if ( !G_cb_counter ) fl_alert("FAILED 'ON' TEST\\n open(path) cb wasn't triggered!");

  630. G_cb_counter = 0; tree->close("ROOT", 1);     if ( !G_cb_counter ) fl_alert("FAILED 'ON' TEST\\n close(path) cb wasn't triggered!");

  631. tree->open(root,0);	// leave root open

  632. 

  633. // select/deselect: Make sure these methods don't trigger cb

  634. G_cb_counter = 0; tree->select(root, 1);        if ( !G_cb_counter ) fl_alert("FAILED 'ON' TEST\\n select(item) cb wasn't triggered!");

  635. G_cb_counter = 0; tree->deselect(root, 1);      if ( !G_cb_counter ) fl_alert("FAILED 'ON' TEST\\n deselect(item) cb wasn't triggered!");

  636. G_cb_counter = 0; tree->select_toggle(root, 1); if ( !G_cb_counter ) fl_alert("FAILED 'ON' TEST\\n select_toggle(item) cb wasn't triggered!");

  637. G_cb_counter = 0; tree->deselect("ROOT", 1);    if ( !G_cb_counter ) fl_alert("FAILED 'ON' TEST\\n deselect(path) cb wasn't triggered!");

  638. G_cb_counter = 0; tree->select("ROOT", 1);      if ( !G_cb_counter ) fl_alert("FAILED 'ON' TEST\\n select(path) cb wasn't triggered!");

  639. tree->deselect("ROOT"); // leave deselected

  640. 

  641. //// "default" TEST (should be same as 'on'

  642. 

  643. // open/close: Make sure these methods don't trigger cb

  644. G_cb_counter = 0; tree->close(root);       if ( !G_cb_counter ) fl_alert("FAILED 'DEFAULT' TEST: close(item) cb wasn't triggered!");

  645. G_cb_counter = 0; tree->open(root);        if ( !G_cb_counter ) fl_alert("FAILED 'DEFAULT' TEST: open(item) cb wasn't triggered!");

  646. G_cb_counter = 0; tree->open_toggle(root); if ( !G_cb_counter ) fl_alert("FAILED 'DEFAULT' TEST: open_toggle(item) cb wasn't triggered!");

  647. G_cb_counter = 0; tree->open("ROOT");      if ( !G_cb_counter ) fl_alert("FAILED 'DEFAULT' TEST: open(path) cb wasn't triggered!");

  648. G_cb_counter = 0; tree->close("ROOT");     if ( !G_cb_counter ) fl_alert("FAILED 'DEFAULT' TEST: close(path) cb wasn't triggered!");

  649. tree->open(root,0);	// leave root open

  650. 

  651. // select/deselect: Make sure these methods don't trigger cb

  652. G_cb_counter = 0; tree->select(root);        if ( !G_cb_counter ) fl_alert("FAILED 'DEFAULT' TEST\\n select(item) cb wasn't triggered!");

  653. G_cb_counter = 0; tree->deselect(root);      if ( !G_cb_counter ) fl_alert("FAILED 'DEFAULT' TEST\\n deselect(item) cb wasn't triggered!");

  654. G_cb_counter = 0; tree->select_toggle(root); if ( !G_cb_counter ) fl_alert("FAILED 'DEFAULT' TEST\\n select_toggle(item) cb wasn't triggered!");

  655. G_cb_counter = 0; tree->deselect("ROOT");    if ( !G_cb_counter ) fl_alert("FAILED 'DEFAULT' TEST\\n deselect(path) cb wasn't triggered!");

  656. G_cb_counter = 0; tree->select("ROOT");      if ( !G_cb_counter ) fl_alert("FAILED 'DEFAULT' TEST\\n select(path) cb wasn't triggered!");

  657. tree->deselect("ROOT"); // leave deselected

  658. 

  659. fl_alert("TEST COMPLETED\\n If you didn't see any error dialogs, test PASSED.");}

  660.         tooltip {Test the 'docallback' argument can disable callbacks.} xywh {531 358 95 16} labelsize 9

  661.       }

  662.       Fl_Box {} {

  663.         label {Selected Items}

  664.         tooltip {These controls only affect the selected items. If no items are selected, all existing items in tree are modified.} xywh {661 23 335 263} box GTK_DOWN_BOX color 47 labelsize 12 align 1

  665.       }

  666.       Fl_Choice all_font_choice {

  667.         label {Label Font}

  668.         callback {// Find first item in tree

  669. Fl_Tree_Item *item = tree->first();

  670. if ( !item ) return;

  671. 

  672. // Get first item's font.

  673. Fl_Font val = (Fl_Font)all_font_choice->value(); // Get font value

  674. 

  675. // Do selected items

  676. int count = 0;

  677. for ( item=tree->first(); item; item = tree->next(item) ) {

  678.     if ( item->is_selected() ) {

  679.         item->labelfont(val);

  680.         count++;

  681.     }

  682. }

  683. 

  684. // No items selected? Do all..

  685. if ( ! count ) {

  686.     for ( item=tree->first(); item; item = tree->next(item) ) {

  687.         item->labelfont(val);

  688.     }

  689. }

  690. 

  691. tree->redraw();}

  692.         tooltip {Changes the font for the selected items's labels. If none selected, all are changed. Tests Fl_Tree_Item::labelfont();} xywh {828 31 140 21} down_box BORDER_BOX labelsize 12 textsize 11

  693.         code0 {o->value((int)tree->item_labelfont());   // get tree's current font, assign to chooser}

  694.       } {

  695.         MenuItem {} {

  696.           label Helvetica

  697.           xywh {30 30 36 21} labelsize 12

  698.         }

  699.         MenuItem {} {

  700.           label {Helvetica Bold}

  701.           xywh {40 40 36 21} labelsize 12

  702.         }

  703.         MenuItem {} {

  704.           label {Helvetica Italic}

  705.           xywh {55 55 36 21} labelsize 12

  706.         }

  707.         MenuItem {} {

  708.           label {Helvetica Bold Italic}

  709.           xywh {60 60 36 21} labelsize 12

  710.         }

  711.         MenuItem {} {

  712.           label Courier

  713.           xywh {70 70 36 21} labelsize 12

  714.         }

  715.         MenuItem {} {

  716.           label {Courier Bold}

  717.           xywh {80 80 36 21} labelsize 12

  718.         }

  719.         MenuItem {} {

  720.           label {Courier Italic}

  721.           xywh {65 65 36 21} labelsize 12

  722.         }

  723.         MenuItem {} {

  724.           label {Courier Bold Italic}

  725.           xywh {70 70 36 21} labelsize 12

  726.         }

  727.         MenuItem {} {

  728.           label Times

  729.           xywh {80 80 36 21} labelsize 12

  730.         }

  731.         MenuItem {} {

  732.           label {Times Bold}

  733.           xywh {90 90 36 21} labelsize 12

  734.         }

  735.         MenuItem {} {

  736.           label {Times Italic}

  737.           xywh {75 75 36 21} labelsize 12

  738.         }

  739.         MenuItem {} {

  740.           label {Times Bold Italic}

  741.           xywh {80 80 36 21} labelsize 12

  742.         }

  743.         MenuItem {} {

  744.           label Symbol

  745.           xywh {90 90 36 21} labelsize 12

  746.         }

  747.         MenuItem {} {

  748.           label Screen

  749.           xywh {100 100 36 21} labelsize 12

  750.         }

  751.         MenuItem {} {

  752.           label {Screen bold}

  753.           xywh {85 85 36 21} labelsize 12

  754.         }

  755.         MenuItem {} {

  756.           label {Zapf Dingbats}

  757.           xywh {90 90 36 21} labelsize 12

  758.         }

  759.       }

  760.       Fl_Value_Slider labelsize_slider {

  761.         label {Label Size}

  762.         user_data tree

  763.         callback {int size = (int)labelsize_slider->value();

  764. 

  765. // DO SELECTED ITEMS

  766. int count = 0;

  767. Fl_Tree_Item *item;

  768. for ( item=tree->first(); item; item = tree->next(item) ) {

  769.     if ( item->is_selected() ) {

  770.         item->labelsize(size);

  771.         count++;

  772.     }

  773. }

  774. 

  775. // NO ITEMS SELECTED? DO ALL

  776. if ( ! count ) {

  777.     for ( item=tree->first(); item; item = tree->next(item) ) {

  778.         item->labelsize(size);

  779.     }

  780. }

  781. 

  782. tree->redraw();}

  783.         tooltip {Changes the font size of the selected items's labels. If none selected, all are changed. Tests Fl_Tree_Item::labelsize();} xywh {828 55 140 16} type Horizontal labelsize 12 align 4 step 0.01 textsize 12

  784.         code0 {o->value(tree->item_labelsize());}

  785.         code1 {o->range(5.0, 200.0);}

  786.         code2 {o->step(1.0);}

  787.         code3 {o->color(46); o->selection_color(FL_RED);}

  788.       }

  789.       Fl_Button all_labelfgcolor_button {

  790.         label {Label FG Color}

  791.         callback {// Find first item in tree

  792. Fl_Tree_Item *item = tree->first();

  793. if ( !item ) return;

  794. 

  795. // Get first item's color

  796. Fl_Color val = EditColor(item->labelfgcolor());		// Get color of first item in tree

  797. all_labelfgcolor_button->color(val);			// update modified color to button

  798. 

  799. // Do selected items

  800. int count = 0;

  801. for ( item=tree->first(); item; item = tree->next(item) ) {

  802.     if ( item->is_selected() ) {

  803.         item->labelfgcolor(val);

  804.         count++;

  805.     }

  806. }

  807. 

  808. // No items selected? Do all..

  809. if ( ! count ) {

  810.     for ( item=tree->first(); item; item = tree->next(item) ) {

  811.         item->labelfgcolor(val);

  812.     }

  813. }

  814. 

  815. tree->redraw();}

  816.         tooltip {Changes the label fg color for the selected items. If none selected, all are changed. Tests Fl_Tree_Item::labelfgcolor();} xywh {828 81 16 16} box DOWN_BOX labelsize 12 align 7

  817.         code0 {o->color(tree->item_labelfgcolor());}

  818.       }

  819.       Fl_Button all_labelbgcolor_button {

  820.         label {Label BG Color}

  821.         callback {// Find first item in tree

  822. Fl_Tree_Item *item = tree->first();

  823. if ( !item ) return;

  824. 

  825. // Get first item's color

  826. Fl_Color val = EditColor(item->labelbgcolor());		// Get color of first item in tree

  827. all_labelbgcolor_button->color(val);			// update modified color to button

  828. 

  829. // Do selected items

  830. int count = 0;

  831. for ( item=tree->first(); item; item = tree->next(item) ) {

  832.     if ( item->is_selected() ) {

  833.         item->labelbgcolor(val);

  834.         count++;

  835.     }

  836. }

  837. 

  838. // No items selected? Do all..

  839. if ( ! count ) {

  840.     for ( item=tree->first(); item; item = tree->next(item) ) {

  841.         item->labelbgcolor(val);

  842.     }

  843. }

  844. 

  845. tree->redraw();}

  846.         tooltip {Changes the label bg color for the selected items. If none selected, all are changed. Tests Fl_Tree_Item::labelbgcolor();} xywh {828 99 16 16} box DOWN_BOX labelsize 12 align 7

  847.         code0 {o->color(tree->item_labelbgcolor());}

  848.       }

  849.       Fl_Value_Slider connectorwidth_slider {

  850.         label {Connector Width}

  851.         user_data tree

  852.         callback {tree->connectorwidth((int)connectorwidth_slider->value());}

  853.         tooltip {Tests Fl_Tree::connectorwidth()} xywh {828 126 140 16} type Horizontal labelsize 12 align 4 step 0.01 textsize 12

  854.         code0 {o->value(tree->connectorwidth());}

  855.         code1 {o->range(1.0, 100.0);}

  856.         code2 {o->step(1.0);}

  857.         code3 {o->color(46); o->selection_color(FL_RED);}

  858.       }

  859.       Fl_Light_Button deactivate_toggle {

  860.         label { Deactivate}

  861.         callback {int onoff = deactivate_toggle->value() ? 0 : 1;

  862. 

  863. Fl_Tree_Item *item;

  864. int count = 0;

  865. for ( item=tree->first(); item; item = tree->next(item) ) {

  866.     if ( item->is_selected() ) {

  867.         item->activate(onoff);

  868.         ++count;

  869.     }

  870. }

  871. 

  872. if ( count == 0 ) {

  873.     for ( item=tree->first(); item; item = tree->next(item) ) {

  874.         item->activate(onoff);

  875.     }

  876. }

  877. 

  878. tree->redraw();}

  879.         tooltip {Toggle the deactivation state of the selected items.

  880. If none are selected, all are set.} xywh {734 154 95 16} selection_color 1 labelsize 9

  881.       }

  882.       Fl_Light_Button bold_toggle {

  883.         label { Bold Font}

  884.         callback {int face = bold_toggle->value() ? FL_HELVETICA_BOLD : FL_HELVETICA;

  885. 

  886. // DO SELECTED ITEMS

  887. int count = 0;

  888. Fl_Tree_Item *item;

  889. for ( item=tree->first(); item; item = tree->next(item) ) {

  890.     if ( item->is_selected() ) {

  891.         item->labelfont(face);

  892.         count++;

  893.     }

  894. }

  895. 

  896. // NO ITEMS SELECTED? DO ALL

  897. if ( ! count ) {

  898.     for ( item=tree->first(); item; item = tree->next(item) ) {

  899.         item->labelfont(face);

  900.     }

  901. }

  902. 

  903. tree->redraw();}

  904.         tooltip {Toggles bold font for selected items

  905. If nothing selected, all are changed} xywh {734 174 95 16} selection_color 1 labelsize 9

  906.       }

  907.       Fl_Button showselected_button {

  908.         label {Show Selected}

  909.         callback {fprintf(stderr, "--- SELECTED ITEMS\\n");

  910. for ( Fl_Tree_Item *item = tree->first_selected_item();

  911.       item;

  912.       item = tree->next_selected_item(item) ) {

  913.   fprintf(stderr, "\\t%s\\n", item->label() ? item->label() : "???");

  914. }}

  915.         tooltip {Clears the selected items} xywh {829 154 95 16} labelsize 9

  916.       }

  917.       Fl_Button clearselected_button {

  918.         label {Remove Selected}

  919.         callback {Fl_Tree_Item *item=tree->first();

  920. while (item) {

  921.     if ( item->is_selected() ) {

  922.     	if ( tree->remove(item) == -1 ) break;

  923.     	item = tree->first();

  924.     } else {

  925.         item = item->next();

  926.     }

  927. }

  928. 

  929. tree->redraw();}

  930.         tooltip {Removes the selected items} xywh {829 174 95 16} labelsize 9

  931.       }

  932.       Fl_Button selectall_button {

  933.         label {Select All}

  934.         callback {tree->select_all(0);

  935. tree->redraw();}

  936.         tooltip {Selects all items in the tree} xywh {689 201 95 16} labelsize 9

  937.       }

  938.       Fl_Button deselectall_button {

  939.         label {Deselect All}

  940.         callback {tree->deselect_all(0);

  941. tree->redraw();}

  942.         tooltip {Deselects all items in the tree} xywh {689 221 95 16} labelsize 9

  943.       }

  944.       Fl_Light_Button bbbselect_toggle {

  945.         label { Select Bbb}

  946.         callback {// Toggle select of just the Bbb item (not children)

  947. Fl_Tree_Item *bbb = tree->find_item("/Bbb");

  948. if ( !bbb) {

  949.   fl_alert("FAIL: Couldn't find item '/Bbb'???");

  950.   return;

  951. }

  952. int onoff = bbbselect_toggle->value();

  953. if ( onoff ) tree->select(bbb);		// select /Bbb

  954. else         tree->deselect(bbb);	// deselect /Bbb}

  955.         tooltip {Toggle selection of just the /Bbb item

  956. (Not children)} xywh {784 201 95 16} selection_color 1 labelsize 9

  957.       }

  958.       Fl_Light_Button bbbselect2_toggle {

  959.         label { Select Bbb+}

  960.         callback {// Toggle select of just the Bbb item and its immediate children

  961. Fl_Tree_Item *bbb = tree->find_item("/Bbb");

  962. if ( !bbb) {

  963.   fl_alert("FAIL: Couldn't find item '/Bbb'???");

  964.   return;

  965. }

  966. int onoff = bbbselect2_toggle->value();

  967. if ( onoff ) tree->select_all(bbb);		// select /Bbb and its children

  968. else         tree->deselect_all(bbb);	// deselect /Bbb and its children}

  969.         tooltip {Toggle selection of the /Bbb item and its children} xywh {784 221 95 16} selection_color 1 labelsize 9

  970.       }

  971.       Fl_Light_Button bbbchild02select_toggle {

  972.         label { Toggle child-02}

  973.         callback {// Toggle select of just the /Bbb/child-02 item

  974. const char *pathname = "/Bbb/child-02";

  975. int onoff = bbbchild02select_toggle->value();

  976. int err = 0;

  977. if ( onoff ) err = tree->select(pathname);

  978. else         err = tree->deselect(pathname);

  979. 

  980. if ( err == -1 ) {

  981.   fl_alert("FAIL: Couldn't find item '%s'",pathname);

  982.   return;

  983. }}

  984.         tooltip {Toggle the single item "/Bbb/child-02" using the item's "pathname".} xywh {784 241 95 16} selection_color 1 labelsize 9

  985.       }

  986.       Fl_Light_Button rootselect_toggle {

  987.         label {Select ROOT}

  988.         callback {// Toggle select of ROOT item and its children

  989. Fl_Tree_Item *item = tree->find_item("/ROOT");

  990. if ( !item) {

  991.   fl_alert("FAIL: Couldn't find item '/ROOT'???");

  992.   return;

  993. }

  994. int onoff = rootselect_toggle->value();

  995. if ( onoff ) tree->select(item);	// select /ROOT and its children

  996. else         tree->deselect(item);	// deselect /ROOT and its children}

  997.         tooltip {Toggle selection of the ROOT item} xywh {879 201 95 16} selection_color 1 labelsize 9

  998.       }

  999.       Fl_Light_Button rootselect2_toggle {

  1000.         label {Select ROOT+}

  1001.         callback {// Toggle select of ROOT item and its children

  1002. Fl_Tree_Item *item = tree->find_item("/ROOT");

  1003. if ( !item) {

  1004.   fl_alert("FAIL: Couldn't find item '/ROOT'???");

  1005.   return;

  1006. }

  1007. int onoff = rootselect2_toggle->value();

  1008. if ( onoff ) tree->select_all(item);	// select /ROOT and its children

  1009. else         tree->deselect_all(item);	// deselect /ROOT and its children}

  1010.         tooltip {Toggle selection of the ROOT item and all children} xywh {879 221 95 16} selection_color 1 labelsize 9

  1011.       }

  1012.       Fl_Box {} {

  1013.         label {New Item Defaults}

  1014.         tooltip {These controls only affect the defaults for new items that are created. These test the Fl_Tree_Prefs methods.} xywh {661 312 335 120} box GTK_DOWN_BOX color 47 labelsize 12 align 1

  1015.       }

  1016.       Fl_Button item_labelfgcolor_button {

  1017.         label item_labelfgcolor

  1018.         callback {Fl_Color val = EditColor(tree->item_labelfgcolor());	// Let user edit the color

  1019. tree->item_labelfgcolor(val);				// apply modified color to tree

  1020. item_labelfgcolor_button->color(val);			// update modified color to button}

  1021.         tooltip {Sets the *default* label foreground color for new items created. Does NOT affect existing items.} xywh {828 327 16 16} box DOWN_BOX labelsize 12 align 7

  1022.         code0 {o->color(tree->item_labelfgcolor());}

  1023.       }

  1024.       Fl_Button item_labelbgcolor_button {

  1025.         label item_labelbgcolor

  1026.         callback {Fl_Color val = EditColor(tree->item_labelbgcolor());	// Let user edit the color

  1027. tree->item_labelbgcolor(val);				// apply modified color to tree

  1028. item_labelbgcolor_button->color(val);			// update modified color to button}

  1029.         tooltip {Sets the *default* label background color for new items created. Does NOT affect existing items.} xywh {828 345 16 16} box DOWN_BOX labelsize 12 align 7

  1030.         code0 {item_labelbgcolor_button->color(tree->item_labelbgcolor());}

  1031.       }

  1032.       Fl_Choice item_font_choice {

  1033.         label {Item label font}

  1034.         callback {Fl_Font val = (Fl_Font)item_font_choice->value(); // get chooser's current font value

  1035. tree->item_labelfont(val);			  // change font in tree}

  1036.         tooltip {Sets the default font used for new items created. Does NOT affect existing items.} xywh {828 371 140 21} down_box BORDER_BOX labelsize 12 textsize 12

  1037.         code0 {o->value((int)tree->item_labelfont());   // get tree's current font, assign to chooser}

  1038.       } {

  1039.         MenuItem {} {

  1040.           label Helvetica

  1041.           xywh {20 20 36 21} labelsize 12

  1042.         }

  1043.         MenuItem {} {

  1044.           label {Helvetica Bold}

  1045.           xywh {30 30 36 21} labelsize 12

  1046.         }

  1047.         MenuItem {} {

  1048.           label {Helvetica Italic}

  1049.           xywh {45 45 36 21} labelsize 12

  1050.         }

  1051.         MenuItem {} {

  1052.           label {Helvetica Bold Italic}

  1053.           xywh {50 50 36 21} labelsize 12

  1054.         }

  1055.         MenuItem {} {

  1056.           label Courier

  1057.           xywh {60 60 36 21} labelsize 12

  1058.         }

  1059.         MenuItem {} {

  1060.           label {Courier Bold}

  1061.           xywh {70 70 36 21} labelsize 12

  1062.         }

  1063.         MenuItem {} {

  1064.           label {Courier Italic}

  1065.           xywh {55 55 36 21} labelsize 12

  1066.         }

  1067.         MenuItem {} {

  1068.           label {Courier Bold Italic}

  1069.           xywh {60 60 36 21} labelsize 12

  1070.         }

  1071.         MenuItem {} {

  1072.           label Times

  1073.           xywh {70 70 36 21} labelsize 12

  1074.         }

  1075.         MenuItem {} {

  1076.           label {Times Bold}

  1077.           xywh {80 80 36 21} labelsize 12

  1078.         }

  1079.         MenuItem {} {

  1080.           label {Times Italic}

  1081.           xywh {65 65 36 21} labelsize 12

  1082.         }

  1083.         MenuItem {} {

  1084.           label {Times Bold Italic}

  1085.           xywh {70 70 36 21} labelsize 12

  1086.         }

  1087.         MenuItem {} {

  1088.           label Symbol

  1089.           xywh {80 80 36 21} labelsize 12

  1090.         }

  1091.         MenuItem {} {

  1092.           label Screen

  1093.           xywh {90 90 36 21} labelsize 12

  1094.         }

  1095.         MenuItem {} {

  1096.           label {Screen bold}

  1097.           xywh {75 75 36 21} labelsize 12

  1098.         }

  1099.         MenuItem {} {

  1100.           label {Zapf Dingbats}

  1101.           xywh {80 80 36 21} labelsize 12

  1102.         }

  1103.       }

  1104.       Fl_Value_Slider item_labelsize_slider {

  1105.         label item_labelsize

  1106.         user_data tree

  1107.         callback {tree->item_labelsize((int)item_labelsize_slider->value());}

  1108.         tooltip {Sets the default labelsize used for new items. Does NOT affect existing items.} xywh {828 396 140 16} type Horizontal labelsize 12 align 4 step 0.01 textsize 12

  1109.         code0 {o->value((int)tree->item_labelsize());}

  1110.         code1 {o->range(1.0, 50.0);}

  1111.         code2 {o->step(1.0);}

  1112.         code3 {o->color(46); o->selection_color(FL_RED);}

  1113.       }

  1114.     }

  1115.     Fl_Box resizer_box {

  1116.       xywh {0 263 15 14}

  1117.     }

  1118.   }

  1119.   code {// Initialize Tree

  1120. tree->root_label("ROOT");

  1121. RebuildTree();

  1122. /*tree->show_self();*/} {}

  1123.   code {// FLTK stuff

  1124. 

  1125. //Fl::scheme("gtk+");

  1126. 

  1127. window->resizable(tree);

  1128. window->size_range(window->w(), window->h(), 0, 0);

  1129. 

  1130.      if ( tree->when() == FL_WHEN_CHANGED ) whenmode_chooser->value(0);

  1131. else if ( tree->when() == FL_WHEN_RELEASE ) whenmode_chooser->value(1);

  1132. else if ( tree->when() == FL_WHEN_NEVER   ) whenmode_chooser->value(2);} {}

  1133. }