&IF "{&OPSYS}" = "WIN32":U AND "{&WINDOW-SYSTEM}" NE "TTY":U &THEN
DEFINE VARIABLE UIB_S AS LOGICAL NO-UNDO.
DEFINE VARIABLE OCXFile AS CHARACTER NO-UNDO.
OCXFile = SEARCH( "TreeMenu.wrx":U ).
IF OCXFile = ? THEN
OCXFile = SEARCH(SUBSTRING(THIS-PROCEDURE:FILE-NAME, 1,
R-INDEX(THIS-PROCEDURE:FILE-NAME, ".":U), "CHARACTER":U) + "wrx":U).
IF OCXFile <> ? THEN
DO:
ASSIGN
chListViewContainer = ListViewContainer:COM-HANDLE
UIB_S = chListViewContainer:LoadControls( OCXFile, "ListViewContainer":U)
ListViewContainer:NAME = "ListViewContainer":U
chListViewLargeIconContainer = ListViewLargeIconContainer:COM-HANDLE
UIB_S = chListViewLargeIconContainer:LoadControls( OCXFile, "ListViewLargeIconContainer":U)
ListViewLargeIconContainer:NAME = "ListViewLargeIconContainer":U
chSmallIconContainer = SmallIconContainer:COM-HANDLE
UIB_S = chSmallIconContainer:LoadControls( OCXFile, "SmallIconContainer":U)
SmallIconContainer:NAME = "SmallIconContainer":U
chToolbarGrayIconContainer = ToolbarGrayIconContainer:COM-HANDLE
UIB_S = chToolbarGrayIconContainer:LoadControls( OCXFile, "ToolbarGrayIconContainer":U)
ToolbarGrayIconContainer:NAME = "ToolbarGrayIconContainer":U
chToolbarGrayIconContainer1 = ToolbarGrayIconContainer1:COM-HANDLE
UIB_S = chToolbarGrayIconContainer1:LoadControls( OCXFile, "ToolbarGrayIconContainer1":U)
ToolbarGrayIconContainer1:NAME = "ToolbarGrayIconContainer1":U
chToolbarHotIconContainer = ToolbarHotIconContainer:COM-HANDLE
UIB_S = chToolbarHotIconContainer:LoadControls( OCXFile, "ToolbarHotIconContainer":U)
ToolbarHotIconContainer:NAME = "ToolbarHotIconContainer":U
chToolbarHotIconContainer1 = ToolbarHotIconContainer1:COM-HANDLE
UIB_S = chToolbarHotIconContainer1:LoadControls( OCXFile, "ToolbarHotIconContainer1":U)
ToolbarHotIconContainer1:NAME = "ToolbarHotIconContainer1":U
chTreeIcons = TreeIcons:COM-HANDLE
UIB_S = chTreeIcons:LoadControls( OCXFile, "TreeIcons":U)
TreeIcons:NAME = "TreeIcons":U
chTreeViewContainer = TreeViewContainer:COM-HANDLE
UIB_S = chTreeViewContainer:LoadControls( OCXFile, "TreeViewContainer":U)
TreeViewContainer:NAME = "TreeViewContainer":U
.
RUN initialize-controls IN THIS-PROCEDURE NO-ERROR.
END.
ELSE MESSAGE "TreeMenu.wrx":U SKIP(1)
"The binary control file could not be found. The controls cannot be loaded."
VIEW-AS ALERT-BOX TITLE "Controls Not Loaded".
&ENDIF