72 lines
1.6 KiB
Factor
72 lines
1.6 KiB
Factor
USING: alien.syntax classes.struct gdk.ffi kernel sequences system
|
|
tools.test ui.backend.gtk ui.gestures ;
|
|
IN: ui.backend.gtk.tests
|
|
|
|
: gdk-key-release-event ( -- event )
|
|
S{ GdkEventKey
|
|
{ type 9 }
|
|
{ window ALIEN: 1672900 }
|
|
{ send_event 0 }
|
|
{ time 1332590199 }
|
|
{ state 17 }
|
|
{ keyval 72 }
|
|
{ length 1 }
|
|
{ string ALIEN: 1b25c80 }
|
|
{ hardware_keycode 43 }
|
|
{ group 0 }
|
|
{ is_modifier 0 }
|
|
} ;
|
|
|
|
: gdk-key-press-event ( -- event )
|
|
S{ GdkEventKey
|
|
{ type 8 }
|
|
{ window ALIEN: 16727e0 }
|
|
{ send_event 0 }
|
|
{ time 1332864912 }
|
|
{ state 16 }
|
|
{ keyval 65471 }
|
|
{ length 0 }
|
|
{ string ALIEN: 19c9700 }
|
|
{ hardware_keycode 68 }
|
|
{ group 0 }
|
|
{ is_modifier 0 }
|
|
} ;
|
|
|
|
: gdk-space-key-press-event ( -- event )
|
|
S{ GdkEventKey
|
|
{ type 8 }
|
|
{ window ALIEN: 1b66360 }
|
|
{ send_event 0 }
|
|
{ time 28246628 }
|
|
{ state 0 }
|
|
{ keyval 32 }
|
|
{ length 0 }
|
|
{ string ALIEN: 20233b0 }
|
|
{ hardware_keycode 64 }
|
|
{ group 0 }
|
|
{ is_modifier 1 }
|
|
} ;
|
|
|
|
! The Mac build servers doesn't have the gtk libs
|
|
os linux? [
|
|
! key-event>gesture
|
|
{
|
|
T{ key-down f f "F2" }
|
|
T{ key-up f f "H" }
|
|
T{ key-down f f " " }
|
|
} [
|
|
gdk-key-press-event key-event>gesture
|
|
gdk-key-release-event key-event>gesture
|
|
gdk-space-key-press-event key-event>gesture
|
|
] unit-test
|
|
|
|
! key-sym
|
|
{ "F2" t } [
|
|
GDK_KEY_F2 key-sym
|
|
] unit-test
|
|
] when
|
|
|
|
{ 9854 } [
|
|
"gpu.demos.bunny" vocab-icon-data length
|
|
] unit-test
|