Texas Instruments TI-89 - Page 1086

1044
Appendix A: System Routines — Symbol Table Utilities
TI
-
89 / TI
-
92 Plus Developer Guide
Not for Distribution
Beta Version January 26, 2001
VarCreateFolderPopup
(continued)
#define SDT_APP 16
enum ViewPopup { VL_VIEW_VARS=1, VL_VIEW_APPS, VL_VIEW_SYS };
enum ViewOpts { VLO_VIEW, VLO_FOLDER, VLO_VARTYPE };
WORD VL_ViewOpts[3];
HANDLE hFolderPopup, hViewPopup;
WORD SymFindType = SDT_ALL;
WORD SymFindFlags = 0;
BYTE szVLfolder[SYM_LEN+2];
/* Private routine for VL_View to return dynamic pop-up handle */
HANDLE VL_GetFolder(WORD dii)
{
if (1 == dii)
return hFolderPopup;
else
return hViewPopup;
}
/* VL_View callback */
WORD VL_ViewCB( WORD DlgId, DWORD Value )
{
if (DB_QACTIVE == DlgId) {
if (VLO_FOLDER == Value || VLO_VARTYPE == Value)
return (1 == VL_ViewOpts[VLO_VIEW]);
else
return TRUE;
} else if (VLO_VIEW == DlgId)
return DB_REDRAW_AND_CONTINUE;
return TRUE;
}
/* VarLink VIEW (F2) dialog box code */
void VL_View( void )
{ WORD wVal, RestoreCurFolder;
VL_ViewOpts[VLO_VARTYPE] = SDT_ALL + 1;
if (SDT_APP == SymFindType)
VL_ViewOpts[VLO_VIEW] = VL_VIEW_APPS;
else if (SDT_SYS == SymFindType)
VL_ViewOpts[VLO_VIEW] = VL_VIEW_SYS;
else {
VL_ViewOpts[VLO_VIEW] = VL_VIEW_VARS;
VL_ViewOpts[VLO_VARTYPE] = SymFindType + 1;
}