Main Menu

KB#01133-Function Key sample for adding

Title:

Function Key sample for adding F10 & CTRL+C to the bindings for the RESTORE command.

Description:

Here's a test program that can be run in both Visual PRO/5 and BBj. This adds F10 & CTRL+C to the bindings for the RESTORE command. If you run this, you'll see that F10 works for both the INPUTE verb and the INPUTE GUI control; CTRL+C works for the GUI control but not the INPUTE verb (because it's treated as a BREAK key).

0010 PRINT 'FL',"2"+$090181$
0020 LET E$=STBL("!EDIT",STBL("!EDIT")+$8145$+$0345$)
0030 LET I=1,VAL$="Press F10 for RESTORE"
0040 PRINT 'CS',"Test STBL(""!EDIT"")"
0050 INPUTE 10,10,32,"_",I,"Now press ENTER to proceed",VAL$
0060 OPEN (1)"X0"
0070 PRINT (1)'WINDOW'(100,100,200,60,"INPUTE",$00010003$,$$)
0080 PRINT (1)'INPUTE'(101,10,10,180,30,$$,32,"_",I,"Restore","Press CTRL+C or F10 for RESTORE")
0090 PRINT (1)'FOCUS'(101)
0100 DIM EVENT$:TMPL(1)
0110 REPEAT
0120 READ RECORD(1,SIZ=10)EVENT$
0130 UNTIL EVENT.CODE$="X"
0140 RELEASE


Last Modified: 01/19/2007 Product: Visual PRO/5 Operating System: Windows

BASIS structures five components of their technology into the BBx Generations. 

View BASIS LinkedIN Profile Visit our Twitter Feed Check out our Facebook Public Profile Click to View the BASIS youTube channel