Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] Re: Inform & keyboard

From: philb:upnaway at: 11-Jul-2002 0:56

Hi Scott/Volker, Based on Volkers example I tried this .... no as nice as RT's request (the size of the text field is hard coded for example) but does the job I need .... rebol [title: "OK Cancel Dialog box with keboard shortcuts"] inform-kb: func [ip-text /local lay lv-ok] [ lay: layout [ space 5 origin 5x5 at 5x5 vtext ip-text bold 300x24 return across button "OK" #"^M" [lv-ok: true hide-popup] button "Cancel" #"^[" [lv-ok: false hide-popup] ] lay/feel: system/view/window-feel inform lay [system/view/screen-face/size - lay/size / 2] lv-ok ] print inform-kb "This is a dialog box - Escape = Cancel Enter = OK" halt Cheers Phil === Original Message === Am Mittwoch, 10. Juli 2002 16:09 schrieb [philb--upnaway--com]:
> Hi Guys, > > I have a problem with Rebol & Dialog boxes. > > I want to put up a dialog box and press Escape to cancel it or Enter to > confirm it. > > But it looks like inform isnt compatible with keyboard input. > Sensors dont seem to work and keyboard shortcuts on buttons dont work > either. > > Its not a showstopper but would make my program more user friendly. > > Any ideas .... or does anyone have some example for me to study? >
hotkeys are evaluated in system/view/window-feel. and that is set automatic by 'view only for the first window. one can set it by hand. try: lay: layout [ tf: title "press control-t" 400 button "test" #"^t" [ tf/text: "you pressed the button or the key" show tf ] ] lay/feel: system/view/window-feel inform lay
> Cheers Phil
Cheers Volker