1 /* Configurations.c- misc. configurations
3 * WPrefs - Window Maker Preferences Program
5 * Copyright (c) 1998 Alfredo K. Kojima
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,
26 typedef struct _Panel
{
32 CallbackRec callbacks
;
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
);
87 showData(_Panel
*panel
)
89 WMPerformButtonClick(panel
->icoB
[GetSpeedForKey("IconSlideSpeed")]);
91 WMPerformButtonClick(panel
->shaB
[GetSpeedForKey("ShadeSpeed")]);
93 if (GetBoolForKey("NewStyle")) {
94 WMPerformButtonClick(panel
->newsB
);
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
);
116 updateLabel(WMWidget
*self
, void *data
)
118 WMSlider
*sPtr
= (WMSlider
*)self
;
119 _Panel
*panel
= (_Panel
*)data
;
123 fl
= WMGetSliderValue(sPtr
);
125 panel
->cmapSize
= (int)fl
;
127 sprintf(buffer
, "%i", panel
->cmapSize
*panel
->cmapSize
*panel
->cmapSize
);
128 WMSetLabelText(panel
->dithL
, buffer
);
133 createImages(WMScreen
*scr
, RContext
*rc
, RImage
*xis
, char *file
,
134 WMPixmap
**icon1
, WMPixmap
**icon2
)
138 RColor gray
= {0xae,0xaa,0xae};
143 path
= LocateImage(file
);
148 *icon1
= WMCreatePixmapFromFile(scr
, path
);
150 wwarning(_("could not load icon %s"), path
);
154 icon
= RLoadImage(rc
, path
, 0);
156 wwarning(_("could not load icon %s"), path
);
160 RCombineImageWithColor(icon
, &gray
);
162 RCombineImagesWithOpaqueness(icon
, xis
, 180);
163 if (!(*icon2
= WMCreatePixmapFromRImage(scr
, icon
, 127)))
164 wwarning(_("could not process icon %s:"), file
, RMessageForError(RErrorCode
));
173 createPanel(Panel
*p
)
175 _Panel
*panel
= (_Panel
*)p
;
176 WMScreen
*scr
= WMWidgetScreen(panel
->win
);
178 WMPixmap
*icon
, *altIcon
;
181 RContext
*rc
= WMScreenRContext(scr
);
182 WMFont
*font
= WMSystemFontOfSize(scr
, 10);
185 path
= LocateImage(ARQUIVO_XIS
);
187 xis
= RLoadImage(rc
, path
, 0);
189 wwarning(_("could not load image file %s"), 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
);
225 WMGroupButtons(panel
->icoB
[0], panel
->icoB
[i
]);
227 WMSetButtonBordered(panel
->shaB
[i
], False
);
228 WMSetButtonImagePosition(panel
->shaB
[i
], WIPImageOnly
);
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
);
236 icon
= WMCreatePixmapFromFile(scr
, path
);
238 WMSetButtonImage(panel
->icoB
[i
], icon
);
239 WMSetButtonImage(panel
->shaB
[i
], icon
);
240 WMReleasePixmap(icon
);
242 wwarning(_("could not load icon file %s"), path
);
246 path
= LocateImage(buf2
);
248 icon
= WMCreatePixmapFromFile(scr
, path
);
250 WMSetButtonAltImage(panel
->icoB
[i
], icon
);
251 WMSetButtonAltImage(panel
->shaB
[i
], icon
);
252 WMReleasePixmap(icon
);
254 wwarning(_("could not load icon file %s"), path
);
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
);
283 RImage
*image
, *scaled
;
285 image
= RLoadImage(WMScreenRContext(scr
), path
, 0);
288 scaled
= RScaleImage(image
, 61, 61);
289 icon
= WMCreatePixmapFromRImage(scr
, scaled
, 128);
290 RDestroyImage(scaled
);
292 WMSetButtonImage(panel
->smoB
, icon
);
293 WMReleasePixmap(icon
);
296 scaled
= RSmoothScaleImage(image
, 61, 61);
297 icon
= WMCreatePixmapFromRImage(scr
, scaled
, 128);
298 RDestroyImage(scaled
);
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
);
321 icon
= WMCreatePixmapFromFile(scr
, path
);
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
);
334 icon
= WMCreatePixmapFromFile(scr
, path
);
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
);
360 WMSetButtonImage(panel
->animB
, icon
);
361 WMReleasePixmap(icon
);
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
);
379 WMSetButtonImage(panel
->supB
, icon
);
380 WMReleasePixmap(icon
);
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
);
400 WMSetButtonImage(panel
->sfxB
, icon
);
401 WMReleasePixmap(icon
);
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 **********/
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
);
481 storeData(_Panel
*panel
)
485 for (i
=0; i
<5; i
++) {
486 if (WMGetButtonSelected(panel
->icoB
[i
]))
489 SetSpeedForKey(i
, "IconSlideSpeed");
492 for (i
=0; i
<5; i
++) {
493 if (WMGetButtonSelected(panel
->shaB
[i
]))
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");
513 InitConfigurations(WMScreen
*scr
, WMWindow
*win
)
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.");
528 panel
->callbacks
.createWidgets
= createPanel
;
529 panel
->callbacks
.updateDomain
= storeData
;
531 AddSection(panel
, ICON_FILE
);