added arbitrary window levels
[wmaker-crm.git] / WPrefs.app / Configurations.c
blobd3c6770088fe5ef2b5a1b3e6e2890e98947d04d5
1 /* Configurations.c- misc. configurations
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;
28 char *sectionName;
30 char *description;
32 CallbackRec callbacks;
34 WMWindow *win;
36 WMFrame *icoF;
37 WMButton *icoB[5];
39 WMFrame *shaF;
40 WMButton *shaB[5];
42 WMFrame *titlF;
43 WMButton *oldsB;
44 WMButton *newsB;
46 WMFrame *animF;
47 WMButton *animB;
48 WMButton *supB;
49 WMButton *sfxB;
50 WMLabel *noteL;
52 WMFrame *smoF;
53 WMButton *smoB;
55 WMFrame *dithF;
56 WMButton *dithB;
57 WMSlider *dithS;
58 WMLabel *dithL;
59 WMLabel *dith1L;
60 WMLabel *dith2L;
62 int cmapSize;
63 } _Panel;
67 #define ICON_FILE "configs"
69 #define OLDS_IMAGE "oldstyle"
70 #define NEWS_IMAGE "newstyle"
72 #define ANIM_IMAGE "animations"
73 #define SUPERF_IMAGE "moreanim"
74 #define SOUND_IMAGE "sound"
75 #define SMOOTH_IMAGE "smooth"
77 #define SPEED_IMAGE "speed%i"
78 #define SPEED_IMAGE_S "speed%is"
80 #define ARQUIVO_XIS "xis"
83 static void updateLabel(WMWidget *self, void *data);
86 static void
87 showData(_Panel *panel)
89 WMPerformButtonClick(panel->icoB[GetSpeedForKey("IconSlideSpeed")]);
91 WMPerformButtonClick(panel->shaB[GetSpeedForKey("ShadeSpeed")]);
93 if (GetBoolForKey("NewStyle")) {
94 WMPerformButtonClick(panel->newsB);
95 } else {
96 WMPerformButtonClick(panel->oldsB);
99 WMSetButtonSelected(panel->animB, !GetBoolForKey("DisableAnimations"));
101 WMSetButtonSelected(panel->supB, GetBoolForKey("Superfluous"));
103 WMSetButtonSelected(panel->sfxB, !GetBoolForKey("DisableSound"));
105 WMSetButtonSelected(panel->smoB, GetBoolForKey("SmoothWorkspaceBack"));
107 WMSetButtonSelected(panel->dithB, GetBoolForKey("DisableDithering"));
109 WMSetSliderValue(panel->dithS, GetIntegerForKey("ColormapSize"));
111 updateLabel(panel->dithS, panel);
115 static void
116 updateLabel(WMWidget *self, void *data)
118 WMSlider *sPtr = (WMSlider*)self;
119 _Panel *panel = (_Panel*)data;
120 char buffer[64];
121 float fl;
123 fl = WMGetSliderValue(sPtr);
125 panel->cmapSize = (int)fl;
127 sprintf(buffer, "%i", panel->cmapSize*panel->cmapSize*panel->cmapSize);
128 WMSetLabelText(panel->dithL, buffer);
132 static void
133 createImages(WMScreen *scr, RContext *rc, RImage *xis, char *file,
134 WMPixmap **icon1, WMPixmap **icon2)
136 RImage *icon;
137 char *path;
138 RColor gray = {0xae,0xaa,0xae};
140 *icon1 = NULL;
141 *icon2 = NULL;
143 path = LocateImage(file);
144 if (!path) {
145 return;
148 *icon1 = WMCreatePixmapFromFile(scr, path);
149 if (!*icon1) {
150 wwarning(_("could not load icon %s"), path);
151 free(path);
152 return;
154 icon = RLoadImage(rc, path, 0);
155 if (!icon) {
156 wwarning(_("could not load icon %s"), path);
157 free(path);
158 return;
160 RCombineImageWithColor(icon, &gray);
161 if (xis) {
162 RCombineImagesWithOpaqueness(icon, xis, 180);
163 if (!(*icon2 = WMCreatePixmapFromRImage(scr, icon, 127)))
164 wwarning(_("could not process icon %s:"), file, RMessageForError(RErrorCode));
166 RDestroyImage(icon);
167 free(path);
172 static void
173 createPanel(Panel *p)
175 _Panel *panel = (_Panel*)p;
176 WMScreen *scr = WMWidgetScreen(panel->win);
177 char *buf1, *buf2;
178 WMPixmap *icon, *altIcon;
179 RImage *xis = NULL;
180 int i;
181 RContext *rc = WMScreenRContext(scr);
182 WMFont *font = WMSystemFontOfSize(scr, 10);
183 char *path;
185 path = LocateImage(ARQUIVO_XIS);
186 if (path) {
187 xis = RLoadImage(rc, path, 0);
188 if (!xis) {
189 wwarning(_("could not load image file %s"), path);
191 free(path);
194 panel->frame = WMCreateFrame(panel->win);
195 WMResizeWidget(panel->frame, FRAME_WIDTH, FRAME_HEIGHT);
196 WMMoveWidget(panel->frame, FRAME_LEFT, FRAME_TOP);
198 /*********** Icon Slide Speed **********/
200 panel->icoF = WMCreateFrame(panel->frame);
201 WMResizeWidget(panel->icoF, 230, 45);
202 WMMoveWidget(panel->icoF, 15, 10);
203 WMSetFrameTitle(panel->icoF, _("Icon Slide Speed"));
205 /*********** Shade Animation Speed **********/
206 panel->shaF = WMCreateFrame(panel->frame);
207 WMResizeWidget(panel->shaF, 230, 45);
208 WMMoveWidget(panel->shaF, 15, 60);
209 WMSetFrameTitle(panel->shaF, _("Shade Animation Speed"));
212 buf1 = wmalloc(strlen(SPEED_IMAGE)+1);
213 buf2 = wmalloc(strlen(SPEED_IMAGE_S)+1);
215 for (i = 0; i < 5; i++) {
216 panel->icoB[i] = WMCreateCustomButton(panel->icoF, WBBStateChangeMask);
217 panel->shaB[i] = WMCreateCustomButton(panel->shaF, WBBStateChangeMask);
218 WMResizeWidget(panel->icoB[i], 40, 24);
219 WMMoveWidget(panel->icoB[i], 10+(40*i), 15);
220 WMResizeWidget(panel->shaB[i], 40, 24);
221 WMMoveWidget(panel->shaB[i], 10+(40*i), 15);
222 WMSetButtonBordered(panel->icoB[i], False);
223 WMSetButtonImagePosition(panel->icoB[i], WIPImageOnly);
224 if (i > 0) {
225 WMGroupButtons(panel->icoB[0], panel->icoB[i]);
227 WMSetButtonBordered(panel->shaB[i], False);
228 WMSetButtonImagePosition(panel->shaB[i], WIPImageOnly);
229 if (i > 0) {
230 WMGroupButtons(panel->shaB[0], panel->shaB[i]);
232 sprintf(buf1, SPEED_IMAGE, i);
233 sprintf(buf2, SPEED_IMAGE_S, i);
234 path = LocateImage(buf1);
235 if (path) {
236 icon = WMCreatePixmapFromFile(scr, path);
237 if (icon) {
238 WMSetButtonImage(panel->icoB[i], icon);
239 WMSetButtonImage(panel->shaB[i], icon);
240 WMReleasePixmap(icon);
241 } else {
242 wwarning(_("could not load icon file %s"), path);
244 free(path);
246 path = LocateImage(buf2);
247 if (path) {
248 icon = WMCreatePixmapFromFile(scr, path);
249 if (icon) {
250 WMSetButtonAltImage(panel->icoB[i], icon);
251 WMSetButtonAltImage(panel->shaB[i], icon);
252 WMReleasePixmap(icon);
253 } else {
254 wwarning(_("could not load icon file %s"), path);
256 free(path);
259 free(buf1);
260 free(buf2);
263 WMMapSubwidgets(panel->icoF);
264 WMMapSubwidgets(panel->shaF);
267 /***************** Smoothed Scaling *****************/
268 panel->smoF = WMCreateFrame(panel->frame);
269 WMResizeWidget(panel->smoF, 115, 110);
270 WMMoveWidget(panel->smoF, 18, 115);
271 WMSetFrameTitle(panel->smoF, _("Smooth Scaling"));
272 WMSetBalloonTextForView(_("Smooth scaled background images, neutralizing\n"
273 "the `pixelization' effect. This will slow\n"
274 "down loading of background images considerably."),
275 WMWidgetView(panel->smoF));
277 panel->smoB = WMCreateButton(panel->smoF, WBTToggle);
278 WMResizeWidget(panel->smoB, 64, 64);
279 WMMoveWidget(panel->smoB, 25, 25);
280 WMSetButtonImagePosition(panel->smoB, WIPImageOnly);
281 path = LocateImage(SMOOTH_IMAGE);
282 if (path) {
283 RImage *image, *scaled;
285 image = RLoadImage(WMScreenRContext(scr), path, 0);
286 free(path);
288 scaled = RScaleImage(image, 61, 61);
289 icon = WMCreatePixmapFromRImage(scr, scaled, 128);
290 RDestroyImage(scaled);
291 if (icon) {
292 WMSetButtonImage(panel->smoB, icon);
293 WMReleasePixmap(icon);
296 scaled = RSmoothScaleImage(image, 61, 61);
297 icon = WMCreatePixmapFromRImage(scr, scaled, 128);
298 RDestroyImage(scaled);
299 if (icon) {
300 WMSetButtonAltImage(panel->smoB, icon);
301 WMReleasePixmap(icon);
304 RDestroyImage(image);
307 WMMapSubwidgets(panel->smoF);
309 /***************** Titlebar Style Size ****************/
310 panel->titlF = WMCreateFrame(panel->frame);
311 WMResizeWidget(panel->titlF, 105, 110);
312 WMMoveWidget(panel->titlF, 140, 115);
313 WMSetFrameTitle(panel->titlF, _("Titlebar Style"));
315 panel->newsB = WMCreateButton(panel->titlF, WBTOnOff);
316 WMResizeWidget(panel->newsB, 74, 40);
317 WMMoveWidget(panel->newsB, 15, 20);
318 WMSetButtonImagePosition(panel->newsB, WIPImageOnly);
319 path = LocateImage(NEWS_IMAGE);
320 if (path) {
321 icon = WMCreatePixmapFromFile(scr, path);
322 if (icon) {
323 WMSetButtonImage(panel->newsB, icon);
324 WMReleasePixmap(icon);
328 panel->oldsB = WMCreateButton(panel->titlF, WBTOnOff);
329 WMResizeWidget(panel->oldsB, 74, 40);
330 WMMoveWidget(panel->oldsB, 15, 60);
331 WMSetButtonImagePosition(panel->oldsB, WIPImageOnly);
332 path = LocateImage(OLDS_IMAGE);
333 if (path) {
334 icon = WMCreatePixmapFromFile(scr, path);
335 if (icon) {
336 WMSetButtonImage(panel->oldsB, icon);
337 WMReleasePixmap(icon);
341 WMGroupButtons(panel->newsB, panel->oldsB);
343 WMMapSubwidgets(panel->titlF);
345 /**************** Features ******************/
347 panel->animF = WMCreateFrame(panel->frame);
348 WMResizeWidget(panel->animF, 255, 115);
349 WMMoveWidget(panel->animF, 255, 10);
350 WMSetFrameTitle(panel->animF, _("Animations and Sound"));
352 panel->animB = WMCreateButton(panel->animF, WBTToggle);
353 WMResizeWidget(panel->animB, 64, 64);
354 WMMoveWidget(panel->animB, 15, 20);
355 WMSetButtonFont(panel->animB, font);
356 WMSetButtonText(panel->animB, _("Animations"));
357 WMSetButtonImagePosition(panel->animB, WIPAbove);
358 createImages(scr, rc, xis, ANIM_IMAGE, &altIcon, &icon);
359 if (icon) {
360 WMSetButtonImage(panel->animB, icon);
361 WMReleasePixmap(icon);
363 if (altIcon) {
364 WMSetButtonAltImage(panel->animB, altIcon);
365 WMReleasePixmap(altIcon);
367 WMSetBalloonTextForView(_("Disable/enable animations such as those shown\n"
368 "for window miniaturization, shading etc."),
369 WMWidgetView(panel->animB));
371 panel->supB = WMCreateButton(panel->animF, WBTToggle);
372 WMResizeWidget(panel->supB, 64, 64);
373 WMMoveWidget(panel->supB, 95, 20);
374 WMSetButtonFont(panel->supB, font);
375 WMSetButtonText(panel->supB, _("Superfluous"));
376 WMSetButtonImagePosition(panel->supB, WIPAbove);
377 createImages(scr, rc, xis, SUPERF_IMAGE, &altIcon, &icon);
378 if (icon) {
379 WMSetButtonImage(panel->supB, icon);
380 WMReleasePixmap(icon);
382 if (altIcon) {
383 WMSetButtonAltImage(panel->supB, altIcon);
384 WMReleasePixmap(altIcon);
386 WMSetBalloonTextForView(_("Disable/enable `superfluous' features and\n"
387 "animations. These include the `ghosting' of the\n"
388 "dock when it's being moved to the another side\n"
389 "and the explosion animation for undocked icons."),
390 WMWidgetView(panel->supB));
392 panel->sfxB = WMCreateButton(panel->animF, WBTToggle);
393 WMResizeWidget(panel->sfxB, 64, 64);
394 WMMoveWidget(panel->sfxB, 175, 20);
395 WMSetButtonFont(panel->sfxB, font);
396 WMSetButtonText(panel->sfxB, _("Sounds"));
397 WMSetButtonImagePosition(panel->sfxB, WIPAbove);
398 createImages(scr, rc, xis, SOUND_IMAGE, &altIcon, &icon);
399 if (icon) {
400 WMSetButtonImage(panel->sfxB, icon);
401 WMReleasePixmap(icon);
403 if (altIcon) {
404 WMSetButtonAltImage(panel->sfxB, altIcon);
405 WMReleasePixmap(altIcon);
407 WMSetBalloonTextForView(_("Disable/enable support for sound effects played\n"
408 "for actions like shading and closing a window.\n"
409 "You will need a module distributed separately\n"
410 "for this. You can get it at:\n"
411 "http://www.frontiernet.net/~southgat/wmsound"),
412 WMWidgetView(panel->sfxB));
414 panel->noteL = WMCreateLabel(panel->animF);
415 WMResizeWidget(panel->noteL, 235, 28);
416 WMMoveWidget(panel->noteL, 10, 85);
417 WMSetLabelFont(panel->noteL, font);
418 WMSetLabelText(panel->noteL, _("Note: sound requires a module distributed separately"));
420 WMMapSubwidgets(panel->animF);
422 /*********** Dithering **********/
423 panel->cmapSize = 4;
425 panel->dithF = WMCreateFrame(panel->frame);
426 WMResizeWidget(panel->dithF, 255, 95);
427 WMMoveWidget(panel->dithF, 255, 130);
428 WMSetFrameTitle(panel->dithF, _("Dithering colormap for 8bpp"));
430 WMSetBalloonTextForView(_("Number of colors to reserve for Window Maker\n"
431 "on displays that support only 8bpp (PseudoColor)."),
432 WMWidgetView(panel->dithF));
434 panel->dithB = WMCreateSwitchButton(panel->dithF);
435 WMResizeWidget(panel->dithB, 235, 32);
436 WMMoveWidget(panel->dithB, 15, 15);
437 WMSetButtonText(panel->dithB, _("Disable dithering in any visual/depth"));
439 panel->dithL = WMCreateLabel(panel->dithF);
440 WMResizeWidget(panel->dithL, 75, 16);
441 WMMoveWidget(panel->dithL, 90, 50);
442 WMSetLabelTextAlignment(panel->dithL, WACenter);
443 WMSetLabelText(panel->dithL, "64");
445 panel->dithS = WMCreateSlider(panel->dithF);
446 WMResizeWidget(panel->dithS, 95, 16);
447 WMMoveWidget(panel->dithS, 80, 65);
448 WMSetSliderMinValue(panel->dithS, 2);
449 WMSetSliderMaxValue(panel->dithS, 6);
450 WMSetSliderContinuous(panel->dithS, True);
451 WMSetSliderAction(panel->dithS, updateLabel, panel);
453 panel->dith1L = WMCreateLabel(panel->dithF);
454 WMResizeWidget(panel->dith1L, 70, 35);
455 WMMoveWidget(panel->dith1L, 5, 50);
456 WMSetLabelTextAlignment(panel->dith1L, WACenter);
457 WMSetLabelFont(panel->dith1L, font);
458 WMSetLabelText(panel->dith1L, _("More colors for applications"));
460 panel->dith2L = WMCreateLabel(panel->dithF);
461 WMResizeWidget(panel->dith2L, 70, 35);
462 WMMoveWidget(panel->dith2L, 180, 50);
463 WMSetLabelTextAlignment(panel->dith2L, WACenter);
464 WMSetLabelFont(panel->dith2L, font);
465 WMSetLabelText(panel->dith2L, _("More colors for WindowMaker"));
467 WMMapSubwidgets(panel->dithF);
469 WMRealizeWidget(panel->frame);
470 WMMapSubwidgets(panel->frame);
472 if (xis)
473 RDestroyImage(xis);
474 WMReleaseFont(font);
476 showData(panel);
480 static void
481 storeData(_Panel *panel)
483 int i;
485 for (i=0; i<5; i++) {
486 if (WMGetButtonSelected(panel->icoB[i]))
487 break;
489 SetSpeedForKey(i, "IconSlideSpeed");
492 for (i=0; i<5; i++) {
493 if (WMGetButtonSelected(panel->shaB[i]))
494 break;
496 SetSpeedForKey(i, "ShadeSpeed");
498 SetBoolForKey(WMGetButtonSelected(panel->newsB), "NewStyle");
500 SetBoolForKey(!WMGetButtonSelected(panel->animB), "DisableAnimations");
501 SetBoolForKey(WMGetButtonSelected(panel->supB), "Superfluous");
502 SetBoolForKey(!WMGetButtonSelected(panel->sfxB), "DisableSound");
504 SetBoolForKey(WMGetButtonSelected(panel->smoB), "SmoothWorkspaceBack");
506 SetBoolForKey(WMGetButtonSelected(panel->dithB), "DisableDithering");
507 SetIntegerForKey(WMGetSliderValue(panel->dithS), "ColormapSize");
512 Panel*
513 InitConfigurations(WMScreen *scr, WMWindow *win)
515 _Panel *panel;
517 panel = wmalloc(sizeof(_Panel));
518 memset(panel, 0, sizeof(_Panel));
520 panel->sectionName = _("Other Configurations");
522 panel->description = _("Animation speeds, titlebar styles, various option\n"
523 "toggling and number of colors to reserve for\n"
524 "Window Maker in 8bit displays.");
526 panel->win = win;
528 panel->callbacks.createWidgets = createPanel;
529 panel->callbacks.updateDomain = storeData;
531 AddSection(panel, ICON_FILE);
533 return panel;