2 * client.c - client management
4 * Copyright © 2007-2009 Julien Danjou <julien@danjou.info>
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
16 * You should have received a copy of the GNU General Public License along
17 * with this program; if not, write to the Free Software Foundation, Inc.,
18 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
22 #include <xcb/xcb_atom.h>
23 #include <xcb/xcb_image.h>
33 #include "common/atoms.h"
34 #include "common/xutil.h"
37 luaA_client_checkudata(lua_State
*L
, int ud
)
39 client_t
*c
= luaA_checkudata(L
, ud
, &client_class
);
41 luaL_error(L
, "client is invalid\n");
46 * \param L The Lua VM state.
47 * \return The number of element pushed on stack.
50 luaA_client_gc(lua_State
*L
)
52 client_t
*c
= luaA_checkudata(L
, 1, &client_class
);
53 button_array_wipe(&c
->buttons
);
54 key_array_wipe(&c
->keys
);
55 xcb_get_wm_protocols_reply_wipe(&c
->protocols
);
56 p_delete(&c
->machine
);
58 p_delete(&c
->instance
);
59 p_delete(&c
->icon_name
);
60 p_delete(&c
->alt_icon_name
);
62 p_delete(&c
->alt_name
);
63 return luaA_object_gc(L
);
66 /** Change the client opacity.
67 * \param L The Lua VM state.
68 * \param cidx The client index.
69 * \param opacity The opacity.
72 client_set_opacity(lua_State
*L
, int cidx
, double opacity
)
74 client_t
*c
= luaA_client_checkudata(L
, cidx
);
76 if(c
->opacity
!= opacity
)
79 window_opacity_set(c
->window
, opacity
);
80 luaA_object_emit_signal(L
, cidx
, "property::opacity", 0);
84 /** Change the clients urgency flag.
85 * \param L The Lua VM state.
86 * \param cidx The client index on the stack.
87 * \param urgent The new flag state.
90 client_set_urgent(lua_State
*L
, int cidx
, bool urgent
)
92 client_t
*c
= luaA_client_checkudata(L
, cidx
);
94 if(c
->urgent
!= urgent
)
96 xcb_get_property_cookie_t hints
=
97 xcb_get_wm_hints_unchecked(globalconf
.connection
, c
->window
);
100 ewmh_client_update_hints(c
);
102 /* update ICCCM hints */
104 xcb_get_wm_hints_reply(globalconf
.connection
, hints
, &wmh
, NULL
);
107 wmh
.flags
|= XCB_WM_HINT_X_URGENCY
;
109 wmh
.flags
&= ~XCB_WM_HINT_X_URGENCY
;
111 xcb_set_wm_hints(globalconf
.connection
, c
->window
, &wmh
);
113 hook_property(c
, "urgent");
114 luaA_object_emit_signal(L
, cidx
, "property::urgent", 0);
119 client_set_group_window(lua_State
*L
, int cidx
, xcb_window_t window
)
121 client_t
*c
= luaA_client_checkudata(L
, cidx
);
123 if(c
->group_window
!= window
)
125 c
->group_window
= window
;
126 luaA_object_emit_signal(L
, cidx
, "property::group_window", 0);
131 client_set_type(lua_State
*L
, int cidx
, window_type_t type
)
133 client_t
*c
= luaA_client_checkudata(L
, cidx
);
138 luaA_object_emit_signal(L
, cidx
, "property::type", 0);
143 client_set_pid(lua_State
*L
, int cidx
, uint32_t pid
)
145 client_t
*c
= luaA_client_checkudata(L
, cidx
);
150 luaA_object_emit_signal(L
, cidx
, "property::pid", 0);
155 client_set_icon_name(lua_State
*L
, int cidx
, char *icon_name
)
157 client_t
*c
= luaA_client_checkudata(L
, cidx
);
158 p_delete(&c
->icon_name
);
159 c
->icon_name
= icon_name
;
160 luaA_object_emit_signal(L
, cidx
, "property::icon_name", 0);
161 hook_property(c
, "icon_name");
165 client_set_alt_icon_name(lua_State
*L
, int cidx
, char *icon_name
)
167 client_t
*c
= luaA_client_checkudata(L
, cidx
);
168 p_delete(&c
->alt_icon_name
);
169 c
->alt_icon_name
= icon_name
;
170 luaA_object_emit_signal(L
, cidx
, "property::icon_name", 0);
171 hook_property(c
, "icon_name");
175 client_set_role(lua_State
*L
, int cidx
, char *role
)
177 client_t
*c
= luaA_client_checkudata(L
, cidx
);
180 luaA_object_emit_signal(L
, cidx
, "property::role", 0);
184 client_set_machine(lua_State
*L
, int cidx
, char *machine
)
186 client_t
*c
= luaA_client_checkudata(L
, cidx
);
187 p_delete(&c
->machine
);
188 c
->machine
= machine
;
189 luaA_object_emit_signal(L
, cidx
, "property::machine", 0);
193 client_set_class_instance(lua_State
*L
, int cidx
, const char *class, const char *instance
)
195 client_t
*c
= luaA_client_checkudata(L
, cidx
);
197 p_delete(&c
->instance
);
198 c
->class = a_strdup(class);
199 c
->instance
= a_strdup(instance
);
200 luaA_object_emit_signal(L
, cidx
, "property::class", 0);
201 luaA_object_emit_signal(L
, cidx
, "property::instance", 0);
205 client_set_transient_for(lua_State
*L
, int cidx
, client_t
*transient_for
)
207 client_t
*c
= luaA_client_checkudata(L
, cidx
);
209 if(c
->transient_for
!= transient_for
)
211 c
->transient_for
= transient_for
;
212 luaA_object_emit_signal(L
, cidx
, "property::transient_for", 0);
217 client_set_name(lua_State
*L
, int cidx
, char *name
)
219 client_t
*c
= luaA_client_checkudata(L
, cidx
);
222 hook_property(c
, "name");
223 luaA_object_emit_signal(L
, cidx
, "property::name", 0);
227 client_set_alt_name(lua_State
*L
, int cidx
, char *name
)
229 client_t
*c
= luaA_client_checkudata(L
, cidx
);
230 p_delete(&c
->alt_name
);
232 hook_property(c
, "name");
233 luaA_object_emit_signal(L
, cidx
, "property::name", 0);
236 /** Returns true if a client is tagged
237 * with one of the tags of the specified screen.
238 * \param c The client to check.
239 * \param screen Virtual screen.
240 * \return true if the client is visible, false otherwise.
243 client_maybevisible(client_t
*c
, screen_t
*screen
)
245 if(screen
&& c
->screen
== screen
)
247 if(c
->sticky
|| c
->type
== WINDOW_TYPE_DESKTOP
)
250 foreach(tag
, screen
->tags
)
251 if(tag_get_selected(*tag
) && is_client_tagged(c
, *tag
))
257 /** Get a client by its window.
258 * \param w The client window to find.
259 * \return A client pointer if found, NULL otherwise.
262 client_getbywin(xcb_window_t w
)
264 foreach(c
, globalconf
.clients
)
265 if((*c
)->window
== w
)
271 /** Record that a client lost focus.
272 * \param c Client being unfocused
275 client_unfocus_update(client_t
*c
)
277 globalconf
.screens
.tab
[c
->phys_screen
].client_focus
= NULL
;
278 ewmh_update_net_active_window(c
->phys_screen
);
281 if(globalconf
.hooks
.unfocus
!= LUA_REFNIL
)
283 luaA_object_push(globalconf
.L
, c
);
284 luaA_dofunction_from_registry(globalconf
.L
, globalconf
.hooks
.unfocus
, 1, 0);
287 luaA_object_push(globalconf
.L
, c
);
288 luaA_class_emit_signal(globalconf
.L
, &client_class
, "unfocus", 1);
291 /** Unfocus a client.
292 * \param c The client.
295 client_unfocus(client_t
*c
)
298 xcb_window_t root_win
= xutil_screen_get(globalconf
.connection
, c
->phys_screen
)->root
;
299 /* Set focus on root window, so no events leak to the current window.
300 * This kind of inlines client_set_focus(), but a root window will never have
301 * the WM_TAKE_FOCUS protocol.
303 xcb_set_input_focus(globalconf
.connection
, XCB_INPUT_FOCUS_PARENT
,
304 root_win
, XCB_CURRENT_TIME
);
306 client_unfocus_update(c
);
309 /** Check if client supports atom a protocol in WM_PROTOCOL.
310 * \param c The client.
311 * \param atom The protocol atom to check for.
312 * \return True if client has the atom in protocol, false otherwise.
315 client_hasproto(client_t
*c
, xcb_atom_t atom
)
317 for(uint32_t i
= 0; i
< c
->protocols
.atoms_len
; i
++)
318 if(c
->protocols
.atoms
[i
] == atom
)
323 /** Sets focus on window - using xcb_set_input_focus or WM_TAKE_FOCUS
324 * \param c Client that should get focus
325 * \param set_input_focus Should we call xcb_set_input_focus
328 client_set_focus(client_t
*c
, bool set_input_focus
)
330 bool takefocus
= client_hasproto(c
, WM_TAKE_FOCUS
);
332 xcb_set_input_focus(globalconf
.connection
, XCB_INPUT_FOCUS_PARENT
,
333 c
->window
, XCB_CURRENT_TIME
);
335 window_takefocus(c
->window
);
338 /** Ban client and move it out of the viewport.
339 * \param c The client.
342 client_ban(client_t
*c
)
346 xcb_unmap_window(globalconf
.connection
, c
->window
);
350 if(globalconf
.screens
.tab
[c
->phys_screen
].prev_client_focus
== c
)
351 globalconf
.screens
.tab
[c
->phys_screen
].prev_client_focus
= NULL
;
353 /* Wait until the last moment to take away the focus from the window. */
354 if(globalconf
.screens
.tab
[c
->phys_screen
].client_focus
== c
)
359 /** This is part of The Bob Marley Algorithm: we ignore enter and leave window
360 * in certain cases, like map/unmap or move, so we don't get spurious events.
363 client_ignore_enterleave_events(void)
365 foreach(c
, globalconf
.clients
)
366 xcb_change_window_attributes(globalconf
.connection
,
369 (const uint32_t []) { CLIENT_SELECT_INPUT_EVENT_MASK
& ~(XCB_EVENT_MASK_ENTER_WINDOW
| XCB_EVENT_MASK_LEAVE_WINDOW
) });
373 client_restore_enterleave_events(void)
375 foreach(c
, globalconf
.clients
)
376 xcb_change_window_attributes(globalconf
.connection
,
379 (const uint32_t []) { CLIENT_SELECT_INPUT_EVENT_MASK
});
382 /** Record that a client got focus.
383 * \param c The client.
386 client_focus_update(client_t
*c
)
388 if(!client_maybevisible(c
, c
->screen
))
390 /* Focus previously focused client */
391 client_focus(globalconf
.screen_focus
->prev_client_focus
);
395 if(globalconf
.screen_focus
396 && globalconf
.screen_focus
->client_focus
)
398 if (globalconf
.screen_focus
->client_focus
!= c
)
399 client_unfocus_update(globalconf
.screen_focus
->client_focus
);
401 /* Already focused */
404 luaA_object_push(globalconf
.L
, c
);
405 client_set_minimized(globalconf
.L
, -1, false);
407 /* unban the client before focusing for consistency */
410 globalconf
.screen_focus
= &globalconf
.screens
.tab
[c
->phys_screen
];
411 globalconf
.screen_focus
->prev_client_focus
= c
;
412 globalconf
.screen_focus
->client_focus
= c
;
414 /* according to EWMH, we have to remove the urgent state from a client */
415 client_set_urgent(globalconf
.L
, -1, false);
417 ewmh_update_net_active_window(c
->phys_screen
);
420 if(globalconf
.hooks
.focus
!= LUA_REFNIL
)
422 luaA_object_push(globalconf
.L
, c
);
423 luaA_dofunction_from_registry(globalconf
.L
, globalconf
.hooks
.focus
, 1, 0);
426 luaA_object_push(globalconf
.L
, c
);
427 luaA_class_emit_signal(globalconf
.L
, &client_class
, "focus", 1);
430 /** Give focus to client, or to first client if client is NULL.
431 * \param c The client.
434 client_focus(client_t
*c
)
436 /* We have to set focus on first client */
437 if(!c
&& globalconf
.clients
.len
&& !(c
= globalconf
.clients
.tab
[0]))
440 if(!client_maybevisible(c
, c
->screen
))
444 client_focus_update(c
);
446 client_set_focus(c
, !c
->nofocus
);
449 /** Stack a window below.
450 * \param c The client.
451 * \param previous The previous window on the stack.
452 * \return The next-previous!
455 client_stack_above(client_t
*c
, xcb_window_t previous
)
457 uint32_t config_win_vals
[2];
459 config_win_vals
[0] = previous
;
460 config_win_vals
[1] = XCB_STACK_MODE_ABOVE
;
462 xcb_configure_window(globalconf
.connection
, c
->window
,
463 XCB_CONFIG_WINDOW_SIBLING
| XCB_CONFIG_WINDOW_STACK_MODE
,
466 config_win_vals
[0] = c
->window
;
470 xcb_configure_window(globalconf
.connection
,
472 XCB_CONFIG_WINDOW_SIBLING
| XCB_CONFIG_WINDOW_STACK_MODE
,
474 previous
= c
->titlebar
->window
;
477 previous
= c
->window
;
479 /* stack transient window on top of their parents */
480 foreach(node
, globalconf
.stack
)
481 if((*node
)->transient_for
== c
)
482 previous
= client_stack_above(*node
, previous
);
487 /** Stacking layout layers */
490 /** This one is a special layer */
498 /** This one only used for counting and is not a real layer */
502 /** Get the real layer of a client according to its attribute (fullscreen, …)
503 * \param c The client.
504 * \return The real layer.
507 client_layer_translator(client_t
*c
)
509 /* first deal with user set attributes */
512 else if(c
->fullscreen
)
513 return LAYER_FULLSCREEN
;
519 /* check for transient attr */
523 /* then deal with windows type */
526 case WINDOW_TYPE_DESKTOP
:
527 return LAYER_DESKTOP
;
536 * \todo It might be worth stopping to restack everyone and only stack `c'
537 * relatively to the first matching in the list.
540 client_stack_refresh()
542 uint32_t config_win_vals
[2];
545 if (!globalconf
.client_need_stack_refresh
)
547 globalconf
.client_need_stack_refresh
= false;
549 config_win_vals
[0] = XCB_NONE
;
550 config_win_vals
[1] = XCB_STACK_MODE_ABOVE
;
552 /* stack desktop windows */
553 for(layer
= LAYER_DESKTOP
; layer
< LAYER_BELOW
; layer
++)
554 foreach(node
, globalconf
.stack
)
555 if(client_layer_translator(*node
) == layer
)
556 config_win_vals
[0] = client_stack_above(*node
,
559 /* first stack not ontop wibox window */
560 foreach(_sb
, globalconf
.wiboxes
)
565 xcb_configure_window(globalconf
.connection
,
567 XCB_CONFIG_WINDOW_SIBLING
| XCB_CONFIG_WINDOW_STACK_MODE
,
569 config_win_vals
[0] = sb
->window
;
573 /* then stack clients */
574 for(layer
= LAYER_BELOW
; layer
< LAYER_COUNT
; layer
++)
575 foreach(node
, globalconf
.stack
)
576 if(client_layer_translator(*node
) == layer
)
577 config_win_vals
[0] = client_stack_above(*node
,
580 /* then stack ontop wibox window */
581 foreach(_sb
, globalconf
.wiboxes
)
586 xcb_configure_window(globalconf
.connection
,
588 XCB_CONFIG_WINDOW_SIBLING
| XCB_CONFIG_WINDOW_STACK_MODE
,
590 config_win_vals
[0] = sb
->window
;
595 /** Manage a new client.
596 * \param w The window.
597 * \param wgeom Window geometry.
598 * \param phys_screen Physical screen number.
599 * \param startup True if we are managing at startup time.
602 client_manage(xcb_window_t w
, xcb_get_geometry_reply_t
*wgeom
, int phys_screen
, bool startup
)
605 const uint32_t select_input_val
[] = { CLIENT_SELECT_INPUT_EVENT_MASK
};
607 if(systray_iskdedockapp(w
))
609 systray_request_handle(w
, phys_screen
, NULL
);
613 /* If this is a new client that just has been launched, then request its
615 xcb_get_property_cookie_t startup_id_q
= { 0 };
617 startup_id_q
= xcb_get_any_property(globalconf
.connection
,
618 false, w
, _NET_STARTUP_ID
, UINT_MAX
);
620 xcb_change_window_attributes(globalconf
.connection
, w
, XCB_CW_EVENT_MASK
, select_input_val
);
622 client_t
*c
= client_new(globalconf
.L
);
623 /* Push client in client list */
624 client_array_push(&globalconf
.clients
, luaA_object_ref(globalconf
.L
, -1));
627 screen
= c
->screen
= screen_getbycoord(&globalconf
.screens
.tab
[phys_screen
],
630 c
->phys_screen
= phys_screen
;
632 /* consider the window banned */
637 c
->geometry
.x
= wgeom
->x
;
638 c
->geometry
.y
= wgeom
->y
;
639 /* Border will be added later. */
640 c
->geometry
.width
= wgeom
->width
;
641 c
->geometry
.height
= wgeom
->height
;
642 /* Also set internal geometry (client_ban() needs it). */
643 c
->geometries
.internal
.x
= wgeom
->x
;
644 c
->geometries
.internal
.y
= wgeom
->y
;
645 c
->geometries
.internal
.width
= wgeom
->width
;
646 c
->geometries
.internal
.height
= wgeom
->height
;
649 luaA_object_push(globalconf
.L
, c
);
650 client_set_border_width(globalconf
.L
, -1, wgeom
->border_width
);
651 lua_pop(globalconf
.L
, 1);
653 /* we honor size hints by default */
654 c
->size_hints_honor
= true;
657 property_update_wm_normal_hints(c
, NULL
);
658 property_update_wm_hints(c
, NULL
);
659 property_update_wm_transient_for(c
, NULL
);
660 property_update_wm_client_leader(c
, NULL
);
661 property_update_wm_client_machine(c
, NULL
);
662 property_update_wm_window_role(c
, NULL
);
663 property_update_net_wm_pid(c
, NULL
);
664 property_update_net_wm_icon(c
, NULL
);
667 c
->opacity
= window_opacity_get(c
->window
);
669 /* Then check clients hints */
670 ewmh_client_check_hints(c
);
672 screen_client_moveto(c
, screen
, true);
674 /* Push client in stack */
677 /* update window title */
678 property_update_wm_name(c
, NULL
);
679 property_update_net_wm_name(c
, NULL
);
680 property_update_wm_icon_name(c
, NULL
);
681 property_update_net_wm_icon_name(c
, NULL
);
682 property_update_wm_class(c
, NULL
);
683 property_update_wm_protocols(c
, NULL
);
686 ewmh_process_client_strut(c
, NULL
);
688 ewmh_update_net_client_list(c
->phys_screen
);
690 /* Always stay in NORMAL_STATE. Even though iconified seems more
691 * appropriate sometimes. The only possible loss is that clients not using
692 * visibility events may continue to process data (when banned).
693 * Without any exposes or other events the cost should be fairly limited though.
695 * Some clients may expect the window to be unmapped when STATE_ICONIFIED.
696 * Two conflicting parts of the ICCCM v2.0 (section 4.1.4):
698 * "Normal -> Iconic - The client should send a ClientMessage event as described later in this section."
699 * (note no explicit mention of unmapping, while Normal->Widthdrawn does mention that)
701 * "Once a client's window has left the Withdrawn state, the window will be mapped
702 * if it is in the Normal state and the window will be unmapped if it is in the Iconic state."
704 * At this stage it's just safer to keep it in normal state and avoid confusion.
706 window_state_set(c
->window
, XCB_WM_STATE_NORMAL
);
710 /* Request our response */
711 xcb_get_property_reply_t
*reply
=
712 xcb_get_property_reply(globalconf
.connection
, startup_id_q
, NULL
);
713 /* Say spawn that a client has been started, with startup id as argument */
714 char *startup_id
= xutil_get_text_property_from_reply(reply
);
716 spawn_start_notify(c
, startup_id
);
717 p_delete(&startup_id
);
720 /* Call hook to notify list change */
721 if(globalconf
.hooks
.clients
!= LUA_REFNIL
)
722 luaA_dofunction_from_registry(globalconf
.L
, globalconf
.hooks
.clients
, 0, 0);
724 luaA_class_emit_signal(globalconf
.L
, &client_class
, "list", 0);
727 if(globalconf
.hooks
.manage
!= LUA_REFNIL
)
729 luaA_object_push(globalconf
.L
, c
);
730 lua_pushboolean(globalconf
.L
, startup
);
731 luaA_dofunction_from_registry(globalconf
.L
, globalconf
.hooks
.manage
, 2, 0);
734 luaA_object_push(globalconf
.L
, c
);
735 lua_pushboolean(globalconf
.L
, startup
);
736 luaA_class_emit_signal(globalconf
.L
, &client_class
, "manage", 2);
739 /** Compute client geometry with respect to its geometry hints.
740 * \param c The client.
741 * \param geometry The geometry that the client might receive.
742 * \return The geometry the client must take respecting its hints.
745 client_geometry_hints(client_t
*c
, area_t geometry
)
747 int32_t basew
, baseh
, minw
, minh
;
749 /* base size is substituted with min size if not specified */
750 if(c
->size_hints
.flags
& XCB_SIZE_HINT_P_SIZE
)
752 basew
= c
->size_hints
.base_width
;
753 baseh
= c
->size_hints
.base_height
;
755 else if(c
->size_hints
.flags
& XCB_SIZE_HINT_P_MIN_SIZE
)
757 basew
= c
->size_hints
.min_width
;
758 baseh
= c
->size_hints
.min_height
;
763 /* min size is substituted with base size if not specified */
764 if(c
->size_hints
.flags
& XCB_SIZE_HINT_P_MIN_SIZE
)
766 minw
= c
->size_hints
.min_width
;
767 minh
= c
->size_hints
.min_height
;
769 else if(c
->size_hints
.flags
& XCB_SIZE_HINT_P_SIZE
)
771 minw
= c
->size_hints
.base_width
;
772 minh
= c
->size_hints
.base_height
;
777 if(c
->size_hints
.flags
& XCB_SIZE_HINT_P_ASPECT
778 && c
->size_hints
.min_aspect_num
> 0
779 && c
->size_hints
.min_aspect_den
> 0
780 && geometry
.height
- baseh
> 0
781 && geometry
.width
- basew
> 0)
783 double dx
= (double) (geometry
.width
- basew
);
784 double dy
= (double) (geometry
.height
- baseh
);
785 double min
= (double) c
->size_hints
.min_aspect_num
/ (double) c
->size_hints
.min_aspect_den
;
786 double max
= (double) c
->size_hints
.max_aspect_num
/ (double) c
->size_hints
.min_aspect_den
;
787 double ratio
= dx
/ dy
;
788 if(max
> 0 && min
> 0 && ratio
> 0)
792 dy
= (dx
* min
+ dy
) / (min
* min
+ 1);
794 geometry
.width
= (int) dx
+ basew
;
795 geometry
.height
= (int) dy
+ baseh
;
799 dy
= (dx
* min
+ dy
) / (max
* max
+ 1);
801 geometry
.width
= (int) dx
+ basew
;
802 geometry
.height
= (int) dy
+ baseh
;
808 geometry
.width
= MAX(geometry
.width
, minw
);
810 geometry
.height
= MAX(geometry
.height
, minh
);
812 if(c
->size_hints
.flags
& XCB_SIZE_HINT_P_MAX_SIZE
)
814 if(c
->size_hints
.max_width
)
815 geometry
.width
= MIN(geometry
.width
, c
->size_hints
.max_width
);
816 if(c
->size_hints
.max_height
)
817 geometry
.height
= MIN(geometry
.height
, c
->size_hints
.max_height
);
820 if(c
->size_hints
.flags
& (XCB_SIZE_HINT_P_RESIZE_INC
| XCB_SIZE_HINT_BASE_SIZE
)
821 && c
->size_hints
.width_inc
&& c
->size_hints
.height_inc
)
823 uint16_t t1
= geometry
.width
, t2
= geometry
.height
;
824 unsigned_subtract(t1
, basew
);
825 unsigned_subtract(t2
, baseh
);
826 geometry
.width
-= t1
% c
->size_hints
.width_inc
;
827 geometry
.height
-= t2
% c
->size_hints
.height_inc
;
833 /** Resize client window.
834 * The sizes given as parameters are with titlebar and borders!
835 * \param c Client to resize.
836 * \param geometry New window geometry.
837 * \param hints Use size hints.
838 * \return true if an actual resize occurred.
841 client_resize(client_t
*c
, area_t geometry
, bool hints
)
843 area_t geometry_internal
;
846 /* offscreen appearance fixes */
847 area
= display_area_get(c
->phys_screen
);
849 if(geometry
.x
> area
.width
)
850 geometry
.x
= area
.width
- geometry
.width
;
851 if(geometry
.y
> area
.height
)
852 geometry
.y
= area
.height
- geometry
.height
;
853 if(geometry
.x
+ geometry
.width
< 0)
855 if(geometry
.y
+ geometry
.height
< 0)
858 /* Real client geometry, please keep it contained to C code at the very least. */
859 geometry_internal
= titlebar_geometry_remove(c
->titlebar
, c
->border_width
, geometry
);
862 geometry_internal
= client_geometry_hints(c
, geometry_internal
);
864 if(geometry_internal
.width
== 0 || geometry_internal
.height
== 0)
867 /* Also let client hints propagate to the "official" geometry. */
868 geometry
= titlebar_geometry_add(c
->titlebar
, c
->border_width
, geometry_internal
);
870 if(c
->geometries
.internal
.x
!= geometry_internal
.x
871 || c
->geometries
.internal
.y
!= geometry_internal
.y
872 || c
->geometries
.internal
.width
!= geometry_internal
.width
873 || c
->geometries
.internal
.height
!= geometry_internal
.height
)
875 screen_t
*new_screen
= screen_getbycoord(c
->screen
,
876 geometry_internal
.x
, geometry_internal
.y
);
878 /* Values to configure a window is an array where values are
879 * stored according to 'value_mask' */
882 c
->geometries
.internal
.x
= values
[0] = geometry_internal
.x
;
883 c
->geometries
.internal
.y
= values
[1] = geometry_internal
.y
;
884 c
->geometries
.internal
.width
= values
[2] = geometry_internal
.width
;
885 c
->geometries
.internal
.height
= values
[3] = geometry_internal
.height
;
887 /* Also store geometry including border and titlebar. */
888 c
->geometry
= geometry
;
890 titlebar_update_geometry(c
);
892 /* Ignore all spurious enter/leave notify events */
893 client_ignore_enterleave_events();
895 xcb_configure_window(globalconf
.connection
, c
->window
,
896 XCB_CONFIG_WINDOW_X
| XCB_CONFIG_WINDOW_Y
897 | XCB_CONFIG_WINDOW_WIDTH
| XCB_CONFIG_WINDOW_HEIGHT
,
900 client_restore_enterleave_events();
902 screen_client_moveto(c
, new_screen
, false);
905 hook_property(c
, "geometry");
907 luaA_object_push(globalconf
.L
, c
);
908 luaA_object_emit_signal(globalconf
.L
, -1, "property::geometry", 0);
909 /** \todo This need to be VERIFIED before it is emitted! */
910 luaA_object_emit_signal(globalconf
.L
, -1, "property::x", 0);
911 luaA_object_emit_signal(globalconf
.L
, -1, "property::y", 0);
912 luaA_object_emit_signal(globalconf
.L
, -1, "property::width", 0);
913 luaA_object_emit_signal(globalconf
.L
, -1, "property::height", 0);
914 lua_pop(globalconf
.L
, 1);
922 /** Set a client minimized, or not.
923 * \param L The Lua VM state.
924 * \param cidx The client index.
925 * \param s Set or not the client minimized.
928 client_set_minimized(lua_State
*L
, int cidx
, bool s
)
930 client_t
*c
= luaA_client_checkudata(L
, cidx
);
932 if(c
->minimized
!= s
)
935 banning_refresh((c
)->screen
);
937 window_state_set(c
->window
, XCB_WM_STATE_ICONIC
);
939 window_state_set(c
->window
, XCB_WM_STATE_NORMAL
);
940 ewmh_client_update_hints(c
);
941 if(strut_has_value(&c
->strut
))
942 screen_emit_signal(globalconf
.L
, c
->screen
, "property::workarea", 0);
944 hook_property(c
, "minimized");
945 luaA_object_emit_signal(L
, cidx
, "property::minimized", 0);
949 /** Set a client sticky, or not.
950 * \param L The Lua VM state.
951 * \param cidx The client index.
952 * \param s Set or not the client sticky.
955 client_set_sticky(lua_State
*L
, int cidx
, bool s
)
957 client_t
*c
= luaA_client_checkudata(L
, cidx
);
962 banning_refresh((c
)->screen
);
963 ewmh_client_update_hints(c
);
964 hook_property(c
, "sticky");
965 luaA_object_emit_signal(L
, cidx
, "property::sticky", 0);
969 /** Set a client fullscreen, or not.
970 * \param L The Lua VM state.
971 * \param cidx The client index.
972 * \param s Set or not the client fullscreen.
975 client_set_fullscreen(lua_State
*L
, int cidx
, bool s
)
977 client_t
*c
= luaA_client_checkudata(L
, cidx
);
979 if(c
->fullscreen
!= s
)
983 /* become fullscreen! */
986 /* Make sure the current geometry is stored without titlebar. */
987 titlebar_ban(c
->titlebar
);
988 /* remove any max state */
989 client_set_maximized_horizontal(L
, cidx
, false);
990 client_set_maximized_vertical(L
, cidx
, false);
991 /* You can only be part of one of the special layers. */
992 client_set_below(L
, cidx
, false);
993 client_set_above(L
, cidx
, false);
994 client_set_ontop(L
, cidx
, false);
996 geometry
= screen_area_get(c
->screen
, false);
997 c
->geometries
.fullscreen
= c
->geometry
;
998 c
->border_width_fs
= c
->border_width
;
999 client_set_border_width(L
, cidx
, 0);
1000 c
->fullscreen
= true;
1004 geometry
= c
->geometries
.fullscreen
;
1005 c
->fullscreen
= false;
1006 client_set_border_width(L
, cidx
, c
->border_width_fs
);
1008 client_resize(c
, geometry
, false);
1010 ewmh_client_update_hints(c
);
1011 hook_property(c
, "fullscreen");
1012 luaA_object_emit_signal(L
, cidx
, "property::fullscreen", 0);
1016 /** Set a client horizontally maximized.
1017 * \param L The Lua VM state.
1018 * \param cidx The client index.
1019 * \param s The maximized status.
1022 client_set_maximized_horizontal(lua_State
*L
, int cidx
, bool s
)
1024 client_t
*c
= luaA_client_checkudata(L
, cidx
);
1026 if(c
->maximized_horizontal
!= s
)
1030 if((c
->maximized_horizontal
= s
))
1032 /* remove fullscreen mode */
1033 client_set_fullscreen(L
, cidx
, false);
1035 geometry
= screen_area_get(c
->screen
, true);
1036 geometry
.y
= c
->geometry
.y
;
1037 geometry
.height
= c
->geometry
.height
;
1038 c
->geometries
.max
.x
= c
->geometry
.x
;
1039 c
->geometries
.max
.width
= c
->geometry
.width
;
1043 geometry
= c
->geometry
;
1044 geometry
.x
= c
->geometries
.max
.x
;
1045 geometry
.width
= c
->geometries
.max
.width
;
1048 client_resize(c
, geometry
, c
->size_hints_honor
);
1050 ewmh_client_update_hints(c
);
1051 hook_property(c
, "maximized_horizontal");
1052 luaA_object_emit_signal(L
, cidx
, "property::maximized_horizontal", 0);
1056 /** Set a client vertically maximized.
1057 * \param L The Lua VM state.
1058 * \param cidx The client index.
1059 * \param s The maximized status.
1062 client_set_maximized_vertical(lua_State
*L
, int cidx
, bool s
)
1064 client_t
*c
= luaA_client_checkudata(L
, cidx
);
1066 if(c
->maximized_vertical
!= s
)
1070 if((c
->maximized_vertical
= s
))
1072 /* remove fullscreen mode */
1073 client_set_fullscreen(L
, cidx
, false);
1075 geometry
= screen_area_get(c
->screen
, true);
1076 geometry
.x
= c
->geometry
.x
;
1077 geometry
.width
= c
->geometry
.width
;
1078 c
->geometries
.max
.y
= c
->geometry
.y
;
1079 c
->geometries
.max
.height
= c
->geometry
.height
;
1083 geometry
= c
->geometry
;
1084 geometry
.y
= c
->geometries
.max
.y
;
1085 geometry
.height
= c
->geometries
.max
.height
;
1088 client_resize(c
, geometry
, c
->size_hints_honor
);
1090 ewmh_client_update_hints(c
);
1091 hook_property(c
, "maximized_vertical");
1092 luaA_object_emit_signal(L
, cidx
, "property::maximized_vertical", 0);
1096 /** Set a client above, or not.
1097 * \param L The Lua VM state.
1098 * \param cidx The client index.
1099 * \param s Set or not the client above.
1102 client_set_above(lua_State
*L
, int cidx
, bool s
)
1104 client_t
*c
= luaA_client_checkudata(L
, cidx
);
1108 /* You can only be part of one of the special layers. */
1111 client_set_below(L
, cidx
, false);
1112 client_set_ontop(L
, cidx
, false);
1113 client_set_fullscreen(L
, cidx
, false);
1117 ewmh_client_update_hints(c
);
1119 hook_property(c
, "above");
1120 luaA_object_emit_signal(L
, cidx
, "property::above", 0);
1124 /** Set a client below, or not.
1125 * \param L The Lua VM state.
1126 * \param cidx The client index.
1127 * \param s Set or not the client below.
1130 client_set_below(lua_State
*L
, int cidx
, bool s
)
1132 client_t
*c
= luaA_client_checkudata(L
, cidx
);
1136 /* You can only be part of one of the special layers. */
1139 client_set_above(L
, cidx
, false);
1140 client_set_ontop(L
, cidx
, false);
1141 client_set_fullscreen(L
, cidx
, false);
1145 ewmh_client_update_hints(c
);
1147 hook_property(c
, "below");
1148 luaA_object_emit_signal(L
, cidx
, "property::below", 0);
1152 /** Set a client modal, or not.
1153 * \param L The Lua VM state.
1154 * \param cidx The client index.
1155 * \param s Set or not the client modal attribute.
1158 client_set_modal(lua_State
*L
, int cidx
, bool s
)
1160 client_t
*c
= luaA_client_checkudata(L
, cidx
);
1166 ewmh_client_update_hints(c
);
1168 hook_property(c
, "modal");
1169 luaA_object_emit_signal(L
, cidx
, "property::modal", 0);
1173 /** Set a client ontop, or not.
1174 * \param L The Lua VM state.
1175 * \param cidx The client index.
1176 * \param s Set or not the client ontop attribute.
1179 client_set_ontop(lua_State
*L
, int cidx
, bool s
)
1181 client_t
*c
= luaA_client_checkudata(L
, cidx
);
1185 /* You can only be part of one of the special layers. */
1188 client_set_above(L
, cidx
, false);
1189 client_set_below(L
, cidx
, false);
1190 client_set_fullscreen(L
, cidx
, false);
1195 hook_property(c
, "ontop");
1196 luaA_object_emit_signal(L
, cidx
, "property::ontop", 0);
1200 /** Set a client skip taskbar attribute.
1201 * \param L Tha Lua VM state.
1202 * \param cidx The client index.
1203 * \param s Set or not the client skip taskbar attribute.
1206 client_set_skip_taskbar(lua_State
*L
, int cidx
, bool s
)
1208 client_t
*c
= luaA_client_checkudata(L
, cidx
);
1210 if(c
->skip_taskbar
!= s
)
1212 c
->skip_taskbar
= s
;
1213 ewmh_client_update_hints(c
);
1214 luaA_object_emit_signal(L
, cidx
, "property::skip_taskbar", 0);
1218 /** Unban a client and move it back into the viewport.
1219 * \param c The client.
1222 client_unban(client_t
*c
)
1226 xcb_map_window(globalconf
.connection
, c
->window
);
1228 c
->isbanned
= false;
1232 /** Unmanage a client.
1233 * \param c The client.
1236 client_unmanage(client_t
*c
)
1238 tag_array_t
*tags
= &c
->screen
->tags
;
1240 /* Reset transient_for attributes of widows that maybe referring to us */
1241 foreach(_tc
, globalconf
.clients
)
1243 client_t
*tc
= *_tc
;
1244 if(tc
->transient_for
== c
)
1245 tc
->transient_for
= NULL
;
1248 if(globalconf
.screens
.tab
[c
->phys_screen
].prev_client_focus
== c
)
1249 globalconf
.screens
.tab
[c
->phys_screen
].prev_client_focus
= NULL
;
1251 if(globalconf
.screens
.tab
[c
->phys_screen
].client_focus
== c
)
1254 /* remove client from global list and everywhere else */
1255 foreach(elem
, globalconf
.clients
)
1258 client_array_remove(&globalconf
.clients
, elem
);
1261 stack_client_remove(c
);
1262 for(int i
= 0; i
< tags
->len
; i
++)
1263 untag_client(c
, tags
->tab
[i
]);
1266 if(globalconf
.hooks
.unmanage
!= LUA_REFNIL
)
1268 luaA_object_push(globalconf
.L
, c
);
1269 luaA_dofunction_from_registry(globalconf
.L
, globalconf
.hooks
.unmanage
, 1, 0);
1272 luaA_object_push(globalconf
.L
, c
);
1273 luaA_class_emit_signal(globalconf
.L
, &client_class
, "unmanage", 1);
1275 /* Call hook to notify list change */
1276 if(globalconf
.hooks
.clients
!= LUA_REFNIL
)
1277 luaA_dofunction_from_registry(globalconf
.L
, globalconf
.hooks
.clients
, 0, 0);
1279 luaA_class_emit_signal(globalconf
.L
, &client_class
, "list", 0);
1281 if(strut_has_value(&c
->strut
))
1282 screen_emit_signal(globalconf
.L
, c
->screen
, "property::workarea", 0);
1284 window_state_set(c
->window
, XCB_WM_STATE_WITHDRAWN
);
1286 titlebar_client_detach(c
);
1288 ewmh_update_net_client_list(c
->phys_screen
);
1290 /* set client as invalid */
1293 luaA_object_unref(globalconf
.L
, c
);
1296 /** Kill a client via a WM_DELETE_WINDOW request or KillClient if not
1298 * \param c The client to kill.
1301 client_kill(client_t
*c
)
1303 if(client_hasproto(c
, WM_DELETE_WINDOW
))
1305 xcb_client_message_event_t ev
;
1307 /* Initialize all of event's fields first */
1310 ev
.response_type
= XCB_CLIENT_MESSAGE
;
1311 ev
.window
= c
->window
;
1313 ev
.data
.data32
[1] = XCB_CURRENT_TIME
;
1314 ev
.type
= WM_PROTOCOLS
;
1315 ev
.data
.data32
[0] = WM_DELETE_WINDOW
;
1317 xcb_send_event(globalconf
.connection
, false, c
->window
,
1318 XCB_EVENT_MASK_NO_EVENT
, (char *) &ev
);
1321 xcb_kill_client(globalconf
.connection
, c
->window
);
1324 /** Get all clients into a table.
1325 * \param L The Lua VM state.
1326 * \return The number of elements pushed on stack.
1328 * \lparam An optional screen number.
1329 * \lreturn A table with all clients.
1332 luaA_client_get(lua_State
*L
)
1336 screen
= luaL_optnumber(L
, 1, 0) - 1;
1341 foreach(c
, globalconf
.clients
)
1343 luaA_object_push(L
, *c
);
1344 lua_rawseti(L
, -2, i
++);
1348 luaA_checkscreen(screen
);
1349 foreach(c
, globalconf
.clients
)
1350 if((*c
)->screen
== &globalconf
.screens
.tab
[screen
])
1352 luaA_object_push(L
, *c
);
1353 lua_rawseti(L
, -2, i
++);
1360 /** Check if a client is visible on its screen.
1361 * \param L The Lua VM state.
1362 * \return The number of elements pushed on stack.
1365 * \lreturn A boolean value, true if the client is visible, false otherwise.
1368 luaA_client_isvisible(lua_State
*L
)
1370 client_t
*c
= luaA_client_checkudata(L
, 1);
1371 lua_pushboolean(L
, client_isvisible(c
, c
->screen
));
1375 /** Set client border width.
1376 * \param L The Lua VM state.
1377 * \param cidx The client index.
1378 * \param width The border width.
1381 client_set_border_width(lua_State
*L
, int cidx
, int width
)
1383 client_t
*c
= luaA_client_checkudata(L
, cidx
);
1386 if(width
> 0 && (c
->type
== WINDOW_TYPE_DOCK
1387 || c
->type
== WINDOW_TYPE_SPLASH
1388 || c
->type
== WINDOW_TYPE_DESKTOP
1392 if(width
== c
->border_width
|| width
< 0)
1395 /* disallow change of border width if the client is fullscreen */
1399 /* Update geometry with the new border. */
1400 c
->geometry
.width
-= 2 * c
->border_width
;
1401 c
->geometry
.height
-= 2 * c
->border_width
;
1403 c
->border_width
= width
;
1404 xcb_configure_window(globalconf
.connection
, c
->window
,
1405 XCB_CONFIG_WINDOW_BORDER_WIDTH
, &w
);
1407 c
->geometry
.width
+= 2 * c
->border_width
;
1408 c
->geometry
.height
+= 2 * c
->border_width
;
1410 /* Changing border size also affects the size of the titlebar. */
1411 titlebar_update_geometry(c
);
1413 hook_property(c
, "border_width");
1414 luaA_object_emit_signal(L
, cidx
, "property::border_width", 0);
1417 /** Set a client icon.
1418 * \param L The Lua VM state.
1419 * \param cidx The client index on the stack.
1420 * \param iidx The image index on the stack.
1423 client_set_icon(lua_State
*L
, int cidx
, int iidx
)
1425 client_t
*c
= luaA_client_checkudata(L
, cidx
);
1426 /* convert index to absolute */
1427 cidx
= luaA_absindex(L
, cidx
);
1428 iidx
= luaA_absindex(L
, iidx
);
1429 luaA_checkudata(L
, iidx
, &image_class
);
1430 luaA_object_unref_item(L
, cidx
, c
->icon
);
1431 c
->icon
= luaA_object_ref_item(L
, cidx
, iidx
);
1432 luaA_object_emit_signal(L
, cidx
< iidx
? cidx
: cidx
- 1, "property::icon", 0);
1434 hook_property(c
, "icon");
1438 * \param L The Lua VM state.
1444 luaA_client_kill(lua_State
*L
)
1446 client_t
*c
= luaA_client_checkudata(L
, 1);
1451 /** Swap a client with another one.
1452 * \param L The Lua VM state.
1455 * \lparam A client to swap with.
1458 luaA_client_swap(lua_State
*L
)
1460 client_t
*c
= luaA_client_checkudata(L
, 1);
1461 client_t
*swap
= luaA_client_checkudata(L
, 2);
1465 client_t
**ref_c
= NULL
, **ref_swap
= NULL
;
1466 foreach(item
, globalconf
.clients
)
1470 else if(*item
== swap
)
1472 if(ref_c
&& ref_swap
)
1479 /* Call hook to notify list change */
1480 if(globalconf
.hooks
.clients
!= LUA_REFNIL
)
1481 luaA_dofunction_from_registry(L
, globalconf
.hooks
.clients
, 0, 0);
1483 luaA_class_emit_signal(globalconf
.L
, &client_class
, "list", 0);
1489 /** Access or set the client tags.
1490 * \param L The Lua VM state.
1491 * \return The number of elements pushed on stack.
1492 * \lparam A table with tags to set, or none to get the current tags table.
1493 * \return The clients tag.
1496 luaA_client_tags(lua_State
*L
)
1498 client_t
*c
= luaA_client_checkudata(L
, 1);
1499 tag_array_t
*tags
= &c
->screen
->tags
;
1502 if(lua_gettop(L
) == 2)
1504 luaA_checktable(L
, 2);
1505 for(int i
= 0; i
< tags
->len
; i
++)
1506 untag_client(c
, tags
->tab
[i
]);
1508 while(lua_next(L
, 2))
1515 if(is_client_tagged(c
, *tag
))
1517 luaA_object_push(L
, *tag
);
1518 lua_rawseti(L
, -2, ++j
);
1524 /** Raise a client on top of others which are on the same layer.
1525 * \param L The Lua VM state.
1530 luaA_client_raise(lua_State
*L
)
1532 client_t
*c
= luaA_client_checkudata(L
, 1);
1537 /** Lower a client on bottom of others which are on the same layer.
1538 * \param L The Lua VM state.
1543 luaA_client_lower(lua_State
*L
)
1545 client_t
*c
= luaA_client_checkudata(L
, 1);
1547 stack_client_push(c
);
1549 /* Traverse all transient layers. */
1550 for(client_t
*tc
= c
->transient_for
; tc
; tc
= tc
->transient_for
)
1551 stack_client_push(tc
);
1558 /** Redraw a client by unmapping and mapping it quickly.
1559 * \param L The Lua VM state.
1565 luaA_client_redraw(lua_State
*L
)
1567 client_t
*c
= luaA_client_checkudata(L
, 1);
1569 xcb_unmap_window(globalconf
.connection
, c
->window
);
1570 xcb_map_window(globalconf
.connection
, c
->window
);
1572 /* Set the focus on the current window if the redraw has been
1573 performed on the window where the pointer is currently on
1574 because after the unmapping/mapping, the focus is lost */
1575 if(globalconf
.screen_focus
->client_focus
== c
)
1584 /** Stop managing a client.
1585 * \param L The Lua VM state.
1586 * \return The number of elements pushed on stack.
1591 luaA_client_unmanage(lua_State
*L
)
1593 client_t
*c
= luaA_client_checkudata(L
, 1);
1598 /** Return client geometry.
1599 * \param L The Lua VM state.
1600 * \return The number of elements pushed on stack.
1602 * \lparam A table with new coordinates, or none.
1603 * \lreturn A table with client coordinates.
1606 luaA_client_geometry(lua_State
*L
)
1608 client_t
*c
= luaA_client_checkudata(L
, 1);
1610 if(lua_gettop(L
) == 2 && !lua_isnil(L
, 2))
1614 luaA_checktable(L
, 2);
1615 geometry
.x
= luaA_getopt_number(L
, 2, "x", c
->geometry
.x
);
1616 geometry
.y
= luaA_getopt_number(L
, 2, "y", c
->geometry
.y
);
1617 if(client_isfixed(c
))
1619 geometry
.width
= c
->geometry
.width
;
1620 geometry
.height
= c
->geometry
.height
;
1624 geometry
.width
= luaA_getopt_number(L
, 2, "width", c
->geometry
.width
);
1625 geometry
.height
= luaA_getopt_number(L
, 2, "height", c
->geometry
.height
);
1628 client_resize(c
, geometry
, c
->size_hints_honor
);
1631 return luaA_pusharea(L
, c
->geometry
);
1634 /** Return client struts (reserved space at the edge of the screen).
1635 * \param L The Lua VM state.
1636 * \return The number of elements pushed on stack.
1638 * \lparam A table with new strut values, or none.
1639 * \lreturn A table with strut values.
1642 luaA_client_struts(lua_State
*L
)
1644 client_t
*c
= luaA_client_checkudata(L
, 1);
1646 if(lua_gettop(L
) == 2)
1648 luaA_tostrut(L
, 2, &c
->strut
);
1649 ewmh_update_strut(c
->window
, &c
->strut
);
1650 hook_property(c
, "struts");
1651 luaA_object_emit_signal(L
, 1, "property::struts", 0);
1652 screen_emit_signal(L
, c
->screen
, "property::workarea", 0);
1655 return luaA_pushstrut(L
, c
->strut
);
1659 luaA_client_set_screen(lua_State
*L
, client_t
*c
)
1661 if(globalconf
.xinerama_is_active
)
1663 int screen
= luaL_checknumber(L
, -1) - 1;
1664 luaA_checkscreen(screen
);
1665 screen_client_moveto(c
, &globalconf
.screens
.tab
[screen
], true);
1671 luaA_client_set_hidden(lua_State
*L
, client_t
*c
)
1673 bool b
= luaA_checkboolean(L
, -1);
1677 banning_refresh((c
)->screen
);
1678 hook_property(c
, "hidden");
1679 if(strut_has_value(&c
->strut
))
1680 screen_emit_signal(globalconf
.L
, c
->screen
, "property::workarea", 0);
1681 luaA_object_emit_signal(L
, -3, "property::hidden", 0);
1687 luaA_client_set_minimized(lua_State
*L
, client_t
*c
)
1689 client_set_minimized(L
, -3, luaA_checkboolean(L
, -1));
1694 luaA_client_set_fullscreen(lua_State
*L
, client_t
*c
)
1696 client_set_fullscreen(L
, -3, luaA_checkboolean(L
, -1));
1701 luaA_client_set_modal(lua_State
*L
, client_t
*c
)
1703 client_set_modal(L
, -3, luaA_checkboolean(L
, -1));
1708 luaA_client_set_maximized_horizontal(lua_State
*L
, client_t
*c
)
1710 client_set_maximized_horizontal(L
, -3, luaA_checkboolean(L
, -1));
1715 luaA_client_set_maximized_vertical(lua_State
*L
, client_t
*c
)
1717 client_set_maximized_vertical(L
, -3, luaA_checkboolean(L
, -1));
1722 luaA_client_set_icon(lua_State
*L
, client_t
*c
)
1724 client_set_icon(L
, -3, -1);
1729 luaA_client_set_opacity(lua_State
*L
, client_t
*c
)
1731 if(lua_isnil(L
, -1))
1732 client_set_opacity(L
, -3, -1);
1734 client_set_opacity(L
, -3, luaL_checknumber(L
, -1));
1739 luaA_client_set_sticky(lua_State
*L
, client_t
*c
)
1741 client_set_sticky(L
, -3, luaA_checkboolean(L
, -1));
1746 luaA_client_set_size_hints_honor(lua_State
*L
, client_t
*c
)
1748 c
->size_hints_honor
= luaA_checkboolean(L
, -1);
1749 hook_property(c
, "size_hints_honor");
1750 luaA_object_emit_signal(L
, -3, "property::size_hints_honor", 0);
1755 luaA_client_set_border_width(lua_State
*L
, client_t
*c
)
1757 client_set_border_width(L
, -3, luaL_checknumber(L
, -1));
1762 luaA_client_set_ontop(lua_State
*L
, client_t
*c
)
1764 client_set_ontop(L
, -3, luaA_checkboolean(L
, -1));
1769 luaA_client_set_below(lua_State
*L
, client_t
*c
)
1771 client_set_below(L
, -3, luaA_checkboolean(L
, -1));
1776 luaA_client_set_above(lua_State
*L
, client_t
*c
)
1778 client_set_above(L
, -3, luaA_checkboolean(L
, -1));
1783 luaA_client_set_urgent(lua_State
*L
, client_t
*c
)
1785 client_set_urgent(L
, -3, luaA_checkboolean(L
, -1));
1790 luaA_client_set_border_color(lua_State
*L
, client_t
*c
)
1794 if((buf
= luaL_checklstring(L
, -1, &len
))
1795 && xcolor_init_reply(xcolor_init_unchecked(&c
->border_color
, buf
, len
)))
1797 xcb_change_window_attributes(globalconf
.connection
, c
->window
,
1798 XCB_CW_BORDER_PIXEL
, &c
->border_color
.pixel
);
1799 luaA_object_emit_signal(L
, -3, "property::border_color", 0);
1805 luaA_client_set_titlebar(lua_State
*L
, client_t
*c
)
1807 if(lua_isnil(L
, -1))
1808 titlebar_client_detach(c
);
1810 titlebar_client_attach(c
);
1815 luaA_client_set_skip_taskbar(lua_State
*L
, client_t
*c
)
1817 client_set_skip_taskbar(L
, -3, luaA_checkboolean(L
, -1));
1822 luaA_client_get_name(lua_State
*L
, client_t
*c
)
1824 lua_pushstring(L
, c
->name
? c
->name
: c
->alt_name
);
1829 luaA_client_get_icon_name(lua_State
*L
, client_t
*c
)
1831 lua_pushstring(L
, c
->icon_name
? c
->icon_name
: c
->alt_icon_name
);
1835 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, class, lua_pushstring
)
1836 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, instance
, lua_pushstring
)
1837 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, machine
, lua_pushstring
)
1838 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, role
, lua_pushstring
)
1839 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, transient_for
, luaA_object_push
)
1840 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, skip_taskbar
, lua_pushboolean
)
1841 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, window
, lua_pushnumber
)
1842 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, leader_window
, lua_pushnumber
)
1843 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, group_window
, lua_pushnumber
)
1844 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, pid
, lua_pushnumber
)
1845 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, hidden
, lua_pushboolean
)
1846 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, minimized
, lua_pushboolean
)
1847 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, fullscreen
, lua_pushboolean
)
1848 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, modal
, lua_pushboolean
)
1849 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, ontop
, lua_pushboolean
)
1850 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, urgent
, lua_pushboolean
)
1851 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, above
, lua_pushboolean
)
1852 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, below
, lua_pushboolean
)
1853 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, sticky
, lua_pushboolean
)
1854 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, size_hints_honor
, lua_pushboolean
)
1855 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, maximized_horizontal
, lua_pushboolean
)
1856 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, maximized_vertical
, lua_pushboolean
)
1857 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, opacity
, lua_pushnumber
)
1858 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, border_width
, lua_pushnumber
)
1859 LUA_OBJECT_EXPORT_PROPERTY(client
, client_t
, border_color
, luaA_pushxcolor
)
1862 luaA_client_get_content(lua_State
*L
, client_t
*c
)
1864 xcb_image_t
*ximage
= xcb_image_get(globalconf
.connection
,
1867 c
->geometries
.internal
.width
,
1868 c
->geometries
.internal
.height
,
1869 ~0, XCB_IMAGE_FORMAT_Z_PIXMAP
);
1874 if(ximage
->bpp
>= 24)
1876 uint32_t *data
= p_alloca(uint32_t, ximage
->width
* ximage
->height
);
1878 for(int y
= 0; y
< ximage
->height
; y
++)
1879 for(int x
= 0; x
< ximage
->width
; x
++)
1881 data
[y
* ximage
->width
+ x
] = xcb_image_get_pixel(ximage
, x
, y
);
1882 data
[y
* ximage
->width
+ x
] |= 0xff000000; /* set alpha to 0xff */
1885 retval
= image_new_from_argb32(ximage
->width
, ximage
->height
, data
);
1887 xcb_image_destroy(ximage
);
1894 luaA_client_get_type(lua_State
*L
, client_t
*c
)
1898 case WINDOW_TYPE_DESKTOP
:
1899 lua_pushliteral(L
, "desktop");
1901 case WINDOW_TYPE_DOCK
:
1902 lua_pushliteral(L
, "dock");
1904 case WINDOW_TYPE_SPLASH
:
1905 lua_pushliteral(L
, "splash");
1907 case WINDOW_TYPE_DIALOG
:
1908 lua_pushliteral(L
, "dialog");
1910 case WINDOW_TYPE_MENU
:
1911 lua_pushliteral(L
, "menu");
1913 case WINDOW_TYPE_TOOLBAR
:
1914 lua_pushliteral(L
, "toolbar");
1916 case WINDOW_TYPE_UTILITY
:
1917 lua_pushliteral(L
, "utility");
1919 case WINDOW_TYPE_DROPDOWN_MENU
:
1920 lua_pushliteral(L
, "dropdown_menu");
1922 case WINDOW_TYPE_POPUP_MENU
:
1923 lua_pushliteral(L
, "popup_menu");
1925 case WINDOW_TYPE_TOOLTIP
:
1926 lua_pushliteral(L
, "tooltip");
1928 case WINDOW_TYPE_NOTIFICATION
:
1929 lua_pushliteral(L
, "notification");
1931 case WINDOW_TYPE_COMBO
:
1932 lua_pushliteral(L
, "combo");
1934 case WINDOW_TYPE_DND
:
1935 lua_pushliteral(L
, "dnd");
1937 case WINDOW_TYPE_NORMAL
:
1938 lua_pushliteral(L
, "normal");
1945 luaA_client_get_screen(lua_State
*L
, client_t
*c
)
1949 lua_pushnumber(L
, 1 + screen_array_indexof(&globalconf
.screens
, c
->screen
));
1954 luaA_client_get_icon(lua_State
*L
, client_t
*c
)
1956 return luaA_object_push_item(L
, -2, c
->icon
);
1960 luaA_client_get_titlebar(lua_State
*L
, client_t
*c
)
1962 return luaA_object_push(L
, c
->titlebar
);
1966 luaA_client_get_size_hints(lua_State
*L
, client_t
*c
)
1968 const char *u_or_p
= NULL
;
1970 lua_createtable(L
, 0, 1);
1972 if(c
->size_hints
.flags
& XCB_SIZE_HINT_US_POSITION
)
1973 u_or_p
= "user_position";
1974 else if(c
->size_hints
.flags
& XCB_SIZE_HINT_P_POSITION
)
1975 u_or_p
= "program_position";
1979 lua_createtable(L
, 0, 2);
1980 lua_pushnumber(L
, c
->size_hints
.x
);
1981 lua_setfield(L
, -2, "x");
1982 lua_pushnumber(L
, c
->size_hints
.y
);
1983 lua_setfield(L
, -2, "y");
1984 lua_setfield(L
, -2, u_or_p
);
1988 if(c
->size_hints
.flags
& XCB_SIZE_HINT_US_SIZE
)
1989 u_or_p
= "user_size";
1990 else if(c
->size_hints
.flags
& XCB_SIZE_HINT_P_SIZE
)
1991 u_or_p
= "program_size";
1995 lua_createtable(L
, 0, 2);
1996 lua_pushnumber(L
, c
->size_hints
.width
);
1997 lua_setfield(L
, -2, "width");
1998 lua_pushnumber(L
, c
->size_hints
.height
);
1999 lua_setfield(L
, -2, "height");
2000 lua_setfield(L
, -2, u_or_p
);
2003 if(c
->size_hints
.flags
& XCB_SIZE_HINT_P_MIN_SIZE
)
2005 lua_pushnumber(L
, c
->size_hints
.min_width
);
2006 lua_setfield(L
, -2, "min_width");
2007 lua_pushnumber(L
, c
->size_hints
.min_height
);
2008 lua_setfield(L
, -2, "min_height");
2011 if(c
->size_hints
.flags
& XCB_SIZE_HINT_P_MAX_SIZE
)
2013 lua_pushnumber(L
, c
->size_hints
.max_width
);
2014 lua_setfield(L
, -2, "max_width");
2015 lua_pushnumber(L
, c
->size_hints
.max_height
);
2016 lua_setfield(L
, -2, "max_height");
2019 if(c
->size_hints
.flags
& XCB_SIZE_HINT_P_RESIZE_INC
)
2021 lua_pushnumber(L
, c
->size_hints
.width_inc
);
2022 lua_setfield(L
, -2, "width_inc");
2023 lua_pushnumber(L
, c
->size_hints
.height_inc
);
2024 lua_setfield(L
, -2, "height_inc");
2027 if(c
->size_hints
.flags
& XCB_SIZE_HINT_P_ASPECT
)
2029 lua_pushnumber(L
, c
->size_hints
.min_aspect_num
);
2030 lua_setfield(L
, -2, "min_aspect_num");
2031 lua_pushnumber(L
, c
->size_hints
.min_aspect_den
);
2032 lua_setfield(L
, -2, "min_aspect_den");
2033 lua_pushnumber(L
, c
->size_hints
.max_aspect_num
);
2034 lua_setfield(L
, -2, "max_aspect_num");
2035 lua_pushnumber(L
, c
->size_hints
.max_aspect_den
);
2036 lua_setfield(L
, -2, "max_aspect_den");
2039 if(c
->size_hints
.flags
& XCB_SIZE_HINT_BASE_SIZE
)
2041 lua_pushnumber(L
, c
->size_hints
.base_width
);
2042 lua_setfield(L
, -2, "base_width");
2043 lua_pushnumber(L
, c
->size_hints
.base_height
);
2044 lua_setfield(L
, -2, "base_height");
2047 if(c
->size_hints
.flags
& XCB_SIZE_HINT_P_WIN_GRAVITY
)
2049 switch(c
->size_hints
.win_gravity
)
2052 lua_pushliteral(L
, "north_west");
2054 case XCB_GRAVITY_NORTH
:
2055 lua_pushliteral(L
, "north");
2057 case XCB_GRAVITY_NORTH_EAST
:
2058 lua_pushliteral(L
, "north_east");
2060 case XCB_GRAVITY_WEST
:
2061 lua_pushliteral(L
, "west");
2063 case XCB_GRAVITY_CENTER
:
2064 lua_pushliteral(L
, "center");
2066 case XCB_GRAVITY_EAST
:
2067 lua_pushliteral(L
, "east");
2069 case XCB_GRAVITY_SOUTH_WEST
:
2070 lua_pushliteral(L
, "south_west");
2072 case XCB_GRAVITY_SOUTH
:
2073 lua_pushliteral(L
, "south");
2075 case XCB_GRAVITY_SOUTH_EAST
:
2076 lua_pushliteral(L
, "south_east");
2078 case XCB_GRAVITY_STATIC
:
2079 lua_pushliteral(L
, "static");
2082 lua_setfield(L
, -2, "win_gravity");
2088 /** Get or set mouse buttons bindings for a client.
2089 * \param L The Lua VM state.
2090 * \return The number of element pushed on stack.
2093 * \lparam An array of mouse button bindings objects, or nothing.
2094 * \return The array of mouse button bindings objects of this client.
2097 luaA_client_buttons(lua_State
*L
)
2099 client_t
*client
= luaA_client_checkudata(L
, 1);
2100 button_array_t
*buttons
= &client
->buttons
;
2102 if(lua_gettop(L
) == 2)
2104 luaA_button_array_set(L
, 1, 2, buttons
);
2105 luaA_object_emit_signal(L
, 1, "property::buttons", 0);
2106 window_buttons_grab(client
->window
, &client
->buttons
);
2109 return luaA_button_array_get(L
, 1, buttons
);
2112 /** Get or set keys bindings for a client.
2113 * \param L The Lua VM state.
2114 * \return The number of element pushed on stack.
2117 * \lparam An array of key bindings objects, or nothing.
2118 * \return The array of key bindings objects of this client.
2121 luaA_client_keys(lua_State
*L
)
2123 client_t
*c
= luaA_client_checkudata(L
, 1);
2124 key_array_t
*keys
= &c
->keys
;
2126 if(lua_gettop(L
) == 2)
2128 luaA_key_array_set(L
, 1, 2, keys
);
2129 luaA_object_emit_signal(L
, 1, "property::keys", 0);
2130 xcb_ungrab_key(globalconf
.connection
, XCB_GRAB_ANY
, c
->window
, XCB_BUTTON_MASK_ANY
);
2131 window_grabkeys(c
->window
, keys
);
2134 return luaA_key_array_get(L
, 1, keys
);
2138 * \param L The Lua VM state.
2139 * \return The number of pushed elements.
2142 luaA_client_module_index(lua_State
*L
)
2145 const char *buf
= luaL_checklstring(L
, 2, &len
);
2147 switch(a_tokenize(buf
, len
))
2150 return luaA_object_push(globalconf
.L
, globalconf
.screen_focus
->client_focus
);
2157 /* Client module new index.
2158 * \param L The Lua VM state.
2159 * \return The number of pushed elements.
2162 luaA_client_module_newindex(lua_State
*L
)
2165 const char *buf
= luaL_checklstring(L
, 2, &len
);
2168 switch(a_tokenize(buf
, len
))
2171 c
= luaA_client_checkudata(L
, 3);
2182 client_class_setup(lua_State
*L
)
2184 static const struct luaL_reg client_methods
[] =
2186 LUA_CLASS_METHODS(client
)
2187 { "get", luaA_client_get
},
2188 { "__index", luaA_client_module_index
},
2189 { "__newindex", luaA_client_module_newindex
},
2193 static const struct luaL_reg client_meta
[] =
2195 LUA_OBJECT_META(client
)
2197 { "buttons", luaA_client_buttons
},
2198 { "keys", luaA_client_keys
},
2199 { "isvisible", luaA_client_isvisible
},
2200 { "geometry", luaA_client_geometry
},
2201 { "struts", luaA_client_struts
},
2202 { "tags", luaA_client_tags
},
2203 { "kill", luaA_client_kill
},
2204 { "swap", luaA_client_swap
},
2205 { "raise", luaA_client_raise
},
2206 { "lower", luaA_client_lower
},
2207 { "redraw", luaA_client_redraw
},
2208 { "unmanage", luaA_client_unmanage
},
2209 { "__gc", luaA_client_gc
},
2213 luaA_class_setup(L
, &client_class
, "client", (lua_class_allocator_t
) client_new
,
2214 luaA_class_index_miss_property
, luaA_class_newindex_miss_property
,
2215 client_methods
, client_meta
);
2216 luaA_class_add_property(&client_class
, A_TK_NAME
,
2218 (lua_class_propfunc_t
) luaA_client_get_name
,
2220 luaA_class_add_property(&client_class
, A_TK_TRANSIENT_FOR
,
2222 (lua_class_propfunc_t
) luaA_client_get_transient_for
,
2224 luaA_class_add_property(&client_class
, A_TK_SKIP_TASKBAR
,
2225 (lua_class_propfunc_t
) luaA_client_set_skip_taskbar
,
2226 (lua_class_propfunc_t
) luaA_client_get_skip_taskbar
,
2227 (lua_class_propfunc_t
) luaA_client_set_skip_taskbar
);
2228 luaA_class_add_property(&client_class
, A_TK_CONTENT
,
2230 (lua_class_propfunc_t
) luaA_client_get_content
,
2232 luaA_class_add_property(&client_class
, A_TK_TYPE
,
2234 (lua_class_propfunc_t
) luaA_client_get_type
,
2236 luaA_class_add_property(&client_class
, A_TK_CLASS
,
2238 (lua_class_propfunc_t
) luaA_client_get_class
,
2240 luaA_class_add_property(&client_class
, A_TK_INSTANCE
,
2242 (lua_class_propfunc_t
) luaA_client_get_instance
,
2244 luaA_class_add_property(&client_class
, A_TK_ROLE
,
2246 (lua_class_propfunc_t
) luaA_client_get_role
,
2248 luaA_class_add_property(&client_class
, A_TK_PID
,
2250 (lua_class_propfunc_t
) luaA_client_get_pid
,
2252 luaA_class_add_property(&client_class
, A_TK_WINDOW
,
2254 (lua_class_propfunc_t
) luaA_client_get_window
,
2256 luaA_class_add_property(&client_class
, A_TK_LEADER_WINDOW
,
2258 (lua_class_propfunc_t
) luaA_client_get_leader_window
,
2260 luaA_class_add_property(&client_class
, A_TK_MACHINE
,
2262 (lua_class_propfunc_t
) luaA_client_get_machine
,
2264 luaA_class_add_property(&client_class
, A_TK_ICON_NAME
,
2266 (lua_class_propfunc_t
) luaA_client_get_icon_name
,
2268 luaA_class_add_property(&client_class
, A_TK_SCREEN
,
2270 (lua_class_propfunc_t
) luaA_client_get_screen
,
2271 (lua_class_propfunc_t
) luaA_client_set_screen
);
2272 luaA_class_add_property(&client_class
, A_TK_HIDDEN
,
2273 (lua_class_propfunc_t
) luaA_client_set_hidden
,
2274 (lua_class_propfunc_t
) luaA_client_get_hidden
,
2275 (lua_class_propfunc_t
) luaA_client_set_hidden
);
2276 luaA_class_add_property(&client_class
, A_TK_MINIMIZED
,
2277 (lua_class_propfunc_t
) luaA_client_set_minimized
,
2278 (lua_class_propfunc_t
) luaA_client_get_minimized
,
2279 (lua_class_propfunc_t
) luaA_client_set_minimized
);
2280 luaA_class_add_property(&client_class
, A_TK_FULLSCREEN
,
2281 (lua_class_propfunc_t
) luaA_client_set_fullscreen
,
2282 (lua_class_propfunc_t
) luaA_client_get_fullscreen
,
2283 (lua_class_propfunc_t
) luaA_client_set_fullscreen
);
2284 luaA_class_add_property(&client_class
, A_TK_MODAL
,
2285 (lua_class_propfunc_t
) luaA_client_set_modal
,
2286 (lua_class_propfunc_t
) luaA_client_get_modal
,
2287 (lua_class_propfunc_t
) luaA_client_set_modal
);
2288 luaA_class_add_property(&client_class
, A_TK_GROUP_WINDOW
,
2290 (lua_class_propfunc_t
) luaA_client_get_group_window
,
2292 luaA_class_add_property(&client_class
, A_TK_MAXIMIZED_HORIZONTAL
,
2293 (lua_class_propfunc_t
) luaA_client_set_maximized_horizontal
,
2294 (lua_class_propfunc_t
) luaA_client_get_maximized_horizontal
,
2295 (lua_class_propfunc_t
) luaA_client_set_maximized_horizontal
);
2296 luaA_class_add_property(&client_class
, A_TK_MAXIMIZED_VERTICAL
,
2297 (lua_class_propfunc_t
) luaA_client_set_maximized_vertical
,
2298 (lua_class_propfunc_t
) luaA_client_get_maximized_vertical
,
2299 (lua_class_propfunc_t
) luaA_client_set_maximized_vertical
);
2300 luaA_class_add_property(&client_class
, A_TK_ICON
,
2301 (lua_class_propfunc_t
) luaA_client_set_icon
,
2302 (lua_class_propfunc_t
) luaA_client_get_icon
,
2303 (lua_class_propfunc_t
) luaA_client_set_icon
);
2304 luaA_class_add_property(&client_class
, A_TK_OPACITY
,
2305 (lua_class_propfunc_t
) luaA_client_set_opacity
,
2306 (lua_class_propfunc_t
) luaA_client_get_opacity
,
2307 (lua_class_propfunc_t
) luaA_client_set_opacity
);
2308 luaA_class_add_property(&client_class
, A_TK_ONTOP
,
2309 (lua_class_propfunc_t
) luaA_client_set_ontop
,
2310 (lua_class_propfunc_t
) luaA_client_get_ontop
,
2311 (lua_class_propfunc_t
) luaA_client_set_ontop
);
2312 luaA_class_add_property(&client_class
, A_TK_ABOVE
,
2313 (lua_class_propfunc_t
) luaA_client_set_above
,
2314 (lua_class_propfunc_t
) luaA_client_get_above
,
2315 (lua_class_propfunc_t
) luaA_client_set_above
);
2316 luaA_class_add_property(&client_class
, A_TK_BELOW
,
2317 (lua_class_propfunc_t
) luaA_client_set_below
,
2318 (lua_class_propfunc_t
) luaA_client_get_below
,
2319 (lua_class_propfunc_t
) luaA_client_set_below
);
2320 luaA_class_add_property(&client_class
, A_TK_STICKY
,
2321 (lua_class_propfunc_t
) luaA_client_set_sticky
,
2322 (lua_class_propfunc_t
) luaA_client_get_sticky
,
2323 (lua_class_propfunc_t
) luaA_client_set_sticky
);
2324 luaA_class_add_property(&client_class
, A_TK_SIZE_HINTS_HONOR
,
2325 (lua_class_propfunc_t
) luaA_client_set_size_hints_honor
,
2326 (lua_class_propfunc_t
) luaA_client_get_size_hints_honor
,
2327 (lua_class_propfunc_t
) luaA_client_set_size_hints_honor
);
2328 luaA_class_add_property(&client_class
, A_TK_BORDER_WIDTH
,
2329 (lua_class_propfunc_t
) luaA_client_set_border_width
,
2330 (lua_class_propfunc_t
) luaA_client_get_border_width
,
2331 (lua_class_propfunc_t
) luaA_client_set_border_width
);
2332 luaA_class_add_property(&client_class
, A_TK_BORDER_COLOR
,
2333 (lua_class_propfunc_t
) luaA_client_set_border_color
,
2334 (lua_class_propfunc_t
) luaA_client_get_border_color
,
2335 (lua_class_propfunc_t
) luaA_client_set_border_color
);
2336 luaA_class_add_property(&client_class
, A_TK_TITLEBAR
,
2337 (lua_class_propfunc_t
) luaA_client_set_titlebar
,
2338 (lua_class_propfunc_t
) luaA_client_get_titlebar
,
2339 (lua_class_propfunc_t
) luaA_client_set_titlebar
);
2340 luaA_class_add_property(&client_class
, A_TK_URGENT
,
2341 (lua_class_propfunc_t
) luaA_client_set_urgent
,
2342 (lua_class_propfunc_t
) luaA_client_get_urgent
,
2343 (lua_class_propfunc_t
) luaA_client_set_urgent
);
2344 luaA_class_add_property(&client_class
, A_TK_SIZE_HINTS
,
2346 (lua_class_propfunc_t
) luaA_client_get_size_hints
,
2350 // vim: filetype=c:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:encoding=utf-8:textwidth=80