Texas Instruments TI-89 Developer's Manual page 1087

Appendix A: System Routines — Symbol Table Utilities
VarCreateFolderPopup
VL_ViewOpts[VLO_FOLDER] = 1;
if ((hFolderPopup = VarCreateFolderPopup(&VL_ViewOpts[VLO_FOLDER], VCFP_ALL))
!= H_NULL)
{
if (hViewPopup = PopupNew(NULL, 0)) {
PopupAddText(hViewPopup,-1,XR_stringPtr(XR_Vars), VL_VIEW_VARS );
PopupAddText(hViewPopup,-1,XR_stringPtr(XR_vtFlashApp), VL_VIEW_APPS );
PopupAddText(hViewPopup,-1,XR_stringPtr(XR_vtSystem), VL_VIEW_SYS );
if (MenuFlags(hViewPopup) & MF_ERROR)
goto VM1;
} else
goto VM1;
wVal = Dialog(&VarLinkView, -1, -1, NULL, VL_ViewOpts);
if (wVal == KB_ENTER) {
if (VL_VIEW_SYS == VL_ViewOpts[VLO_VIEW])
SymFindType = SDT_SYS;
else if (VL_VIEW_APPS == VL_ViewOpts[VLO_VIEW])
SymFindType = SDT_APP;
else {
SymFindType = VL_ViewOpts[VLO_VARTYPE] - 1;
strcpy( (char *) szVLfolder+1, (char *) PopupText( hFolderPopup,
VL_ViewOpts[VLO_FOLDER]) );
if (strcmp((char *) szVLfolder+1, XR_stringPtr(XR_All)) == 0)
SymFindFlags = FO_RECURSE | FO_CKTWINS;
else
SymFindFlags = FO_NONE | FO_CKTWINS;
szVLfolder[0] = '\0';
}
} else if (wVal == DB_MEMFULL)
goto VM1;
} else
VM1:
ERD_dialog( ER_MEMORY, FALSE );
if (hFolderPopup)
PopupFree(hFolderPopup);
if (hViewPopup)
PopupFree(hViewPopup);
}
TI-89 / TI-92 Plus Developer Guide
(continued)
Not for Distribution
1045
Beta Version January 26, 2001