rem ' BBjWindow::getRepaintEnabled
sysgui = unt
open (sysgui)"X0"
sysgui! = bbjapi().getSysGui()
title$ = "BBjWindow::getRepaintEnabled"
window! = sysgui!.addWindow(50,50,500,400,title$,$00090003$)
grid! = window!.addGrid(100,101,102,5,5,490,350,$81ce$,50,2)
update! = window!.addButton(201,50,360,90,25,"Update Grid")
update!.setCallback(update!.ON_BUTTON_PUSH,"update_grid")
toggle! = window!.addButton(301,150,360,220,25,"Toggle setRepaintEnabled")
toggle!.setCallback(toggle!.ON_BUTTON_PUSH,"setRepaintEnabled")
for row = 0 to 49
tmp$ = str(rnd(99999))
grid!.setCellText(row,0,tmp$)
tmp$ = str(10 * row:"#########0")
grid!.setCellText(row,1,tmp$)
next row
window!.setCallback(window!.ON_CLOSE,"eoj")
gosub setRepaintEnabled
process_events
eoj:
release
update_grid:
window!.setRepaintEnabled(setRepaintEnabled)
print "getRepaintEnabled: ",window!.getRepaintEnabled()
rowHeader! = grid!.getRowHeader()
set = !set
print iff(set,"Set","Clear")," row header text."
for row = 0 to 49
wait .02
text$ = iff(set,"Row "+str(row),"")
rowHeader!.setCellText(row,text$)
next row
window!.setRepaintEnabled(1)
print "getRepaintEnabled: ",window!.getRepaintEnabled()
return
setRepaintEnabled:
setRepaintEnabled = !setRepaintEnabled
print "setRepaintEnabled",setRepaintEnabled
return
|
