basis/ui/backend/gtk/gtk-tests.factor

   1 USING: alien.syntax classes.struct gdk.ffi kernel sequences system
   2 tools.test ui.backend.gtk ui.gestures ;
   3 IN: ui.backend.gtk.tests
   4
   5 : gdk-key-release-event ( -- event )
   6     S{ GdkEventKey
   7        { type 9 }
   8        { window ALIEN: 1672900 }
   9        { send_event 0 }
  10        { time 1332590199 }
  11        { state 17 }
  12        { keyval 72 }
  13        { length 1 }
  14        { string ALIEN: 1b25c80 }
  15        { hardware_keycode 43 }
  16        { group 0 }
  17        { is_modifier 0 }
  18     } ;
  19
  20 : gdk-key-press-event ( -- event )
  21     S{ GdkEventKey
  22        { type 8 }
  23        { window ALIEN: 16727e0 }
  24        { send_event 0 }
  25        { time 1332864912 }
  26        { state 16 }
  27        { keyval 65471 }
  28        { length 0 }
  29        { string ALIEN: 19c9700 }
  30        { hardware_keycode 68 }
  31        { group 0 }
  32        { is_modifier 0 }
  33     } ;
  34
  35 : gdk-space-key-press-event ( -- event )
  36     S{ GdkEventKey
  37        { type 8 }
  38        { window ALIEN: 1b66360 }
  39        { send_event 0 }
  40        { time 28246628 }
  41        { state 0 }
  42        { keyval 32 }
  43        { length 0 }
  44        { string ALIEN: 20233b0 }
  45        { hardware_keycode 64 }
  46        { group 0 }
  47        { is_modifier 1 }
  48     } ;
  49
  50 : gdk-windows-key-release-event ( -- event )
  51     S{ GdkEventKey
  52        { type 9 }
  53        { window ALIEN: 1a71d80 }
  54        { send_event 0 }
  55        { time 47998769 }
  56        { state 67108928 }
  57        { keyval 119 }
  58        { length 1 }
  59        { string ALIEN: 2017640 }
  60        { hardware_keycode 25 }
  61        { group 0 }
  62        { is_modifier 0 }
  63     } ;
  64
  65
  66 ! The Mac build servers doesn't have the gtk libs
  67 os linux? [
  68     ! key-event>gesture
  69     {
  70         T{ key-down f f "F2" }
  71         T{ key-up f f "H" }
  72         T{ key-down f f " " }
  73         T{ key-up { mods { M+ } } { sym "w" } }
  74     } [
  75         gdk-key-press-event key-event>gesture
  76         gdk-key-release-event key-event>gesture
  77         gdk-space-key-press-event key-event>gesture
  78         gdk-windows-key-release-event key-event>gesture
  79     ] unit-test
  80
  81     ! key-sym
  82     { "F2" t } [
  83         GDK_KEY_F2 key-sym
  84     ] unit-test
  85 ] when
  86
  87 { 9854 } [
  88     "gpu.demos.bunny" vocab-icon-data length
  89 ] unit-test