%
% organize the product control tree
%
sel@
_\ @^CopyItem

"Xact " &_Xact

%
% build the product stack template
%
true *tre0acts

@UtilA
Tree.Off

Tree.Rooting

"Camera" _\ make !\
_\ Tree./Below

_\ @^LoadItem
Tree._New !\
"Camera" "Type" \!

rootnode
"Products" _\ make !\

_\

"8x10 Print" _\ make !\
100 100
"Va.bmp" ofxact
_\ @!Img
"Product" "Type" @!

dup !\

"Ceramic Mug" _\ make !\
100 100
"Vc.bmp" ofxact
_\ @!Img
"Product" "Type" @!

dup !\

"Tshirt" _\ make !\
100 100
"Vd.bmp" ofxact
_\ @!Img
"Product" "Type" @!

dup !\

"6x8 Print" _\ make !\
100 100
"Vg.bmp" ofxact
_\ @!Img
"Product" "Type" @!

dup !\

"Pair 5x7s" _\ make !\
100 100
"Vf.bmp" ofxact
_\ @!Img
"Product" "Type" @!

!\

"Wallets" _\ make !\
100 100
"Ve.bmp" ofxact
_\ @!Img
"Product" "Type" @!

Tree.On

"xact" &_Xact &"\Z.tlt" ofsnap Tree.Save pop

false *tre0acts