BBjEditBox::setMaxLength

rem ' BBjEditBox controls with defined maximum lengths

sysgui = unt
open (sysgui)"X0"

sysgui! = bbjapi().getSysGui()
window! = sysgui!.addWindow(50,50,300,200,"Login",$00090003$)
window!.setCallback(window!.ON_CLOSE,"eoj")
window!.addStaticText(101,10,50,80,25,"User:",$8000$)
username! = window!.addEditBox(102,100,50,190,25,"",$0000$)
username!.setMaxLength(8)
window!.addStaticText(103,10,100,80,25,"Password:",$8000$)
password! = window!.addEditBox(104,100,100,190,25,"",$0400$)
password!.setMaxLength(16)
login! = window!.addButton(1,100,150,80,25,"Login",$$)
login!.setCallback(login!.ON_BUTTON_PUSH,"login")
cancel! = window!.addButton(2,190,150,80,25,"Cancel",$$)
cancel!.setCallback(cancel!.ON_BUTTON_PUSH,"eoj")

print "Maximum length of username is",username!.getMaxLength()
print "Maximum length of password is",password!.getMaxLength()

username!.focus()

process_events

login:
    if username!.getText().length() = 0 then return
    if password!.getText().length() = 0 then return
    login$ = "Username: "+username!.getText()
    login$ = login$ + ", password: "+password!.getText()
    i = msgbox(login$,0,"Logging in")

eoj:
release