Texas Instruments TI89 Developer Guide - Page 1058
DialogAdddH
![]() |
UPC - 033317198566
View all Texas Instruments TI89 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 1058 highlights
1016 Appendix A: System Routines - Symbol Table Utilities FolderCur (continued) Example: (continued) if ((dH = DialogNew(0, 0, NoCallBack)) != H_NULL) { if (DialogAdd(dH,0,8,16,D_EDIT_FIELD,"Folder:",0,SYM_LEN,SYM_LEN) && DialogAdd(dH,0,0,0,D_HEADER,"CHANGE CUR FOLDER",PDB_OK,PDB_CANCEL)) { memset( szBuf, 0, SYM_LEN ); redo: if (KB_ENTER == DialogDo( dH,-1,-1, (char *) szBuf, NULL)) { StrPtr = FirstNonblank((BYTE *) szBuf); if (*StrPtr == '\0') { redo2: FolderGetCur( szBuf ); goto redo; } if (FS_OK == TokenizeFoldName((char *) szBuf, TokFName)) if (FolderCur(TokNameRight(TokFName),TRUE)) { ST_folder( (char *) StrPtr ); DlgNotice( "FOLDER CHANGED TO", (char *) szBuf ); DialogFree( dH ); return( TRUE ); } DlgNotice( "BAD NAME OR FOLDER NOT FOUND", (char *) szBuf ); goto redo2; } } } if (dH) DialogFree( dH ); return(FALSE); } /* This routine is the same as TokenizeName in the file system except it does not fully-qualify names (add folder name if not there) so it can be used to tokenize folder names. */ WORD TokenizeFoldName( const char *strFileName, BYTE *TokFName ) { EStackIndex oldTop; if (oldTop = TokenizeSymName( (BYTE *) strFileName,0)) { /* copy name from estack to buffer (may include trash at front) */ memcpy( TokFName, TokNameLeft(top_estack), MAX_SYM_LEN ); top_estack = oldTop; /* restore estack top */ return FS_OK; } else return FS_BAD_NAME; } TI-89 / TI-92 Plus Developer Guide Not for Distribution Beta Version January 26, 2001
![](/manual_guide/products/texas-instruments-ti89-developer-guide-95b636f/1058.png)