Function AChoice() Foundation

// In the example, a simple call to AChoice() is shown. 
// This selects a file name from an array created 
// with Directory(). Only PRG files are listed. When a 
// selection is made, the file is edited with MemoEdit(). 

PROCEDURE Main 
   LOCAL aFiles := Directory("*.PRG"), nChoice 

                                    // create a single 
                                    // dimensional array 
   AEval( aFiles, {|a,i| a:=Upper(a[1])},,,.T. ) 

   nChoice := AChoice( 2, 2, 20, 13, aFiles ) 

   IF nChoice > 0 
      MemoEdit( MemoRead( aFiles[ nChoice ] ) ) 
   ENDIF 

RETURN 

// The example shows the function SelectFile() used for selecting 
// files. The file names are retrieved using Directory() and 
// displayed with AChoice(). In the user function StatusBar(), 
// a status bar is displayed in the right window border 
// which identifies the position of the current element 
// in the array. Note the STATIC variables visible file-wide. 

#include "Inkey.ch" 
#include "Achoice.ch" 

STATIC saFiles, snTop, snLeft, snBottom, snRight 

FUNCTION SelectFile() 
   LOCAL nChoice, aGray, cScreen 

   saFiles := Directory("*.*")      // create array 
   snTop   := 2                     // place coordinates in 
   snLeft  := 2                     // STATIC variables 
   snBottom:= 20 
   snRight := 13 

   AEval( saFiles, {|a,i| a:=Upper(a[1])},,, .T. ) 
   aGray := Array( Len(saFiles) ) 
                                    // EXE files are not 
                                    // selectable 
   AEval( saFiles, {|c,i| aGray[i]:= (! ".EXE" $ c) } ) 

                                    // save screen 
   cScreen := SaveScreen(snTop-1, snLeft-1, snBottom+1, snRight+1) 
                                    // output border 
   DispBox( snTop-1, snLeft-1, snBottom+1, snRight+1 ) 
                                    // allow file to be selected 
   nChoice := AChoice( snTop  , snLeft, snBottom, snRight, ; 
                       saFiles, aGray , "STATUSBAR" ) 

                                    // restore screen 
   RestScreen(snTop-1, snLeft-1, snBottom+1, snRight+1, cScreen) 

RETURN IIf( nChoice == 0, "", saFiles[ nChoice ] ) 


FUNCTION StatusBar( nMode, nElement, nRow ) 
   LOCAL nReturn := AC_CONT        // default: continues 
   LOCAL nKey    := LastKey() 
   LOCAL nLen    := Len( saFiles ) 
   LOCAL nPos 

   DO CASE 
   CASE nMode == AC_IDLE           // output status bar 
      IF nElement == 1             // determine position for 
         nPos := 1                 // indicator 
      ELSEIF nElement == nLen 
         nPos := snBottom-snTop-1 
      ELSE 
         nPos := Round( (snBottom-snTop-1) * (nElement/nLen), 0 ) 
      ENDIF 
      nPos := Max( 1, nPos ) 

      DispBox( snTop, snRight+1, snBottom, snRight+1, Chr(176) ) 
      @ snTop     , snRight+1 SAY Chr(24)  // arrow up 
      @ snBottom  , snRight+1 SAY Chr(25)  // arrow down 
      @ snTop+nPos, snRight+1 SAY Chr(219) // indicator 

   CASE nMode == AC_HITTOP         // beginning is reached 
      Tone( 1000, 2 ) 

   CASE nMode == AC_HITBOTTOM      // end is reached 
      Tone( 500,  2 ) 

   CASE nMode == AC_EXCEPT 
      DO CASE 
      CASE nKey == K_RETURN 
         nReturn := AC_SELECT      // select element 

      CASE nKey == K_ESC 
         nReturn := AC_ABORT       // terminate AChoice() 

      OTHERWISE 
         nReturn := AC_GOTO        // jump to element 

      ENDCASE 
   ENDCASE 

RETURN nReturn 

// The example shows a simple text editor with a menu. 
// The menu is called by the F10 key, and it permits 
// reading and saving text files. Text is edited 
// using MemoEdit(). The menu is created with AChoice(). 
// Selection of files occurs using the function SelectFile() 
// from the previous example "AChoice() with user function". 

#include "Inkey.ch" 

STATIC saMenu, saGray, saMsg, saAction 
STATIC scFileName := "TEST.TXT" 
STATIC scText     := "" 

PROCEDURE TextEditor 
   SetColor( "N/BG,W+/B,,,N+/BG" ) 
   CLS 

   saMenu := { "New file      ", ; // menu items 
               "Open file     ", ; 
               "Save          ", ; 
               "Save As       ", ; 
               "--------------", ; // line separator 
               "Quit"            } 

                                        // line separator is 
   saGray := {.T.,.T.,.T.,.T.,.F.,.T.}  // not selectable 

                                    // menu "Messages" 
   saMsg  := { "Create new text file"          , ; 
               "Opens and edit text file"      , ; 
               "Save text to current file"     , ; 
               "Saves text to another file"    , ; 
               ""                              , ; 
               "Quit program"                    } 

                                    // menu actions in code blocks 
   saAction := { {|| NewFile()    }, ; 
                 {|| OpenFile()   }, ; 
                 {|| SaveFile()   }, ; 
                 {|| SaveFileAs() }, ; 
                                   , ; 
                 {|| Quit()       }  } 

   SET KEY K_F10 TO MemoQuit()      // F10 terminates MemoEdit() 
   scText := MemoRead( scFileName ) 

   DO WHILE .T. 
      @ 0,0 SAY " Texteditor: F10 calls menu" 
      scText := MemoEdit( scText )  // edit text 
      TextMenu()                    // call menu 
   ENDDO 

RETURN 

PROCEDURE TextMenu()                // display menu with AChoice() 
   LOCAL cScreen := SaveScreen(), nChoice 
   DispBox( 1, 1, 8, 17 ) 
   nChoice := AChoice( 2, 2, 7, 16, saMenu, saGray ) 
   RestScreen( ,,,, cScreen ) 

   IF nChoice > 0                  // selection is made which 
      Eval( saAction [nChoice] )   // causes action 
   ENDIF 
RETURN 

PROCEDURE MemoQuit()               // terminate MemoEdit() 
   KEYBOARD Chr(K_CTRL_W) 
RETURN 

PROCEDURE Quit()                   // terminate the program 
   QUIT 
RETURN 

PROCEDURE NewFile()                // create new file 
   LOCAL cFilename := GetFileName() 
   IF ! Empty( cFileName ) 
      MemoWrit( scFileName, scText ) 
      scFileName := cFileName 
      scText     := "" 
   ENDIF 
RETURN 

PROCEDURE OpenFile()               // open and read file 
   LOCAL cFilename := SelectFile() // function from previous example 
   IF ! Empty( cFileName ) 
      MemoWrit( scFileName, scText ) 
      scFileName := cFileName 
      scText     := MemoRead( scFileName ) 
   ENDIF 
RETURN 

PROCEDURE SaveFile()               // save file 
   MemoWrit( scFileName, scText ) 
RETURN 

PROCEDURE SaveFileAs()             // save file with new name 
   LOCAL cFileName := GetFileName() 
   IF ! Empty( cFileName ) 
      scFileName := cFilename 
      MemoWrit( scFileName, scText ) 
   ENDIF 
RETURN 

FUNCTION GetFileName()             // request file name 
   LOCAL cScreen := SaveScreen(), cFileName := Space(12) 
   @ 0,0 SAY "Enter file name:" GET cFileName 
   READ 
   RestScreen(,,,,cScreen) 
RETURN cFileName