gtk/gtk.window.lisp

   1 (in-package :gtk)
   2
   3 (defcfun (gtk-window-add-accel-group "gtk_window_add_accel_group") :void
   4   (window (g-object gtk-window))
   5   (accel-group (g-object accel-group)))
   6
   7 (export 'gtk-window-add-accel-group)
   8
   9 (defcfun (gtk-window-remove-accel-group "gtk_window_remove_accel_group") :void
  10   (window (g-object gtk-window))
  11   (accel-group (g-object accel-group)))
  12
  13 (export 'gtk-window-remove-accel-group)
  14
  15 (defcfun (gtk-window-activate-focus "gtk_window_activate_focus") :boolean
  16   (window (g-object gtk-window)))
  17
  18 (export 'gtk-window-activate-focus)
  19
  20 (defcfun (gtk-window-activate-default "gtk_window_activate_default") :boolean
  21   (window (g-object gtk-window)))
  22
  23 (export 'gtk-window-activate-default)
  24
  25 (defcfun (gtk-window-set-geometry-hints "gtk_window_set_geometry_hints") :void
  26   (window (g-object gtk-window))
  27   (geometry-widget (g-object widget))
  28   (geometry (g-boxed-foreign geometry))
  29   (geometry-mask window-hints))
  30
  31 (export 'gtk-window-set-geometry-hints)
  32
  33 (defcfun (gtk-window-list-toplevels "gtk_window_list_toplevels") (glist (g-object gtk-window) :free-from-foreign t))
  34
  35 (export 'gtk-window-list-toplevels)
  36
  37 (defcfun (gtk-window-add-mnemonic "gtk_window_add_mnemonic") :void
  38   (window (g-object gtk-window))
  39   (keyval :uint)
  40   (target (g-object widget)))
  41
  42 (export 'gtk-window-add-mnemonic)
  43
  44 (defcfun (gtk-window-remove-mnemonic "gtk_window_remove_mnemonic") :void
  45   (window (g-object gtk-window))
  46   (keyval :uint)
  47   (target (g-object widget)))
  48
  49 (export 'gtk-window-remove-mnemonic)
  50
  51 (defcfun (gtk-window-activate-mnemonic "gtk_window_mnemonic_activate") :boolean
  52   (window (g-object gtk-window))
  53   (keyval :uint)
  54   (modifier modifier-type))
  55
  56 (export 'gtk-window-activate-mnemonic)
  57
  58 (defcfun (gtk-window-activate-key "gtk_window_activate_key") :boolean
  59   (window (g-object gtk-window))
  60   (event (g-boxed-foreign event)))
  61
  62 (export 'gtk-window-activate-key)
  63
  64 (defcfun (gtk-window-propagate-key-event "gtk_window_propagate_key_event") :boolean
  65   (window (g-object gtk-window))
  66   (event (g-boxed-foreign event)))
  67
  68 (export 'gtk-window-propagate-key-event)
  69
  70 (defcfun (present-window "gtk_window_present") :void
  71   (window (g-object gtk-window)))
  72
  73 (export 'present-window)
  74
  75 (defcfun (present-window-with-time "gtk_window_present_with_time") :void
  76   (window (g-object gtk-window))
  77   (timestamp :uint32))
  78
  79 (export 'present-window-with-time)
  80
  81 (defcfun (window-iconify "gtk_window_iconify") :void
  82   (window (g-object gtk-window)))
  83
  84 (export 'window-iconify)
  85
  86 (defcfun (window-deiconify "gtk_window_deiconify") :void
  87   (window (g-object gtk-window)))
  88
  89 (export 'window-deiconify)
  90
  91 (defcfun (window-stick "gtk_window_stick") :void
  92   (window (g-object gtk-window)))
  93
  94 (export 'window-stick)
  95
  96 (defcfun (window-unstick "gtk_window_unstick") :void
  97   (window (g-object gtk-window)))
  98
  99 (export 'window-unstick)
 100
 101 (defcfun (window-maximize "gtk_window_maximize") :void
 102   (window (g-object gtk-window)))
 103
 104 (export 'window-maximize)
 105
 106 (defcfun (window-unmaximize "gtk_window_unmaximize") :void
 107   (window (g-object gtk-window)))
 108
 109 (export 'window-unmaximize)
 110
 111 (defcfun (window-fullscreen "gtk_window_fullscreen") :void
 112   (window (g-object gtk-window)))
 113
 114 (export 'window-fullscreen)
 115
 116 (defcfun (window-unfullscreen "gtk_window_unfullscreen") :void
 117   (window (g-object gtk-window)))
 118
 119 (export 'window-unfullscreen)
 120
 121 (defcfun (gtk-window-set-keep-above "gtk_window_set_keep_above") :void
 122   (window (g-object gtk-window))
 123   (setting :boolean))
 124
 125 (export 'gtk-window-set-keep-above)
 126
 127 (defcfun (gtk-window-set-keep-below "gtk_window_set_keep_below") :void
 128   (window (g-object gtk-window))
 129   (setting :boolean))
 130
 131 (export 'gtk-window-set-keep-below)
 132
 133 (defcfun (gtk-window-begin-resize-drag "gtk_window_begin_resize_drag") :void
 134   (window (g-object gtk-window))
 135   (edge window-edge)
 136   (button :int)
 137   (root-x :int)
 138   (root-y :int)
 139   (timestamp :uint32))
 140
 141 (export 'gtk-window-begin-resize-drag)
 142
 143 (defcfun (gtk-window-begin-move-drag "gtk_window_begin_move_drag") :void
 144   (window (g-object gtk-window))
 145   (button :int)
 146   (root-x :int)
 147   (root-y :int)
 148   (timestamp :uint32))
 149
 150 (export 'gtk-window-begin-move-drag)
 151
 152 (defcfun (gtk-window-set-frame-dimensions "gtk_window_set_frame_dimensions") :void
 153   (window (g-object gtk-window))
 154   (left :int)
 155   (top :int)
 156   (right :int)
 157   (bottom :int))
 158
 159 (export 'gtk-window-set-frame-dimensions)
 160
 161 (defcfun (%gtk-window-get-position "gtk_window_get_position") :void
 162   (window (g-object gtk-window))
 163   (root-x (:pointer :int))
 164   (root-y (:pointer :int)))
 165
 166 (defun gtk-window-get-position (window)
 167   (with-foreign-objects ((x :int)
 168                          (y :int))
 169     (%gtk-window-get-position window x y)
 170     (values (mem-ref x :int) (mem-ref y :int))))
 171
 172 (export 'gtk-window-get-position)
 173
 174 (defcfun (%gtk-window-get-size "gtk_window_get_size") :void
 175   (window (g-object gtk-window))
 176   (width (:pointer :int))
 177   (height (:pointer :int)))
 178
 179 (defun gtk-window-size (window)
 180   (with-foreign-objects ((width :int)
 181                          (height :int))
 182     (%gtk-window-get-size window width height)
 183     (values (mem-ref width :int) (mem-ref height :int))))
 184
 185 (export 'gtk-window-size)
 186
 187 (defcfun (window-move "gtk_window_move") :void
 188   (window (g-object gtk-window))
 189   (x :int)
 190   (y :int))
 191
 192 (export 'window-move)
 193
 194 (defcfun (gtk-window-parse-geometry "gtk_window_parse_geometry") :boolean
 195   (window (g-object gtk-window))
 196   (geometry-string :string))
 197
 198 (export 'gtk-window-parse-geometry)
 199
 200 (defcfun (reshow-window-with-initial-size "gtk_window_reshow_with_initial_size") :void
 201   (window (g-object gtk-window)))
 202
 203 (export 'reshow-window-with-initial-size)
 204
 205 (defcfun (window-resize "gtk_window_resize") :void
 206   (window (g-object gtk-window))
 207   (width :int)
 208   (height :int))
 209
 210 (export 'window-resize)
 211
 212 (defcfun (window-default-icon-list "gtk_window_get_default_icon_list") (glist (g-object pixbuf)))
 213
 214 (defcfun (set-default-window-icon-list "gtk_window_set_default_icon_list") :boolean
 215   (icon-list (glist (g-object pixbuf))))
 216
 217 (defun (setf window-default-icon-list) (icon-list)
 218   (set-default-window-icon-list icon-list)
 219   icon-list)
 220
 221 (export 'window-default-icon-list)
 222
 223 (defcfun (set-default-window-icon "gtk_window_set_default_icon") :void
 224   (icon (g-object pixbuf)))
 225
 226 (defcfun (set-default-window-icon-name "gtk_window_set_default_icon_name") :void
 227   (icon-name :string))
 228
 229 (defun (setf window-default-icon) (icon)
 230   (set-default-window-icon icon))
 231
 232 (defun (setf window-default-icon-name) (name)
 233   (set-default-window-icon-name name))
 234
 235 (export 'window-default-icon)
 236
 237 (defcfun (set-window-auto-startup-notification "gtk_window_set_auto_startup_notification") :void
 238   (setting :boolean))
 239
 240 (export 'set-window-auto-startup-notification)
 241
 242 (defcfun (gtk-window-group-add-window "gtk_window_group_add_window") :void
 243   (window-group (g-object window-group))
 244   (window (g-object gtk-window)))
 245
 246 (export 'gtk-window-group-add-window)
 247
 248 (defcfun (gtk-window-group-remove-window "gtk_window_group_remove_window") :void
 249   (window-group (g-object window-group))
 250   (window (g-object gtk-window)))
 251
 252 (export 'gtk-window-group-remove-window)
 253
 254 (defcfun (gtk-window-group-list-windows "gtk_window_group_list_windows") (glist gtk-window)
 255   (window-group (g-object window-group)))
 256
 257 (export 'gtk-window-group-list-windows)
 258
 259 (defcfun (gtk-window-mnemonic-activate "gtk_window_mnemonic_activate") :boolean
 260   (window (g-object gtk-window))
 261   (keyval :uint)
 262   (modifier modifier-type))
 263
 264 (export 'gtk-window-mnemonic-activate)