FWD » Core Development » User Interface

default-window:max-width-chars = 100.

default-window:max-height-chars = 100.

default-window:title = "this is a very long title".

status default "this is a long status".

pause.

DEF VAR i AS INT.

def var j as int.

if keycode('left-mouse-down') <> 617

then message 'left-mouse-down=' keycode('left-mouse-down').

if keycode('left-mouse-up') <> 609

then message 'left-mouse-up=' keycode('left-mouse-up').

if keycode('left-mouse-click') <> 625

then message 'left-mouse-click=' keycode('left-mouse-click').

if keycode('left-mouse-dblclick') <> 649

then message 'left-mouse-dblclick=' keycode('left-mouse-dblclick').

if keycode('right-mouse-down') <> 619

then message 'right-mouse-down=' keycode('right-mouse-down').

if keycode('right-mouse-up') <> 611

then message 'right-mouse-up=' keycode('right-mouse-up').

if keycode('right-mouse-click') <> 627

then message 'right-mouse-click=' keycode('right-mouse-click').

if keycode('right-mouse-dblclick') <> 651

then message 'right-mouse-dblclick=' keycode('right-mouse-dblclick').

if keycode('middle-mouse-down') <> 618

then message 'middle-mouse-down=' keycode('middle-mouse-down').

if keycode('middle-mouse-up') <> 610

then message 'middle-mouse-up=' keycode('middle-mouse-up').

if keycode('middle-mouse-click') <> 626

then message 'middle-mouse-click=' keycode('middle-mouse-click').

if keycode('middle-mouse-dblclick') <> 650

then message 'middle-mouse-dblclick=' keycode('middle-mouse-dblclick').

if keycode('mouse-select-down') <> 617

then message 'mouse-select-down=' keycode('mouse-select-down').

if keycode('mouse-select-up') <> 609

then message 'mouse-select-up=' keycode('mouse-select-up').

if keycode('mouse-select-click') <> 625

then message 'mouse-select-click=' keycode('mouse-select-click').

if keycode('mouse-select-dblclick') <> 649

then message 'mouse-select-dblclick=' keycode('mouse-select-dblclick').

if keycode('mouse-menu-down') <> 619

then message 'mouse-menu-down=' keycode('mouse-menu-down').

if keycode('mouse-menu-up') <> 611

then message 'mouse-menu-up=' keycode('mouse-menu-up').

if keycode('mouse-menu-click') <> 627

then message 'mouse-menu-click=' keycode('mouse-menu-click').

if keycode('mouse-menu-dblclick') <> 651

then message 'mouse-menu-dblclick=' keycode('mouse-menu-dblclick').

if keycode('mouse-extend-down') <> 620

then message 'mouse-extend-down=' keycode('mouse-extend-down').

if keycode('mouse-extend-up') <> 612

then message 'mouse-extend-up=' keycode('mouse-extend-up').

if keycode('mouse-extend-click') <> 628

then message 'mouse-extend-click=' keycode('mouse-extend-click').

if keycode('mouse-extend-dblclick') <> 652

then message 'mouse-extend-dblclick=' keycode('mouse-extend-dblclick').

if keycode('mouse-move-down') <> 617

then message 'mouse-move-down=' keycode('mouse-move-down').

if keycode('mouse-move-up') <> 609

then message 'mouse-move-up=' keycode('mouse-move-up').

if keycode('mouse-move-click') <> 625

then message 'mouse-move-click=' keycode('mouse-move-click').

if keycode('mouse-move-dblclick') <> 649

then message 'mouse-move-dblclick=' keycode('mouse-move-dblclick').

/*

if keycode('window-close') <> 1078

then message 'window-close=' keycode('window-close').

if keycode('window-resized') <> 1120

then message 'window-resized=' keycode('window-resized').

if keycode('window-minimized') <> 1095

then message 'window-minimized=' keycode('window-minimized').

if keycode('window-maximized') <> 1094

then message 'window-maximized=' keycode('window-maximized').

if keycode('window-restored') <> 1096

then message 'window-restored=' keycode('window-restored').

*/

ON 'left-mouse-down',

   'left-mouse-up',

   'left-mouse-click',

   'left-mouse-dblclick',

   'right-mouse-down',

   'right-mouse-up',

   'right-mouse-click',

   'right-mouse-dblclick',

   'middle-mouse-down',

   'middle-mouse-up',

   'middle-mouse-click',

   'middle-mouse-dblclick'

ANYWHERE DO:

   MESSAGE i "three-button" self:type last-event:code last-event:event-type last-event:label last-event:function.

   i = i + 1.

   RETURN NO-APPLY.

END.

ON 'mouse-select-down',

   'mouse-select-up',

   'mouse-select-click',

   'mouse-select-dblclick',

   'mouse-menu-down',

   'mouse-menu-up',

   'mouse-menu-click',

   'mouse-menu-dblclick',

   'mouse-extend-down',

   'mouse-extend-up',

   'mouse-extend-click',

   'mouse-extend-dblclick',

   'mouse-move-down',

   'mouse-move-up',

   'mouse-move-click',

   'mouse-move-dblclick'

ANYWHERE DO:

   MESSAGE i "portable" self:type last-event:code last-event:event-type last-event:label last-event:function.

   i = i + 1.

   RETURN NO-APPLY.

END.

ON 'window-close',

   'window-resized',

   'window-minimized',

   'window-maximized',

   'window-restored'

anywhere DO:

   MESSAGE i self:type last-event:code last-event:event-type last-event:label last-event:function.

   i = i + 1.

   RETURN NO-APPLY.

END.

on any-key anywhere do:

   MESSAGE "key" i self:type last-event:code last-event:event-type last-event:label last-event:function.

end.

/* 

ENABLE j WITH FRAME f1 SIZE 20 BY 10 SIDE-LABELS.

j:sensitive in frame f1 = yes.

j:MOVABLE IN FRAME f1 = YES.

j:RESIZABLE IN FRAME f1 = YES.

j:SELECTABLE IN FRAME f1 = YES.

*/

WAIT-FOR '1' OF current-window.

quit.