REM Set the maximum
input length for an InputD control
REM Obtain the instance of the BBjAPI object
LET myAPI!=BBjAPI()
REM Open the SysGui device
SYSGUI=UNT
OPEN (SYSGUI)"X0"
REM Obtain the instance of the BBjSysGui object
LET mySysGui!=myAPI!.getSysGui()
REM Set addWindow param values
X=10
Y=10
WIDTH=200
HEIGHT=200
TITLE$="BBj Window"
REM Set the current context
mySysGui!.setContext(0)
REM Create a window
myWindow! = mySysGui!.addWindow(X,Y,WIDTH,HEIGHT,TITLE$,$00010002$)
REM Add an InputD control that uses a US-style date mask, inserting
REM today's date when the user hits the restore key (normally ESCAPE)
myInputD! = myWindow!.addInputD(101,50,100,90,30,$080c$,"%Mz/%Dz/%Yz",$$,0,0)
REM Retrieve the default length; this will print 8 (MM/DD/YY)
print "Default length for ",myInputD!.getMask(),"
is",myInputD!.getLength()
REM Reset the maximum length to allow for user to type MM/DD/YYYY
myInputD!.setLength(10)
REM Retrieve the default length; this will print 8 (MM/DD/YY)
print "Maximum length increased to",myInputD!.getLength()
REM Register the CALLBACK routines
CALLBACK(ON_CLOSE,APP_CLOSE,mySysGui!.getContext())
REM Process Events
PROCESS_EVENTS
REM Callback routine called when the user closes the application
window
APP_CLOSE:
RELEASE
RETURN |
