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. 

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