/* TREEVIEW */
assign chTreeView = chtv:TreeView.
assign chImageList = chim:ImageList.
assign chTreeView:ImageList = chImageList.
chTreeView:focus().
chTreeView:TreeView:focus().
DEFINE VARIABLE CtrlFrame AS WIDGET-HANDLE NO-UNDO.
CREATE CONTROL-FRAME CtrlFrame
ASSIGN
FRAME = FRAME F1:HANDLE
ROW = 1.24
COLUMN = 4
HEIGHT = 14.29
WIDTH = 35
WIDGET-ID = 6
HIDDEN = no
SENSITIVE = yes.
APPLY "ENTRY" TO CtrlFrame.