Update to Window Maker 0.50.2
[wmaker-crm.git] / WPrefs.app / WindowHandling.c
blobf62dc1ffc8ece508fc22d86955917f7ef257b34e
1 /* WindowHandling.c- options for handling windows
2 *
3 * WPrefs - Window Maker Preferences Program
4 *
5 * Copyright (c) 1998 Alfredo K. Kojima
6 *
7 * This program is free software; you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published by
9 * the Free Software Foundation; either version 2 of the License, or
10 * (at your option) any later version.
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
17 * You should have received a copy of the GNU General Public License
18 * along with this program; if not, write to the Free Software
19 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
20 * USA.
24 #include "WPrefs.h"
26 typedef struct _Panel {
27 WMFrame *frame;
29 char *sectionName;
31 CallbackRec callbacks;
33 WMWindow *win;
35 WMFrame *placF;
36 WMPopUpButton *placP;
37 WMLabel *porigL;
38 WMLabel *porigvL;
39 WMFrame *porigF;
40 WMLabel *porigW;
42 WMSlider *vsli;
43 WMSlider *hsli;
45 WMFrame *maxiF;
46 WMButton *miconB;
47 WMButton *mdockB;
49 WMFrame *opaqF;
50 WMButton *opaqB;
52 WMFrame *tranF;
53 WMButton *tranB;
54 } _Panel;
57 #define ICON_FILE "whandling"
59 #define OPAQUE_MOVE_PIXMAP "opaque"
61 #define NON_OPAQUE_MOVE_PIXMAP "nonopaque"
64 #define THUMB_SIZE 16
67 static char *placements[] = {
68 "auto",
69 "random",
70 "manual",
71 "cascade"
75 static void
76 sliderCallback(WMWidget *w, void *data)
78 _Panel *panel = (_Panel*)data;
79 int x, y, rx, ry;
80 char buffer[64];
81 int swidth = WMGetSliderMaxValue(panel->hsli);
82 int sheight = WMGetSliderMaxValue(panel->vsli);
84 x = WMGetSliderValue(panel->hsli);
85 y = WMGetSliderValue(panel->vsli);
87 rx = x*(WMWidgetWidth(panel->porigF)-3)/swidth+2;
88 ry = y*(WMWidgetHeight(panel->porigF)-3)/sheight+2;
89 WMMoveWidget(panel->porigW, rx, ry);
91 sprintf(buffer, "(%i,%i)", x, y);
92 WMSetLabelText(panel->porigvL, buffer);
96 static int
97 getPlacement(char *str)
99 if (strcasecmp(str, "auto")==0 || strcasecmp(str, "smart")==0)
100 return 0;
101 else if (strcasecmp(str, "random")==0)
102 return 1;
103 else if (strcasecmp(str, "manual")==0)
104 return 2;
105 else if (strcasecmp(str, "cascade")==0)
106 return 3;
107 else
108 wwarning(_("bad option value %s in WindowPlacement. Using default value"),
109 str);
110 return 0;
114 static void
115 showData(_Panel *panel)
117 char *str;
118 proplist_t arr;
119 int x, y;
121 str = GetStringForKey("WindowPlacement");
123 WMSetPopUpButtonSelectedItem(panel->placP, getPlacement(str));
125 arr = GetObjectForKey("WindowPlaceOrigin");
127 x = 0;
128 y = 0;
129 if (arr && (!PLIsArray(arr) || PLGetNumberOfElements(arr)!=2)) {
130 wwarning(_("invalid data in option WindowPlaceOrigin. Using default (0,0)"));
131 } else {
132 if (arr) {
133 x = atoi(PLGetString(PLGetArrayElement(arr, 0)));
134 y = atoi(PLGetString(PLGetArrayElement(arr, 1)));
138 WMSetSliderValue(panel->hsli, x);
139 WMSetSliderValue(panel->vsli, y);
141 sliderCallback(NULL, panel);
143 WMSetButtonSelected(panel->tranB, GetBoolForKey("OnTopTransients"));
145 WMSetButtonSelected(panel->opaqB, GetBoolForKey("OpaqueMove"));
147 WMSetButtonSelected(panel->miconB, GetBoolForKey("NoWindowOverIcons"));
149 WMSetButtonSelected(panel->mdockB, GetBoolForKey("NoWindowOverDock"));
153 static void
154 storeData(_Panel *panel)
156 proplist_t arr;
157 char x[16], y[16];
159 SetBoolForKey(WMGetButtonSelected(panel->miconB), "NoWindowOverIcons");
160 SetBoolForKey(WMGetButtonSelected(panel->mdockB), "NoWindowOverDock");
161 SetBoolForKey(WMGetButtonSelected(panel->opaqB), "OpaqueMove");
162 SetBoolForKey(WMGetButtonSelected(panel->tranB), "OnTopTransients");
163 SetStringForKey(placements[WMGetPopUpButtonSelectedItem(panel->placP)],
164 "WindowPlacement");
165 sprintf(x, "%i", WMGetSliderValue(panel->hsli));
166 sprintf(y, "%i", WMGetSliderValue(panel->vsli));
167 arr = PLMakeArrayFromElements(PLMakeString(x), PLMakeString(y), NULL);
168 SetObjectForKey(arr, "WindowPlaceOrigin");
169 PLRelease(arr);
173 static void
174 createPanel(Panel *p)
176 _Panel *panel = (Panel*)p;
177 WMScreen *scr = WMWidgetScreen(panel->win);
178 WMColor *color;
179 WMPixmap *pixmap;
180 int width, height;
181 int swidth, sheight;
182 char *path;
184 panel->frame = WMCreateFrame(panel->win);
185 WMResizeWidget(panel->frame, FRAME_WIDTH, FRAME_HEIGHT);
186 WMMoveWidget(panel->frame, FRAME_LEFT, FRAME_TOP);
188 /************** Window Placement ***************/
189 panel->placF = WMCreateFrame(panel->frame);
190 WMResizeWidget(panel->placF, 270, 150);
191 WMMoveWidget(panel->placF, 20, 15);
192 WMSetFrameTitle(panel->placF, _("Window Placement"));
194 panel->placP = WMCreatePopUpButton(panel->placF);
195 WMResizeWidget(panel->placP, 195, 20);
196 WMMoveWidget(panel->placP, 35, 20);
197 WMAddPopUpButtonItem(panel->placP, _("Automatic"));
198 WMAddPopUpButtonItem(panel->placP, _("Random"));
199 WMAddPopUpButtonItem(panel->placP, _("Manual"));
200 WMAddPopUpButtonItem(panel->placP, _("Cascade"));
202 panel->porigL = WMCreateLabel(panel->placF);
203 WMResizeWidget(panel->porigL, 118, 32);
204 WMMoveWidget(panel->porigL, 5, 60);
205 WMSetLabelTextAlignment(panel->porigL, WACenter);
206 WMSetLabelText(panel->porigL, _("Placement Origin"));
208 panel->porigvL = WMCreateLabel(panel->placF);
209 WMResizeWidget(panel->porigvL, 70, 20);
210 WMMoveWidget(panel->porigvL, 25, 95);
211 WMSetLabelTextAlignment(panel->porigvL, WACenter);
213 color = WMCreateRGBColor(scr, 0x5100, 0x5100, 0x7100, True);
214 panel->porigF = WMCreateFrame(panel->placF);
215 WMSetWidgetBackgroundColor(panel->porigF, color);
216 WMReleaseColor(color);
217 WMSetFrameRelief(panel->porigF, WRSunken);
219 swidth = WidthOfScreen(DefaultScreenOfDisplay(WMScreenDisplay(scr)));
220 sheight = HeightOfScreen(DefaultScreenOfDisplay(WMScreenDisplay(scr)));
222 if (120*sheight/swidth < 80*swidth/sheight) {
223 width = 80*swidth/sheight;
224 height = 80;
225 } else {
226 height = 120*sheight/swidth;
227 width = 120;
229 WMResizeWidget(panel->porigF, width, height);
230 WMMoveWidget(panel->porigF, 125+(120-width)/2, 45+(80-height)/2);
232 panel->porigW = WMCreateLabel(panel->porigF);
233 WMResizeWidget(panel->porigW, THUMB_SIZE, THUMB_SIZE);
234 WMMoveWidget(panel->porigW, 2, 2);
235 WMSetLabelRelief(panel->porigW, WRRaised);
238 panel->hsli = WMCreateSlider(panel->placF);
239 WMResizeWidget(panel->hsli, width, 12);
240 WMMoveWidget(panel->hsli, 125+(120-width)/2, 45+(80-height)/2+height+2);
241 WMSetSliderAction(panel->hsli, sliderCallback, panel);
242 WMSetSliderMinValue(panel->hsli, 0);
243 WMSetSliderMaxValue(panel->hsli, swidth);
245 panel->vsli = WMCreateSlider(panel->placF);
246 WMResizeWidget(panel->vsli, 12, height);
247 WMMoveWidget(panel->vsli, 125+(120-width)/2+width+2, 45+(80-height)/2);
248 WMSetSliderAction(panel->vsli, sliderCallback, panel);
249 WMSetSliderMinValue(panel->vsli, 0);
250 WMSetSliderMaxValue(panel->vsli, sheight);
252 WMMapSubwidgets(panel->porigF);
254 WMMapSubwidgets(panel->placF);
256 /************** Opaque Move ***************/
257 panel->opaqF = WMCreateFrame(panel->frame);
258 WMMoveWidget(panel->opaqF, 300, 15);
259 WMResizeWidget(panel->opaqF, 205, 125);
260 WMSetFrameTitle(panel->opaqF, _("Opaque Move"));
262 panel->opaqB = WMCreateButton(panel->opaqF, WBTToggle);
263 WMResizeWidget(panel->opaqB, 64, 64);
264 WMMoveWidget(panel->opaqB, 70, 35);
265 WMSetButtonImagePosition(panel->opaqB, WIPImageOnly);
267 path = LocateImage(NON_OPAQUE_MOVE_PIXMAP);
268 if (path) {
269 pixmap = WMCreatePixmapFromFile(scr, path);
270 if (pixmap) {
271 WMSetButtonImage(panel->opaqB, pixmap);
272 WMReleasePixmap(pixmap);
273 } else {
274 wwarning(_("could not load icon %s"), path);
276 free(path);
279 path = LocateImage(OPAQUE_MOVE_PIXMAP);
280 if (path) {
281 pixmap = WMCreatePixmapFromFile(scr, path);
282 if (pixmap) {
283 WMSetButtonAltImage(panel->opaqB, pixmap);
284 WMReleasePixmap(pixmap);
285 } else {
286 wwarning(_("could not load icon %s"), path);
288 free(path);
290 WMMapSubwidgets(panel->opaqF);
292 /**************** Account for Icon/Dock ***************/
293 panel->maxiF = WMCreateFrame(panel->frame);
294 WMResizeWidget(panel->maxiF, 205, 70);
295 WMMoveWidget(panel->maxiF, 300, 145);
296 WMSetFrameTitle(panel->maxiF, _("When maximizing..."));
298 panel->miconB = WMCreateSwitchButton(panel->maxiF);
299 WMResizeWidget(panel->miconB, 185, 20);
300 WMMoveWidget(panel->miconB, 10, 15);
301 WMSetButtonText(panel->miconB, _("...do not resize over icons"));
303 panel->mdockB = WMCreateSwitchButton(panel->maxiF);
304 WMResizeWidget(panel->mdockB, 185, 20);
305 WMMoveWidget(panel->mdockB, 10, 40);
307 WMSetButtonText(panel->mdockB, _("...do not resize over dock"));
309 WMMapSubwidgets(panel->maxiF);
311 /**************** Transients On Top ****************/
313 panel->tranF = WMCreateFrame(panel->frame);
314 WMResizeWidget(panel->tranF, 270, 40);
315 WMMoveWidget(panel->tranF, 20, 175);
317 panel->tranB = WMCreateSwitchButton(panel->tranF);
318 WMMoveWidget(panel->tranB, 10, 5);
319 WMResizeWidget(panel->tranB, 250, 30);
320 WMSetButtonText(panel->tranB, _("Keep transients above their owners"));
322 WMMapSubwidgets(panel->tranF);
324 WMRealizeWidget(panel->frame);
325 WMMapSubwidgets(panel->frame);
327 /* show the config data */
328 showData(panel);
332 static void
333 undo(_Panel *panel)
335 showData(panel);
339 Panel*
340 InitWindowHandling(WMScreen *scr, WMWindow *win)
342 _Panel *panel;
344 panel = wmalloc(sizeof(_Panel));
345 memset(panel, 0, sizeof(_Panel));
347 panel->sectionName = _("Window Handling Preferences");
349 panel->win = win;
351 panel->callbacks.createWidgets = createPanel;
352 panel->callbacks.updateDomain = storeData;
353 panel->callbacks.undoChanges = undo;
355 AddSection(panel, ICON_FILE);
357 return panel;