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 gdk-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 (gtk-window-present "gtk_window_present") :void
  71   (window (g-object gtk-window)))
  72
  73 (export 'gtk-window-present)
  74
  75 (defcfun (gtk-window-present-with-time "gtk_window_present_with_time") :void
  76   (window (g-object gtk-window))
  77   (timestamp :uint32))
  78
  79 (export 'gtk-window-present-with-time)
  80
  81 (defcfun (gtk-window-iconify "gtk_window_iconify") :void
  82   (window (g-object gtk-window)))
  83
  84 (export 'gtk-window-iconify)
  85
  86 (defcfun (gtk-window-deiconify "gtk_window_deiconify") :void
  87   (window (g-object gtk-window)))
  88
  89 (export 'gtk-window-deiconify)
  90
  91 (defcfun (gtk-window-stick "gtk_window_stick") :void
  92   (window (g-object gtk-window)))
  93
  94 (export 'gtk-window-stick)
  95
  96 (defcfun (gtk-window-unstick "gtk_window_unstick") :void
  97   (window (g-object gtk-window)))
  98
  99 (export 'gtk-window-unstick)
 100
 101 (defcfun (gtk-window-maximize "gtk_window_maximize") :void
 102   (window (g-object gtk-window)))
 103
 104 (export 'gtk-window-maximize)
 105
 106 (defcfun (gtk-window-unmaximize "gtk_window_unmaximize") :void
 107   (window (g-object gtk-window)))
 108
 109 (export 'gtk-window-unmaximize)
 110
 111 (defcfun (gtk-window-fullscreen "gtk_window_fullscreen") :void
 112   (window (g-object gtk-window)))
 113
 114 (export 'gtk-window-fullscreen)
 115
 116 (defcfun (gtk-window-unfullscreen "gtk_window_unfullscreen") :void
 117   (window (g-object gtk-window)))
 118
 119 (export 'gtk-window-unfullscreen)
 120
 121 (defcfun (gtk-window-begin-resize-drag "gtk_window_begin_resize_drag") :void
 122   (window (g-object gtk-window))
 123   (edge gdk-window-edge)
 124   (button :int)
 125   (root-x :int)
 126   (root-y :int)
 127   (timestamp :uint32))
 128
 129 (export 'gtk-window-begin-resize-drag)
 130
 131 (defcfun (gtk-window-begin-move-drag "gtk_window_begin_move_drag") :void
 132   (window (g-object gtk-window))
 133   (button :int)
 134   (root-x :int)
 135   (root-y :int)
 136   (timestamp :uint32))
 137
 138 (export 'gtk-window-begin-move-drag)
 139
 140 (defcfun (gtk-window-set-frame-dimensions "gtk_window_set_frame_dimensions") :void
 141   (window (g-object gtk-window))
 142   (left :int)
 143   (top :int)
 144   (right :int)
 145   (bottom :int))
 146
 147 (export 'gtk-window-set-frame-dimensions)
 148
 149 (defcfun (%gtk-window-get-position "gtk_window_get_position") :void
 150   (window (g-object gtk-window))
 151   (root-x (:pointer :int))
 152   (root-y (:pointer :int)))
 153
 154 (defun gtk-window-get-position (window)
 155   (with-foreign-objects ((x :int)
 156                          (y :int))
 157     (%gtk-window-get-position window x y)
 158     (values (mem-ref x :int) (mem-ref y :int))))
 159
 160 (export 'gtk-window-get-position)
 161
 162 (defcfun (%gtk-window-get-size "gtk_window_get_size") :void
 163   (window (g-object gtk-window))
 164   (width (:pointer :int))
 165   (height (:pointer :int)))
 166
 167 (defun gtk-window-size (window)
 168   (with-foreign-objects ((width :int)
 169                          (height :int))
 170     (%gtk-window-get-size window width height)
 171     (values (mem-ref width :int) (mem-ref height :int))))
 172
 173 (export 'gtk-window-size)
 174
 175 (defcfun (window-move "gtk_window_move") :void
 176   (window (g-object gtk-window))
 177   (x :int)
 178   (y :int))
 179
 180 (export 'window-move)
 181
 182 (defcfun (gtk-window-parse-geometry "gtk_window_parse_geometry") :boolean
 183   (window (g-object gtk-window))
 184   (geometry-string :string))
 185
 186 (export 'gtk-window-parse-geometry)
 187
 188 (defcfun (gtk-window-reshow-with-initial-size "gtk_window_reshow_with_initial_size") :void
 189   (window (g-object gtk-window)))
 190
 191 (export 'gtk-window-reshow-with-initial-size)
 192
 193 (defcfun (gtk-window-resize "gtk_window_resize") :void
 194   (window (g-object gtk-window))
 195   (width :int)
 196   (height :int))
 197
 198 (export 'gtk-window-resize)
 199
 200 (defcfun (gtk-window-default-icon-list "gtk_window_get_default_icon_list") (glist (g-object pixbuf)))
 201
 202 (defcfun (set-default-window-icon-list "gtk_window_set_default_icon_list") :boolean
 203   (icon-list (glist (g-object pixbuf))))
 204
 205 (defun (setf gkt-window-default-icon-list) (icon-list)
 206   (set-default-window-icon-list icon-list)
 207   icon-list)
 208
 209 (export 'gtk-window-default-icon-list)
 210
 211 (defcfun (gtk-window-set-default-icon "gtk_window_set_default_icon") :void
 212   (icon (g-object pixbuf)))
 213
 214 (defcfun (gtk-window-default-icon-name "gtk_window_get_default_icon_name") (:string :free-from-foreign nil))
 215
 216 (defcfun (set-default-window-icon-name "gtk_window_set_default_icon_name") :void
 217   (icon-name :string))
 218
 219 (defun (setf gtk-window-default-icon) (icon)
 220   (gtk-window-set-default-icon icon))
 221
 222 (defun (setf gtk-window-default-icon-name) (name)
 223   (set-default-window-icon-name name))
 224
 225 (export 'window-default-icon)
 226
 227 (export 'window-default-icon-name)
 228
 229 (defcfun (set-window-auto-startup-notification "gtk_window_set_auto_startup_notification") :void
 230   (setting :boolean))
 231
 232 (export 'set-window-auto-startup-notification)
 233
 234 (defcfun (gtk-window-group-add-window "gtk_window_group_add_window") :void
 235   (window-group (g-object window-group))
 236   (window (g-object gtk-window)))
 237
 238 (export 'gtk-window-group-add-window)
 239
 240 (defcfun (gtk-window-group-remove-window "gtk_window_group_remove_window") :void
 241   (window-group (g-object window-group))
 242   (window (g-object gtk-window)))
 243
 244 (export 'gtk-window-group-remove-window)
 245
 246 (defcfun (gtk-window-group-list-windows "gtk_window_group_list_windows") (glist gtk-window)
 247   (window-group (g-object window-group)))
 248
 249 (export 'gtk-window-group-list-windows)
 250
 251 (defcfun (gtk-window-mnemonic-activate "gtk_window_mnemonic_activate") :boolean
 252   (window (g-object gtk-window))
 253   (keyval :uint)
 254   (modifier modifier-type))
 255
 256 (export 'gtk-window-mnemonic-activate)