%
% create a values grid in new tree
%

20 !Grid.Vlen

sel@

_\\ _@

%
% create the Values tree
%
"gridarea" "Values" +values &
"gallv " log()
*treepers

rootnode _\ Tree./Below
%
% stack: node-name task-tree
%
% float above the task tree being edited
%
_@ false *panelflt

%
% stack: node-name
%
% name of the root node is the task tree's node name
%
Tree.Rooting
%
% create a new child for values grid
%
" - - Values" newchild
_\
%
% stack: values-node
%
% instantiate a grid within the values node
%
true second @!Grid?
%
% focus on the current node's grid
%
dup @^Grid

%
% set the number of columns for the current grid
% the first column (0 index) is for row titles
%
5 @!Cols

%
% set the titles for the columns
% the first row (0 index) is for column titles
%
% focus on the 0,1 cell to set the title
%
0 1 @^Cell

%
% get the item index associated with the column titles row (0 index) within the current grid
%
0 @_Grow !\

%
% set the visibility of the column (row-titles) or row (col-titles)
%
% stack: values-node row-titles col-titles
%
false true @^Gtitles

%
% focus on the column title def for the current grid
% the zero is not used
%
"<Col" 0 @_Def

%
% set the default title background color and sel back color
% do not set the alpha mask upper bits
%
0x4455CC 0xCC5544 @!Dback 

%
% set the value name that will be displayed in the column
% focus on the cell representing index 1 of column title row 0
%
0 1 @^Cell
%
% set the display text for the column
%
"#" @!Cell
%
% focus on the cell representing index 2
%
0 2 @^Cell
%
% focus on the cell representing index 2 of column title row 0
%
"Name" @!Cell
%
% focus on the cell representing index 3
%
0 3 @^Cell
%
% focus on the cell representing index 3 of column title row 0
%
"Value" @!Cell
%
% focus on the cell representing index 4
%
0 4 @^Cell
%
% focus on the cell representing index 4 of column title row 0
%
"Del" @!Cell

%
% fill the grid with task tree node's values
%
*gridvals

%
% set the second column def (1 index, title row's first column)
% as the current column, twips must be calculated here
%
0 @^Column 10 pixels @!ColW
1 @^Column 45 pixels @!ColW
2 @^Column 125 pixels @!ColW
3 @^Column 225 pixels @!ColW
4 @^Column 60 pixels @!ColW

%
% set vectors for grid user interface
%
*grideflt

%
% no current row
%
-1 !Grid.Row

%
% stack: values-node
%
% expand the values node
%
true exch Tree.Expand