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 (iconify-window "gtk_window_iconify") :void
  82   (window (g-object gtk-window)))
  83
  84 (export 'iconify-window)
  85
  86 (defcfun (deiconify-window "gtk_window_deiconify") :void
  87   (window (g-object gtk-window)))
  88
  89 (export 'deiconify-window)
  90
  91 (defcfun (stick-window "gtk_window_stick") :void
  92   (window (g-object gtk-window)))
  93
  94 (export 'stick-window)
  95
  96 (defcfun (unstick-window "gtk_window_unstick") :void
  97   (window (g-object gtk-window)))
  98
  99 (export 'unstick-window)
 100
 101 (defcfun (maximize-window "gtk_window_maximize") :void
 102   (window (g-object gtk-window)))
 103
 104 (export 'maximize-window)
 105
 106 (defcfun (unmaximize-window "gtk_window_unmaximize") :void
 107   (window (g-object gtk-window)))
 108
 109 (export 'unmaximize-window)
 110
 111 (defcfun (fullscreen-window "gtk_window_fullscreen") :void
 112   (window (g-object gtk-window)))
 113
 114 (export 'fullscreen-window)
 115
 116 (defcfun (unfullscreen-window "gtk_window_unfullscreen") :void
 117   (window (g-object gtk-window)))
 118
 119 (export 'unfullscreen-window)
 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-set-has-frame "gtk_window_set_has_frame") :void
 162   (window (g-object gtk-window))
 163   (setting :boolean))
 164
 165 (export 'gtk-window-set-has-frame)
 166
 167 (defcfun (gtk-window-set-mnemonic-modifier "gtk_window_set_mnemonic_modifier") :void
 168   (window (g-object gtk-window))
 169   (modifier modifier-type))
 170
 171 (export 'gtk-window-set-mnemonic-modifier)
 172
 173 (defcfun (%gtk-window-get-position "gtk_window_get_position") :void
 174   (window (g-object gtk-window))
 175   (root-x (:pointer :int))
 176   (root-y (:pointer :int)))
 177
 178 (defun gtk-window-get-position (window)
 179   (with-foreign-objects ((x :int)
 180                          (y :int))
 181     (%gtk-window-get-position window x y)
 182     (values (mem-ref x :int) (mem-ref y :int))))
 183
 184 (export 'gtk-window-get-position)
 185
 186 (defcfun (%gtk-window-get-size "gtk_window_get_size") :void
 187   (window (g-object gtk-window))
 188   (width (:pointer :int))
 189   (height (:pointer :int)))
 190
 191 (defun gtk-window-size (window)
 192   (with-foreign-objects ((width :int)
 193                          (height :int))
 194     (%gtk-window-get-size window width height)
 195     (values (mem-ref width :int) (mem-ref height :int))))
 196
 197 (export 'gtk-window-size)
 198
 199 (defcfun (move-window "gtk_window_move") :void
 200   (window (g-object gtk-window))
 201   (x :int)
 202   (y :int))
 203
 204 (export 'move-window)
 205
 206 (defcfun (gtk-window-parse-geometry "gtk_window_parse_geometry") :boolean
 207   (window (g-object gtk-window))
 208   (geometry-string :string))
 209
 210 (export 'gtk-window-parse-geometry)
 211
 212 (defcfun (reshow-window-with-initial-size "gtk_window_reshow_with_initial_size") :void
 213   (window (g-object gtk-window)))
 214
 215 (export 'reshow-window-with-initial-size)
 216
 217 (defcfun (resize-window "gtk_window_resize") :void
 218   (window (g-object gtk-window))
 219   (width :int)
 220   (height :int))
 221
 222 (export 'resize-window)
 223
 224 (defcfun (default-window-icon-list "gtk_window_get_default_icon_list") (glist pixbuf))
 225
 226 (defcfun (set-default-window-icon-list "gtk_window_set_default_icon_list") :boolean
 227   (icon-list (glist pixbuf)))
 228
 229 (defun (setf default-window-icon-list) (icon-list)
 230   (set-default-window-icon-list icon-list)
 231   icon-list)
 232
 233 (export 'default-window-icon-list)
 234
 235 (defcfun (set-default-window-icon "gtk_window_set_default_icon") :void
 236   (icon (g-object pixbuf)))
 237
 238 (defcfun (set-default-window-icon-name "gtk_window_set_default_icon_name") :void
 239   (icon-name :string))
 240
 241 (defun (setf default-window-icon) (icon)
 242   (etypecase icon
 243     (pixbuf (set-default-window-icon icon))
 244     (string (set-default-window-icon-name icon))))
 245
 246 (export 'default-window-icon)
 247
 248 (defcfun (set-window-auto-startup-notification "gtk_window_set_auto_startup_notification") :void
 249   (setting :boolean))
 250
 251 (export 'set-window-auto-startup-notification)
 252
 253 (defcfun (gtk-window-group-add-window "gtk_window_group_add_window") :void
 254   (window-group (g-object window-group))
 255   (window (g-object gtk-window)))
 256
 257 (export 'gtk-window-group-add-window)
 258
 259 (defcfun (gtk-window-group-remove-window "gtk_window_group_remove_window") :void
 260   (window-group (g-object window-group))
 261   (window (g-object gtk-window)))
 262
 263 (export 'gtk-window-group-remove-window)
 264
 265 (defcfun (gtk-window-group-list-windows "gtk_window_group_list_windows") (glist gtk-window)
 266   (window-group (g-object window-group)))
 267
 268 (export 'gtk-window-group-list-windows)