1 /* dialog.c - dialog windows for internal use
3 * Window Maker window manager
5 * Copyright (c) 1997, 1998 Alfredo K. Kojima
6 * Copyright (c) 1999 Dan Pascu
8 * This program is free software; you can redistribute it and/or modify
9 * it under the terms of the GNU General Public License as published by
10 * the Free Software Foundation; either version 2 of the License, or
11 * (at your option) any later version.
13 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details.
18 * You should have received a copy of the GNU General Public License
19 * along with this program; if not, write to the Free Software
20 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
27 #include <X11/Xutil.h>
28 #include <X11/keysym.h>
34 #include <sys/types.h>
41 #include <sys/signal.h>
46 #define PATH_MAX DEFAULT_PATH_MAX
49 #include "WindowMaker.h"
61 extern WPreferences wPreferences
;
66 wMessageDialog(WScreen
*scr
, char *title
, char *message
,
67 char *defBtn
, char *altBtn
, char *othBtn
)
74 panel
= WMCreateAlertPanel(scr
->wmscreen
, NULL
, title
, message
,
75 defBtn
, altBtn
, othBtn
);
77 parent
= XCreateSimpleWindow(dpy
, scr
->root_win
, 0, 0, 400, 180, 0, 0, 0);
79 XReparentWindow(dpy
, WMWidgetXID(panel
->win
), parent
, 0, 0);
81 wwin
= wManageInternalWindow(scr
, parent
, None
, NULL
,
82 (scr
->scr_width
- 400)/2,
83 (scr
->scr_height
- 180)/2, 400, 180);
84 wwin
->client_leader
= WMWidgetXID(panel
->win
);
86 WMMapWidget(panel
->win
);
90 while (!panel
->done
) {
93 WMNextEvent(dpy
, &event
);
94 WMHandleEvent(&event
);
97 result
= panel
->result
;
99 WMUnmapWidget(panel
->win
);
101 wUnmanageWindow(wwin
, False
, False
);
103 WMDestroyAlertPanel(panel
);
105 XDestroyWindow(dpy
, parent
);
113 wInputDialog(WScreen
*scr
, char *title
, char *message
, char **text
)
121 panel
= WMCreateInputPanel(scr
->wmscreen
, NULL
, title
, message
, *text
,
122 _("OK"), _("Cancel"));
125 parent
= XCreateSimpleWindow(dpy
, scr
->root_win
, 0, 0, 320, 160, 0, 0, 0);
126 XSelectInput(dpy
, parent
, KeyPressMask
|KeyReleaseMask
);
128 XReparentWindow(dpy
, WMWidgetXID(panel
->win
), parent
, 0, 0);
130 wwin
= wManageInternalWindow(scr
, parent
, None
, NULL
,
131 (scr
->scr_width
- 320)/2,
132 (scr
->scr_height
- 160)/2, 320, 160);
134 wwin
->client_leader
= WMWidgetXID(panel
->win
);
136 WMMapWidget(panel
->win
);
140 while (!panel
->done
) {
143 WMNextEvent(dpy
, &event
);
144 WMHandleEvent(&event
);
147 if (panel
->result
== WAPRDefault
)
148 result
= WMGetTextFieldText(panel
->text
);
152 wUnmanageWindow(wwin
, False
, False
);
154 WMDestroyInputPanel(panel
);
156 XDestroyWindow(dpy
, parent
);
171 *****************************************************************
172 * Icon Selection Panel
173 *****************************************************************
176 typedef struct IconPanel
{
189 WMButton
*previewButton
;
194 WMTextField
*fileField
;
197 WMButton
*cancelButton
;
199 WMButton
*chooseButton
;
209 listPixmaps(WScreen
*scr
, WMList
*lPtr
, char *path
)
211 struct dirent
*dentry
;
213 char pbuf
[PATH_MAX
+16];
215 IconPanel
*panel
= WMGetHangedData(lPtr
);
217 panel
->preview
= False
;
219 apath
= wexpandpath(path
);
220 dir
= opendir(apath
);
225 tmp
= _("Could not open directory ");
226 msg
= wmalloc(strlen(tmp
)+strlen(path
)+6);
230 wMessageDialog(scr
, _("Error"), msg
, _("OK"), NULL
, NULL
);
236 /* list contents in the column */
237 while ((dentry
= readdir(dir
))) {
240 if (strcmp(dentry
->d_name
, ".")==0 ||
241 strcmp(dentry
->d_name
, "..")==0)
246 strcat(pbuf
, dentry
->d_name
);
248 if (stat(pbuf
, &statb
)<0)
251 if (statb
.st_mode
& (S_IRUSR
|S_IRGRP
|S_IROTH
)
252 && statb
.st_mode
& (S_IFREG
|S_IFLNK
)) {
253 WMAddListItem(lPtr
, dentry
->d_name
);
256 WMSortListItems(lPtr
);
260 panel
->preview
= True
;
266 setViewedImage(IconPanel
*panel
, char *file
)
275 pixmap
= WMCreateBlendedPixmapFromFile(WMWidgetScreen(panel
->win
),
278 WMSetButtonEnabled(panel
->okButton
, False
);
280 WMSetLabelText(panel
->iconView
, _("Could not load image file "));
282 WMSetLabelImage(panel
->iconView
, NULL
);
284 WMSetButtonEnabled(panel
->okButton
, True
);
286 WMSetLabelText(panel
->iconView
, NULL
);
287 WMSetLabelImage(panel
->iconView
, pixmap
);
288 WMReleasePixmap(pixmap
);
294 listCallback(void *self
, void *data
)
296 WMList
*lPtr
= (WMList
*)self
;
297 IconPanel
*panel
= (IconPanel
*)data
;
300 if (lPtr
==panel
->dirList
) {
301 path
= WMGetListSelectedItem(lPtr
)->text
;
303 WMSetTextFieldText(panel
->fileField
, path
);
305 WMSetLabelImage(panel
->iconView
, NULL
);
307 WMSetButtonEnabled(panel
->okButton
, False
);
309 WMClearList(panel
->iconList
);
310 listPixmaps(panel
->scr
, panel
->iconList
, path
);
312 char *tmp
, *iconFile
;
314 path
= WMGetListSelectedItem(panel
->dirList
)->text
;
315 tmp
= wexpandpath(path
);
317 iconFile
= WMGetListSelectedItem(panel
->iconList
)->text
;
319 path
= wmalloc(strlen(tmp
)+strlen(iconFile
)+4);
322 strcat(path
, iconFile
);
324 WMSetTextFieldText(panel
->fileField
, path
);
325 setViewedImage(panel
, path
);
332 listIconPaths(WMList
*lPtr
)
337 paths
= wstrdup(wPreferences
.icon_path
);
339 path
= strtok(paths
, ":");
344 tmp
= wexpandpath(path
);
345 /* do not sort, because the order implies the order of
346 * directories searched */
347 if (access(tmp
, X_OK
)==0)
348 WMAddListItem(lPtr
, path
);
350 } while ((path
=strtok(NULL
, ":"))!=NULL
);
357 drawIconProc(WMList
*lPtr
, int index
, Drawable d
, char *text
,
358 int state
, WMRect
*rect
)
360 IconPanel
*panel
= WMGetHangedData(lPtr
);
361 GC gc
= panel
->scr
->draw_gc
;
362 GC copygc
= panel
->scr
->copy_gc
;
363 char *buffer
, *dirfile
;
368 WMScreen
*wmscr
=WMWidgetScreen(panel
->win
);
371 if(!panel
->preview
) return;
373 width
= rect
->size
.width
;
375 blackcolor
= WMBlackColor(wmscr
);
376 whitecolor
= WMWhiteColor(wmscr
);
378 dirfile
= wexpandpath(WMGetListSelectedItem(panel
->dirList
)->text
);
379 buffer
= wmalloc(strlen(dirfile
)+strlen(text
)+4);
380 sprintf(buffer
, "%s/%s", dirfile
, text
);
383 pixmap
= WMCreatePixmapFromFile(WMWidgetScreen(panel
->win
), buffer
);
386 WMRemoveListItem(lPtr
, index
);
390 XClearArea(dpy
, d
, rect
->pos
.x
, rect
->pos
.y
, width
, rect
->size
.height
,
392 XSetClipMask(dpy
, gc
, None
);
394 XDrawRectangle(dpy, d, WMColorGC(whitecolor), rect->pos.x + 5,
395 rect->pos.y +5, width - 10, 54);
397 XDrawLine(dpy
, d
, WMColorGC(whitecolor
), rect
->pos
.x
,
398 rect
->pos
.y
+rect
->size
.height
-1, rect
->pos
.x
+width
,
399 rect
->pos
.y
+rect
->size
.height
-1);
402 if (state
&WLDSSelected
) {
403 XFillRectangle(dpy
, d
, WMColorGC(whitecolor
), rect
->pos
.x
,
404 rect
->pos
.y
, width
, rect
->size
.height
);
407 size
= WMGetPixmapSize(pixmap
);
409 XSetClipMask(dpy
, copygc
, WMGetPixmapMaskXID(pixmap
));
410 XSetClipOrigin(dpy
, copygc
, rect
->pos
.x
+ (width
-size
.width
)/2,
412 XCopyArea(dpy
, WMGetPixmapXID(pixmap
), d
, copygc
, 0, 0,
413 size
.width
>100?100:size
.width
, size
.height
>64?64:size
.height
,
414 rect
->pos
.x
+ (width
-size
.width
)/2, rect
->pos
.y
+2);
418 int fheight
= WMFontHeight(panel
->normalfont
);
419 int tlen
= strlen(text
);
420 int twidth
= WMWidthOfString(panel
->normalfont
, text
, tlen
);
423 ofx
= rect
->pos
.x
+ (width
- twidth
)/2;
424 ofy
= rect
->pos
.y
+ 64 - fheight
;
428 WMDrawString(wmscr
, d
, WMColorGC(whitecolor
),
429 panel
->normalfont
, ofx
+i
, ofy
+j
,
432 WMDrawString(wmscr
, d
, WMColorGC(blackcolor
), panel
->normalfont
,
433 ofx
, ofy
, text
, tlen
);
436 WMReleasePixmap(pixmap
);
437 /* I hope it is better to do not use cache / on my box it is fast nuff */
440 WMReleaseColor(blackcolor
);
441 WMReleaseColor(whitecolor
);
446 buttonCallback(void *self
, void *clientData
)
448 WMButton
*bPtr
= (WMButton
*)self
;
449 IconPanel
*panel
= (IconPanel
*)clientData
;
452 if (bPtr
==panel
->okButton
) {
454 panel
->result
= True
;
455 } else if (bPtr
==panel
->cancelButton
) {
457 panel
->result
= False
;
458 } else if (bPtr
==panel
->previewButton
) {
459 /**** Previewer ****/
460 WMSetButtonEnabled(bPtr
, False
);
461 WMSetListUserDrawItemHeight(panel
->iconList
, 68);
462 WMSetListUserDrawProc(panel
->iconList
, drawIconProc
);
463 WMRedisplayWidget(panel
->iconList
);
464 /* for draw proc to access screen/gc */
465 /*** end preview ***/
468 else if (bPtr
==panel
->chooseButton
) {
471 op
= WMCreateOpenPanel(WMWidgetScreen(bPtr
));
473 if (WMRunModalFilePanelForDirectory(op
, NULL
, "/usr/local", NULL
, NULL
)) {
475 path
= WMGetFilePanelFile(op
);
476 WMSetTextFieldText(panel
->fileField
, path
);
477 setViewedImage(panel
, path
);
480 WMDestroyFilePanel(op
);
487 wIconChooserDialog(WScreen
*scr
, char **file
, char *instance
, char *class)
495 panel
= wmalloc(sizeof(IconPanel
));
496 memset(panel
, 0, sizeof(IconPanel
));
500 panel
->win
= WMCreateWindow(scr
->wmscreen
, "iconChooser");
501 WMResizeWidget(panel
->win
, 450, 280);
503 boldFont
= WMBoldSystemFontOfSize(scr
->wmscreen
, 12);
504 panel
->normalfont
= WMSystemFontOfSize(WMWidgetScreen(panel
->win
), 12);
506 panel
->dirLabel
= WMCreateLabel(panel
->win
);
507 WMResizeWidget(panel
->dirLabel
, 200, 20);
508 WMMoveWidget(panel
->dirLabel
, 10, 7);
509 WMSetLabelText(panel
->dirLabel
, _("Directories"));
510 WMSetLabelFont(panel
->dirLabel
, boldFont
);
511 WMSetLabelTextAlignment(panel
->dirLabel
, WACenter
);
513 WMSetLabelRelief(panel
->dirLabel
, WRSunken
);
515 panel
->iconLabel
= WMCreateLabel(panel
->win
);
516 WMResizeWidget(panel
->iconLabel
, 140, 20);
517 WMMoveWidget(panel
->iconLabel
, 215, 7);
518 WMSetLabelText(panel
->iconLabel
, _("Icons"));
519 WMSetLabelFont(panel
->iconLabel
, boldFont
);
520 WMSetLabelTextAlignment(panel
->iconLabel
, WACenter
);
522 WMReleaseFont(boldFont
);
524 color
= WMWhiteColor(scr
->wmscreen
);
525 WMSetLabelTextColor(panel
->dirLabel
, color
);
526 WMSetLabelTextColor(panel
->iconLabel
, color
);
527 WMReleaseColor(color
);
529 color
= WMDarkGrayColor(scr
->wmscreen
);
530 WMSetWidgetBackgroundColor(panel
->iconLabel
, color
);
531 WMSetWidgetBackgroundColor(panel
->dirLabel
, color
);
532 WMReleaseColor(color
);
534 WMSetLabelRelief(panel
->iconLabel
, WRSunken
);
536 panel
->dirList
= WMCreateList(panel
->win
);
537 WMResizeWidget(panel
->dirList
, 200, 170);
538 WMMoveWidget(panel
->dirList
, 10, 30);
539 WMSetListAction(panel
->dirList
, listCallback
, panel
);
541 panel
->iconList
= WMCreateList(panel
->win
);
542 WMResizeWidget(panel
->iconList
, 140, 170);
543 WMMoveWidget(panel
->iconList
, 215, 30);
544 WMSetListAction(panel
->iconList
, listCallback
, panel
);
546 WMHangData(panel
->iconList
,panel
);
548 panel
->previewButton
= WMCreateCommandButton(panel
->win
);
549 WMResizeWidget(panel
->previewButton
, 75, 26);
550 WMMoveWidget(panel
->previewButton
, 365, 130);
551 WMSetButtonText(panel
->previewButton
, _("Preview"));
552 WMSetButtonAction(panel
->previewButton
, buttonCallback
, panel
);
554 panel
->iconView
= WMCreateLabel(panel
->win
);
555 WMResizeWidget(panel
->iconView
, 75, 75);
556 WMMoveWidget(panel
->iconView
, 365, 40);
557 WMSetLabelImagePosition(panel
->iconView
, WIPOverlaps
);
558 WMSetLabelRelief(panel
->iconView
, WRSunken
);
559 WMSetLabelTextAlignment(panel
->iconView
, WACenter
);
561 panel
->fileLabel
= WMCreateLabel(panel
->win
);
562 WMResizeWidget(panel
->fileLabel
, 80, 20);
563 WMMoveWidget(panel
->fileLabel
, 10, 210);
564 WMSetLabelText(panel
->fileLabel
, _("File Name:"));
566 panel
->fileField
= WMCreateTextField(panel
->win
);
567 WMResizeWidget(panel
->fileField
, 345, 20);
568 WMMoveWidget(panel
->fileField
, 95, 210);
569 WMSetTextFieldEditable(panel
->fileField
, False
);
571 panel
->okButton
= WMCreateCommandButton(panel
->win
);
572 WMResizeWidget(panel
->okButton
, 80, 26);
573 WMMoveWidget(panel
->okButton
, 360, 240);
574 WMSetButtonText(panel
->okButton
, _("OK"));
575 WMSetButtonEnabled(panel
->okButton
, False
);
576 WMSetButtonAction(panel
->okButton
, buttonCallback
, panel
);
578 panel
->cancelButton
= WMCreateCommandButton(panel
->win
);
579 WMResizeWidget(panel
->cancelButton
, 80, 26);
580 WMMoveWidget(panel
->cancelButton
, 270, 240);
581 WMSetButtonText(panel
->cancelButton
, _("Cancel"));
582 WMSetButtonAction(panel
->cancelButton
, buttonCallback
, panel
);
584 panel
->chooseButton
= WMCreateCommandButton(panel
->win
);
585 WMResizeWidget(panel
->chooseButton
, 110, 26);
586 WMMoveWidget(panel
->chooseButton
, 150, 240);
587 WMSetButtonText(panel
->chooseButton
, _("Choose File"));
588 WMSetButtonAction(panel
->chooseButton
, buttonCallback
, panel
);
590 WMRealizeWidget(panel
->win
);
591 WMMapSubwidgets(panel
->win
);
593 parent
= XCreateSimpleWindow(dpy
, scr
->root_win
, 0, 0, 450, 280, 0, 0, 0);
595 XReparentWindow(dpy
, WMWidgetXID(panel
->win
), parent
, 0, 0);
600 tmp
= wmalloc((instance
? strlen(instance
) : 0)
601 + (class ? strlen(class) : 0) + 32);
603 if (tmp
&& (instance
|| class))
604 sprintf(tmp
, "%s [%s.%s]", _("Icon Chooser"), instance
, class);
606 strcpy(tmp
, _("Icon Chooser"));
608 wwin
= wManageInternalWindow(scr
, parent
, None
, tmp
,
609 (scr
->scr_width
- 450)/2,
610 (scr
->scr_height
- 280)/2, 450, 280);
614 /* put icon paths in the list */
615 listIconPaths(panel
->dirList
);
617 WMMapWidget(panel
->win
);
621 while (!panel
->done
) {
624 WMNextEvent(dpy
, &event
);
625 WMHandleEvent(&event
);
629 char *defaultPath
, *wantedPath
;
631 /* check if the file the user selected is not the one that
632 * would be loaded by default with the current search path */
633 *file
= WMGetListSelectedItem(panel
->iconList
)->text
;
638 defaultPath
= FindImage(wPreferences
.icon_path
, *file
);
639 wantedPath
= WMGetTextFieldText(panel
->fileField
);
640 /* if the file is not the default, use full path */
641 if (strcmp(wantedPath
, defaultPath
)!=0) {
644 *file
= wstrdup(*file
);
653 WMReleaseFont(panel
->normalfont
);
655 WMUnmapWidget(panel
->win
);
657 WMDestroyWidget(panel
->win
);
659 wUnmanageWindow(wwin
, False
, False
);
663 XDestroyWindow(dpy
, parent
);
665 return panel
->result
;
670 ***********************************************************************
672 ***********************************************************************
706 #define COPYRIGHT_TEXT \
707 "Copyright \xa9 1997~1999 Alfredo K. Kojima <kojima@windowmaker.org>\n"\
708 "Copyright \xa9 1998,1999 Dan Pascu <dan@windowmaker.org>"
712 static InfoPanel
*thePanel
= NULL
;
715 destroyInfoPanel(WCoreWindow
*foo
, void *data
, XEvent
*event
)
718 if (thePanel
->timer
) {
719 WMDeleteTimerHandler(thePanel
->timer
);
721 if (thePanel
->oldPix
) {
722 WMReleasePixmap(thePanel
->oldPix
);
724 if (thePanel
->icon
) {
725 RDestroyImage(thePanel
->icon
);
728 RDestroyImage(thePanel
->pic
);
730 #endif /* SILLYNESS */
731 WMUnmapWidget(thePanel
);
733 wUnmanageWindow(thePanel
->wwin
, False
, False
);
735 WMDestroyWidget(thePanel
->win
);
744 renderText(WMScreen
*scr
, char *text
, char *font
, RColor
*from
, RColor
*to
)
746 WMPixmap
*wpix
= NULL
;
749 RContext
*rc
= WMScreenRContext(scr
);
750 XFontStruct
*f
= NULL
;
754 f
= XLoadQueryFont(dpy
, font
);
758 w
= XTextWidth(f
, text
, strlen(text
));
759 h
= f
->ascent
+f
->descent
;
761 mask
= XCreatePixmap(dpy
, rc
->drawable
, w
, h
, 1);
762 gc
= XCreateGC(dpy
, mask
, 0, NULL
);
763 XSetForeground(dpy
, gc
, 0);
764 XSetFont(dpy
, gc
, f
->fid
);
765 XFillRectangle(dpy
, mask
, gc
, 0, 0, w
, h
);
767 XSetForeground(dpy
, gc
, 1);
768 XDrawString(dpy
, mask
, gc
, 0, f
->ascent
, text
, strlen(text
));
769 XSetLineAttributes(dpy
, gc
, 3, LineSolid
, CapRound
, JoinMiter
);
770 XDrawLine(dpy
, mask
, gc
, 0, h
-2, w
, h
-2);
772 grad
= XCreatePixmap(dpy
, rc
->drawable
, w
, h
, rc
->depth
);
776 color
= WMBlackColor(scr
);
777 XFillRectangle(dpy
, grad
, WMColorGC(color
), 0, 0, w
, h
);
778 WMReleaseColor(color
);
781 wpix
= WMCreatePixmapFromXPixmaps(scr
, grad
, mask
, w
, h
, rc
->depth
);
792 extern WMPixmap
*DoXThing();
793 extern Bool
InitXThing();
796 logoPushCallback(void *data
)
798 InfoPanel
*panel
= (InfoPanel
*)data
;
802 static int jingobeu
[] = {
803 329, 150, -1, 100, 329, 150, -1, 100, 329, 300, -1, 250,
804 329, 150, -1, 100, 329, 150, -1, 100, 329, 300, -1, 250,
805 329, 150, 392, 150, 261, 150, 293, 150, 329, 400, -1, 400, 0
813 if(jingobeu
[panel
->x
-1]==0){panel
->x
=-1;}else if(jingobeu
[panel
->x
814 -1]<0){panel
->x
++;c
=jingobeu
[panel
->x
-1]/50;panel
->x
++;}else if(c
==0){
815 kc
.bell_pitch
=jingobeu
[panel
->x
-1];panel
->x
++;kc
.bell_percent
=50;c
=
816 jingobeu
[panel
->x
-1]/50;kc
.bell_duration
=jingobeu
[panel
->x
-1];panel
->x
++;
817 XChangeKeyboardControl(dpy
,KBBellPitch
|KBBellDuration
|KBBellPercent
,&kc
);
818 XBell(dpy
,50);XFlush(dpy
);}else{c
--;}}
819 if (!(panel
->cycle
% 4)) {
822 p
= DoXThing(panel
->wwin
);
823 WMSetLabelImage(panel
->logoL
, p
);
825 } else if (panel
->cycle
< 30) {
829 image
= RCloneImage(panel
->icon
);
830 RCombineImagesWithOpaqueness(image
, panel
->pic
, panel
->cycle
*255/30);
831 pix
= WMCreatePixmapFromRImage(panel
->scr
->wmscreen
, image
, 128);
832 RDestroyImage(image
);
833 WMSetLabelImage(panel
->logoL
, pix
);
834 WMReleasePixmap(pix
);
837 i
= panel
->cycle
%200;
839 len
= strlen(panel
->str
);
841 strncpy(buffer
, panel
->str
, i
<len
? i
: len
);
843 memset(&buffer
[len
], ' ', i
-len
);
845 strncpy(buffer
, panel
->str
, i
<len
? i
: len
);
847 memset(&buffer
[len
], ' ', i
-len
);
849 WMSetLabelText(panel
->versionL
, buffer
);
851 panel
->timer
= WMAddTimerHandler(50, logoPushCallback
, panel
);
857 handleLogoPush(XEvent
*event
, void *data
)
859 InfoPanel
*panel
= (InfoPanel
*)data
;
860 static int broken
= 0;
861 static int clicks
= 0;
862 static char *pic_data
[] = {
922 " ....XoO+@##+O$%.... ",
923 " ...%X&*========-;;:o... ",
924 " ...>.>,<122222222222134@... ",
925 " ..>5678912222222222222220q%.. ",
926 " ..$.&-w2222222222222222222er>.. ",
927 " ..O.t31222222222222222222222y4>.. ",
928 " ...O5u3222222222222222222222222yri... ",
929 " ..>p&a22222222222222222222222222wso.. ",
930 " ..ids91222222222222222222222222222wfi.. ",
931 " ..X.7w222222wgs-w2222222213=g0222222<hi.. ",
932 " ..Xuj2222222<@X5=222222229k@l:022222y4i.. ",
933 " .Xdz22222222*X%.s22222222axo%$-222222<c>.. ",
934 " ..o7y22222222v...r222222223hX.i82222221si.. ",
935 "..io*222222222&...u22222222yt..%*22222220:%. ",
936 "..>k02222222227...f222222222v..X=222222229t. ",
937 "..dz12222222220ui:y2222222223d%qw222222221g. ",
938 ".%vw222222222221y2222222222219*y2222222222wd.",
939 ".X;2222222222222222222222222222222222222222b.",
940 ".i*2222222222222222222222222222222222222222v.",
941 ".i*2222222222222222222222222222222222222222;.",
942 ".i*22222222222222222222222222222222222222228.",
943 ".>*2222222222222222222222222222222222222222=.",
944 ".i*22222222222222222222222222222222222222228.",
945 ".i*2222222222222222222222222222222222222222;.",
946 ".X*222222222222222222222222222222we12222222r.",
947 ".Xs12222222w3aw22222222222222222y8s0222222wk.",
948 ".Xq02222222a,na22222222222222222zm6zwy2222gi.",
949 "..>*22222y<:Xcj22222222222222222-o$k;;02228..",
950 "..i7y2220rhX.:y22222222222222222jtiXd,a220,..",
951 " .X@z222a,do%kj2222222222222222wMX5q;gw228%..",
952 " ..58222wagsh6ry222222222222221;>Of0w222y:...",
953 " ...:e2222218mdz22222222222222a&$vw222220@...",
954 " ...O-122222y:.u02222222222229q$uj222221r... ",
955 " ..%&a1222223&573w2222222219NOxz122221z>... ",
956 " ...t3222221-l$nr8ay1222yzbo,=12222w-5... ",
957 " ..X:022222w-k+>o,7s**s7xOn=12221<f5... ",
958 " ..o:9222221j8:&Bl>>>>ihv<12221=dX... ",
959 " ..Xb9122222109g-****;<y22221zn%... ",
960 " ..X&801222222222222222222w-h.... ",
961 " ...o:=022222222222222221=lX... ",
962 " ..X@:;3w2222222222210fO... ",
963 " ...XX&v8<30000003-N@... ",
964 " .....XmnbN:q&Bo.... ",
966 static char *msgs
[] = {
968 "Repent! Focus follow mouse users will burn in the flames of hell!"
973 if (!panel
->timer
&& !broken
&& clicks
> 0) {
980 file
= wDefaultGetIconFile(panel
->scr
, "Logo", "WMPanel", False
);
986 path
= FindImage(wPreferences
.icon_path
, file
);
992 panel
->icon
= RLoadImage(panel
->scr
->rcontext
, path
, 0);
1000 panel
->pic
= RGetImageFromXPMData(panel
->scr
->rcontext
, pic_data
);
1001 if (!panel
->pic
|| panel
->icon
->width
!=panel
->pic
->width
1002 || panel
->icon
->height
!=panel
->pic
->height
) {
1004 RDestroyImage(panel
->icon
);
1007 RDestroyImage(panel
->pic
);
1019 RCombineImageWithColor(panel
->icon
, &color
);
1020 RCombineImageWithColor(panel
->pic
, &color
);
1024 panel
->str
= msgs
[rand()%(sizeof(msgs
)/sizeof(char*))];
1026 panel
->timer
= WMAddTimerHandler(50, logoPushCallback
, panel
);
1028 panel
->oldPix
= WMRetainPixmap(WMGetLabelImage(panel
->logoL
));
1029 } else if (panel
->timer
) {
1034 WMSetLabelImage(panel
->logoL
, panel
->oldPix
);
1035 WMReleasePixmap(panel
->oldPix
);
1036 panel
->oldPix
= NULL
;
1038 WMDeleteTimerHandler(panel
->timer
);
1039 panel
->timer
= NULL
;
1041 sprintf(version
, "Version %s", VERSION
);
1042 WMSetLabelText(panel
->versionL
, version
);
1047 while (XCheckTypedWindowEvent(dpy
, WMWidgetXID(panel
->versionL
),
1051 #endif /* SILLYNESS */
1055 wShowInfoPanel(WScreen
*scr
)
1065 RColor color1
, color2
;
1079 if (thePanel
->scr
== scr
) {
1080 wRaiseFrame(thePanel
->wwin
->frame
->core
);
1081 wSetFocusTo(scr
, thePanel
->wwin
);
1086 panel
= wmalloc(sizeof(InfoPanel
));
1087 memset(panel
, 0, sizeof(InfoPanel
));
1091 panel
->win
= WMCreateWindow(scr
->wmscreen
, "info");
1092 WMResizeWidget(panel
->win
, 382, 230);
1094 logo
= WMGetApplicationIconImage(scr
->wmscreen
);
1096 size
= WMGetPixmapSize(logo
);
1097 panel
->logoL
= WMCreateLabel(panel
->win
);
1098 WMResizeWidget(panel
->logoL
, 64, 64);
1099 WMMoveWidget(panel
->logoL
, 30, 20);
1100 WMSetLabelImagePosition(panel
->logoL
, WIPImageOnly
);
1101 WMSetLabelImage(panel
->logoL
, logo
);
1103 WMCreateEventHandler(WMWidgetView(panel
->logoL
), ButtonPressMask
,
1104 handleLogoPush
, panel
);
1108 panel
->name1L
= WMCreateLabel(panel
->win
);
1109 WMResizeWidget(panel
->name1L
, 240, 30);
1110 WMMoveWidget(panel
->name1L
, 100, 30);
1115 color2
.green
= 0x50;
1117 logo
= renderText(scr
->wmscreen
, "GNU Window Maker",
1118 "-*-utopia-*-r-*-*-25-*", &color1
, &color2
);
1120 WMSetLabelImagePosition(panel
->name1L
, WIPImageOnly
);
1121 WMSetLabelImage(panel
->name1L
, logo
);
1122 WMReleasePixmap(logo
);
1124 font
= WMBoldSystemFontOfSize(scr
->wmscreen
, 20);
1126 WMSetLabelFont(panel
->name1L
, font
);
1127 WMReleaseFont(font
);
1129 WMSetLabelTextAlignment(panel
->name1L
, WACenter
);
1130 WMSetLabelText(panel
->name1L
, "GNU Window Maker");
1133 panel
->name2L
= WMCreateLabel(panel
->win
);
1134 WMResizeWidget(panel
->name2L
, 240, 24);
1135 WMMoveWidget(panel
->name2L
, 100, 60);
1136 font
= WMBoldSystemFontOfSize(scr
->wmscreen
, 18);
1138 WMSetLabelFont(panel
->name2L
, font
);
1139 WMReleaseFont(font
);
1142 WMSetLabelTextAlignment(panel
->name2L
, WACenter
);
1143 WMSetLabelText(panel
->name2L
, "Window Manager for X");
1146 sprintf(version
, "Version %s", VERSION
);
1147 panel
->versionL
= WMCreateLabel(panel
->win
);
1148 WMResizeWidget(panel
->versionL
, 310, 16);
1149 WMMoveWidget(panel
->versionL
, 30, 95);
1150 WMSetLabelTextAlignment(panel
->versionL
, WARight
);
1151 WMSetLabelText(panel
->versionL
, version
);
1152 WMSetLabelWraps(panel
->versionL
, False
);
1154 panel
->copyrL
= WMCreateLabel(panel
->win
);
1155 WMResizeWidget(panel
->copyrL
, 340, 40);
1156 WMMoveWidget(panel
->copyrL
, 15, 185);
1157 WMSetLabelTextAlignment(panel
->copyrL
, WALeft
);
1158 WMSetLabelText(panel
->copyrL
, COPYRIGHT_TEXT
);
1159 /* we want the (c) character in the helvetica font */
1160 font
= WMCreateNormalFont(scr
->wmscreen
, HELVETICA10_FONT
);
1162 WMSetLabelFont(panel
->copyrL
, font
);
1165 switch (scr
->w_depth
) {
1167 strcpy(version
, "32 thousand");
1170 strcpy(version
, "64 thousand");
1174 strcpy(version
, "16 million");
1177 sprintf(version
, "%d", 1<<scr
->w_depth
);
1181 sprintf(buffer
, "Using visual 0x%x: %s %ibpp (%s colors)\n",
1182 (unsigned)scr
->w_visual
->visualid
,
1183 visuals
[scr
->w_visual
->class], scr
->w_depth
, version
);
1185 strcat(buffer
, "Supported image formats: ");
1186 strl
= RSupportedFileFormats();
1187 for (i
=0; strl
[i
]!=NULL
; i
++) {
1188 strcat(buffer
, strl
[i
]);
1189 strcat(buffer
, " ");
1192 strcat(buffer
, "\nAdditional Support For: ");
1205 list
[j
++] = "GNOME";
1211 list
[j
++] = "Sound";
1215 for (i
= 0; i
< j
; i
++) {
1218 strcat(buf
, " and ");
1222 strcat(buf
, list
[i
]);
1224 strcat(buffer
, buf
);
1228 panel
->infoL
= WMCreateLabel(panel
->win
);
1229 WMResizeWidget(panel
->infoL
, 350, 75);
1230 WMMoveWidget(panel
->infoL
, 15, 115);
1231 WMSetLabelText(panel
->infoL
, buffer
);
1233 WMSetLabelFont(panel
->infoL
, font
);
1234 WMReleaseFont(font
);
1238 WMRealizeWidget(panel
->win
);
1239 WMMapSubwidgets(panel
->win
);
1241 parent
= XCreateSimpleWindow(dpy
, scr
->root_win
, 0, 0, 382, 230, 0, 0, 0);
1243 XReparentWindow(dpy
, WMWidgetXID(panel
->win
), parent
, 0, 0);
1245 WMMapWidget(panel
->win
);
1247 wwin
= wManageInternalWindow(scr
, parent
, None
, "Info",
1248 (scr
->scr_width
- 382)/2,
1249 (scr
->scr_height
- 230)/2, 382, 230);
1251 WSETUFLAG(wwin
, no_closable
, 0);
1252 WSETUFLAG(wwin
, no_close_button
, 0);
1253 #ifdef XKB_BUTTON_HINT
1254 wFrameWindowHideButton(wwin
->frame
, WFF_LANGUAGE_BUTTON
);
1256 wWindowUpdateButtonImages(wwin
);
1257 wFrameWindowShowButton(wwin
->frame
, WFF_RIGHT_BUTTON
);
1258 wwin
->frame
->on_click_right
= destroyInfoPanel
;
1266 if (InitXThing(panel
->scr
)) {
1267 panel
->timer
= WMAddTimerHandler(100, logoPushCallback
, panel
);
1270 panel
->str
= "Merry Christmas!";
1271 panel
->oldPix
= WMRetainPixmap(WMGetLabelImage(panel
->logoL
));
1278 ***********************************************************************
1280 ***********************************************************************
1295 #define LICENSE_TEXT \
1296 " Window Maker is free software; you can redistribute it and/or modify "\
1297 "it under the terms of the GNU General Public License as published "\
1298 "by the Free Software Foundation; either version 2 of the License, "\
1299 "or (at your option) any later version.\n\n\n"\
1300 " Window Maker is distributed in the hope that it will be useful, but "\
1301 "WITHOUT ANY WARRANTY; without even the implied warranty of "\
1302 "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU "\
1303 "General Public License for more details.\n\n\n"\
1304 " You should have received a copy of the GNU General Public License "\
1305 "along with this program; if not, write to the Free Software "\
1306 "Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA "\
1310 static LegalPanel
*legalPanel
= NULL
;
1313 destroyLegalPanel(WCoreWindow
*foo
, void *data
, XEvent
*event
)
1315 WMUnmapWidget(legalPanel
->win
);
1317 WMDestroyWidget(legalPanel
->win
);
1319 wUnmanageWindow(legalPanel
->wwin
, False
, False
);
1328 wShowLegalPanel(WScreen
*scr
)
1335 if (legalPanel
->scr
== scr
) {
1336 wRaiseFrame(legalPanel
->wwin
->frame
->core
);
1337 wSetFocusTo(scr
, legalPanel
->wwin
);
1342 panel
= wmalloc(sizeof(LegalPanel
));
1346 panel
->win
= WMCreateWindow(scr
->wmscreen
, "legal");
1347 WMResizeWidget(panel
->win
, 420, 250);
1350 panel
->licenseL
= WMCreateLabel(panel
->win
);
1351 WMResizeWidget(panel
->licenseL
, 400, 230);
1352 WMMoveWidget(panel
->licenseL
, 10, 10);
1353 WMSetLabelTextAlignment(panel
->licenseL
, WALeft
);
1354 WMSetLabelText(panel
->licenseL
, LICENSE_TEXT
);
1355 WMSetLabelRelief(panel
->licenseL
, WRGroove
);
1357 WMRealizeWidget(panel
->win
);
1358 WMMapSubwidgets(panel
->win
);
1360 parent
= XCreateSimpleWindow(dpy
, scr
->root_win
, 0, 0, 420, 250, 0, 0, 0);
1362 XReparentWindow(dpy
, WMWidgetXID(panel
->win
), parent
, 0, 0);
1364 wwin
= wManageInternalWindow(scr
, parent
, None
, "Legal",
1365 (scr
->scr_width
- 420)/2,
1366 (scr
->scr_height
- 250)/2, 420, 250);
1368 WSETUFLAG(wwin
, no_closable
, 0);
1369 WSETUFLAG(wwin
, no_close_button
, 0);
1370 wWindowUpdateButtonImages(wwin
);
1371 wFrameWindowShowButton(wwin
->frame
, WFF_RIGHT_BUTTON
);
1372 #ifdef XKB_BUTTON_HINT
1373 wFrameWindowHideButton(wwin
->frame
, WFF_LANGUAGE_BUTTON
);
1375 wwin
->frame
->on_click_right
= destroyLegalPanel
;
1379 WMMapWidget(panel
->win
);
1388 ***********************************************************************
1389 * Crashing Dialog Panel
1390 ***********************************************************************
1393 extern WDDomain
*WDWindowAttributes
;
1396 typedef struct _CrashPanel
{
1397 WMWindow
*win
; /* main window */
1399 WMLabel
*iconL
; /* application icon */
1400 WMLabel
*nameL
; /* title of panel */
1402 WMFrame
*sepF
; /* separator frame */
1404 WMLabel
*noteL
; /* Title of note */
1405 WMLabel
*note2L
; /* body of note with what happened */
1407 WMFrame
*whatF
; /* "what to do next" frame */
1408 WMPopUpButton
*whatP
; /* action selection popup button */
1410 WMButton
*okB
; /* ok button */
1412 Bool done
; /* if finished with this dialog */
1413 int action
; /* what to do after */
1421 handleKeyPress(XEvent
*event
, void *clientData
)
1423 CrashPanel
*panel
= (CrashPanel
*)clientData
;
1425 if (event
->xkey
.keycode
== panel
->retKey
) {
1426 WMPerformButtonClick(panel
->okB
);
1432 okButtonCallback(void *self
, void *clientData
)
1434 CrashPanel
*panel
= (CrashPanel
*)clientData
;
1441 setCrashAction(void *self
, void *clientData
)
1443 WMPopUpButton
*pop
= (WMPopUpButton
*)self
;
1444 CrashPanel
*panel
= (CrashPanel
*)clientData
;
1446 panel
->action
= WMGetPopUpButtonSelectedItem(pop
);
1451 getWindowMakerIconImage(WMScreen
*scr
)
1453 proplist_t dict
, key
, option
, value
=NULL
;
1457 PLSetStringCmpHook(NULL
);
1459 key
= PLMakeString("Logo.WMPanel");
1460 option
= PLMakeString("Icon");
1462 dict
= PLGetDictionaryEntry(WDWindowAttributes
->dictionary
, key
);
1465 value
= PLGetDictionaryEntry(dict
, option
);
1471 PLSetStringCmpHook(StringCompareHook
);
1473 if (value
&& PLIsString(value
)) {
1474 path
= FindImage(wPreferences
.icon_path
, PLGetString(value
));
1479 image
= RLoadImage(WMScreenRContext(scr
), path
, 0);
1481 pix
= WMCreatePixmapFromRImage(scr
, image
, 0);
1482 RDestroyImage(image
);
1497 wShowCrashingDialogPanel(int whatSig
)
1503 int screen_no
, scr_width
, scr_height
;
1507 panel
= wmalloc(sizeof(CrashPanel
));
1508 memset(panel
, 0, sizeof(CrashPanel
));
1510 screen_no
= DefaultScreen(dpy
);
1511 scr_width
= WidthOfScreen(ScreenOfDisplay(dpy
, screen_no
));
1512 scr_height
= HeightOfScreen(ScreenOfDisplay(dpy
, screen_no
));
1514 scr
= WMCreateScreen(dpy
, screen_no
);
1516 wsyserror(_("cannot open connection for crashing dialog panel. Aborting."));
1520 panel
->retKey
= XKeysymToKeycode(dpy
, XK_Return
);
1522 panel
->win
= WMCreateWindow(scr
, "crashingDialog");
1523 WMResizeWidget(panel
->win
, PWIDTH
, PHEIGHT
);
1524 WMMoveWidget(panel
->win
, (scr_width
- PWIDTH
)/2, (scr_height
- PHEIGHT
)/2);
1526 logo
= getWindowMakerIconImage(scr
);
1528 panel
->iconL
= WMCreateLabel(panel
->win
);
1529 WMResizeWidget(panel
->iconL
, 64, 64);
1530 WMMoveWidget(panel
->iconL
, 10, 10);
1531 WMSetLabelImagePosition(panel
->iconL
, WIPImageOnly
);
1532 WMSetLabelImage(panel
->iconL
, logo
);
1535 panel
->nameL
= WMCreateLabel(panel
->win
);
1536 WMResizeWidget(panel
->nameL
, 190, 18);
1537 WMMoveWidget(panel
->nameL
, 80, 35);
1538 WMSetLabelTextAlignment(panel
->nameL
, WALeft
);
1539 font
= WMBoldSystemFontOfSize(scr
, 18);
1540 WMSetLabelFont(panel
->nameL
, font
);
1541 WMReleaseFont(font
);
1542 WMSetLabelText(panel
->nameL
, _("Fatal error"));
1544 panel
->sepF
= WMCreateFrame(panel
->win
);
1545 WMResizeWidget(panel
->sepF
, PWIDTH
+4, 2);
1546 WMMoveWidget(panel
->sepF
, -2, 80);
1548 panel
->noteL
= WMCreateLabel(panel
->win
);
1549 WMResizeWidget(panel
->noteL
, PWIDTH
-20, 40);
1550 WMMoveWidget(panel
->noteL
, 10, 90);
1551 WMSetLabelTextAlignment(panel
->noteL
, WAJustified
);
1552 #ifdef SYS_SIGLIST_DECLARED
1553 sprintf(buf
, _("Window Maker received signal %i\n(%s)."),
1554 whatSig
, sys_siglist
[whatSig
]);
1556 sprintf(buf
, _("Window Maker received signal %i."), whatSig
);
1558 WMSetLabelText(panel
->noteL
, buf
);
1560 panel
->note2L
= WMCreateLabel(panel
->win
);
1561 WMResizeWidget(panel
->note2L
, PWIDTH
-20, 100);
1562 WMMoveWidget(panel
->note2L
, 10, 130);
1563 WMSetLabelTextAlignment(panel
->note2L
, WALeft
);
1564 WMSetLabelText(panel
->note2L
,
1565 _(" This fatal error occured probably due to a bug."
1566 " Please fill the included BUGFORM and "
1567 "report it to bugs@windowmaker.org."));
1570 panel
->whatF
= WMCreateFrame(panel
->win
);
1571 WMResizeWidget(panel
->whatF
, PWIDTH
-20, 50);
1572 WMMoveWidget(panel
->whatF
, 10, 240);
1573 WMSetFrameTitle(panel
->whatF
, _("What do you want to do now?"));
1575 panel
->whatP
= WMCreatePopUpButton(panel
->whatF
);
1576 WMResizeWidget(panel
->whatP
, PWIDTH
-20-70, 20);
1577 WMMoveWidget(panel
->whatP
, 35, 20);
1578 WMSetPopUpButtonPullsDown(panel
->whatP
, False
);
1579 WMSetPopUpButtonText(panel
->whatP
, _("Select action"));
1580 WMAddPopUpButtonItem(panel
->whatP
, _("Abort and leave a core file"));
1581 WMAddPopUpButtonItem(panel
->whatP
, _("Restart Window Maker"));
1582 WMAddPopUpButtonItem(panel
->whatP
, _("Start alternate window manager"));
1583 WMSetPopUpButtonAction(panel
->whatP
, setCrashAction
, panel
);
1584 WMSetPopUpButtonSelectedItem(panel
->whatP
, WMRestart
);
1585 panel
->action
= WMRestart
;
1587 WMMapSubwidgets(panel
->whatF
);
1589 panel
->okB
= WMCreateCommandButton(panel
->win
);
1590 WMResizeWidget(panel
->okB
, 80, 26);
1591 WMMoveWidget(panel
->okB
, 205, 309);
1592 WMSetButtonText(panel
->okB
, _("OK"));
1593 WMSetButtonImage(panel
->okB
, WMGetSystemPixmap(scr
, WSIReturnArrow
));
1594 WMSetButtonAltImage(panel
->okB
, WMGetSystemPixmap(scr
, WSIHighlightedReturnArrow
));
1595 WMSetButtonImagePosition(panel
->okB
, WIPRight
);
1596 WMSetButtonAction(panel
->okB
, okButtonCallback
, panel
);
1600 WMCreateEventHandler(WMWidgetView(panel
->win
), KeyPressMask
,
1601 handleKeyPress
, panel
);
1603 WMRealizeWidget(panel
->win
);
1604 WMMapSubwidgets(panel
->win
);
1606 WMMapWidget(panel
->win
);
1608 XSetInputFocus(dpy
, WMWidgetXID(panel
->win
), RevertToParent
, CurrentTime
);
1610 while (!panel
->done
) {
1613 WMNextEvent(dpy
, &event
);
1614 WMHandleEvent(&event
);
1617 action
= panel
->action
;
1619 WMUnmapWidget(panel
->win
);
1620 WMDestroyWidget(panel
->win
);
1629 /*****************************************************************************
1630 * About GNUstep Panel
1631 *****************************************************************************/
1635 drawGNUstepLogo(Display
*dpy
, Drawable d
, int width
, int height
,
1636 unsigned long blackPixel
, unsigned long whitePixel
)
1640 XRectangle rects
[3];
1642 gcv
.foreground
= blackPixel
;
1643 gc
= XCreateGC(dpy
, d
, GCForeground
, &gcv
);
1645 XFillArc(dpy
, d
, gc
, width
/45, height
/45,
1646 width
- 2*width
/45, height
- 2*height
/45, 0, 360*64);
1649 rects
[0].y
= 37*height
/45;
1650 rects
[0].width
= width
/3;
1651 rects
[0].height
= height
- rects
[0].y
;
1653 rects
[1].x
= rects
[0].width
;
1654 rects
[1].y
= height
/2;
1655 rects
[1].width
= width
- 2*width
/3;
1656 rects
[1].height
= height
- rects
[1].y
;
1658 rects
[2].x
= 2*width
/3;
1659 rects
[2].y
= height
- 37*height
/45;
1660 rects
[2].width
= width
/3;
1661 rects
[2].height
= height
- rects
[2].y
;
1663 XSetClipRectangles(dpy
, gc
, 0, 0, rects
, 3, Unsorted
);
1664 XFillRectangle(dpy
, d
, gc
, 0, 0, width
, height
);
1666 XSetForeground(dpy
, gc
, whitePixel
);
1667 XFillArc(dpy
, d
, gc
, width
/45, height
/45,
1668 width
- 2*width
/45, height
- 2*height
/45, 0, 360*64);
1675 #define GNUSTEP_TEXT \
1676 "Window Maker is part of the GNUstep project.\n"\
1677 "The GNUstep project aims to create a free\n"\
1678 "implementation of the OpenStep(tm) specification\n"\
1679 "which is a object-oriented framework for\n"\
1680 "creating advanced graphical, multi-platform\n"\
1681 "applications. Aditionally, a development and\n"\
1682 "user desktop enviroment will be created on top\n"\
1683 "of the framework. For more information about\n"\
1684 "GNUstep, please visit: www.gnustep.org"
1699 static GNUstepPanel
*gnustepPanel
= NULL
;
1702 destroyGNUstepPanel(WCoreWindow
*foo
, void *data
, XEvent
*event
)
1704 WMUnmapWidget(gnustepPanel
->win
);
1706 WMDestroyWidget(gnustepPanel
->win
);
1708 wUnmanageWindow(gnustepPanel
->wwin
, False
, False
);
1712 gnustepPanel
= NULL
;
1717 wShowGNUstepPanel(WScreen
*scr
)
1719 GNUstepPanel
*panel
;
1726 if (gnustepPanel
->scr
== scr
) {
1727 wRaiseFrame(gnustepPanel
->wwin
->frame
->core
);
1728 wSetFocusTo(scr
, gnustepPanel
->wwin
);
1733 panel
= wmalloc(sizeof(GNUstepPanel
));
1737 panel
->win
= WMCreateWindow(scr
->wmscreen
, "About GNUstep");
1738 WMResizeWidget(panel
->win
, 325, 200);
1740 pixmap
= WMCreatePixmap(scr
->wmscreen
, 130, 130,
1741 WMScreenDepth(scr
->wmscreen
), True
);
1743 color
= WMCreateNamedColor(scr
->wmscreen
, "gray50", True
);
1745 drawGNUstepLogo(dpy
, WMGetPixmapXID(pixmap
), 130, 130,
1746 WMColorPixel(color
), scr
->white_pixel
);
1748 WMReleaseColor(color
);
1750 XSetForeground(dpy
, scr
->mono_gc
, 0);
1751 XFillRectangle(dpy
, WMGetPixmapMaskXID(pixmap
), scr
->mono_gc
, 0, 0,
1753 drawGNUstepLogo(dpy
, WMGetPixmapMaskXID(pixmap
), 130, 130, 1, 1);
1755 panel
->gstepL
= WMCreateLabel(panel
->win
);
1756 WMResizeWidget(panel
->gstepL
, 285, 64);
1757 WMMoveWidget(panel
->gstepL
, 20, 0);
1758 WMSetLabelTextAlignment(panel
->gstepL
, WARight
);
1759 WMSetLabelText(panel
->gstepL
, "GNUstep");
1761 WMFont
*font
= WMBoldSystemFontOfSize(scr
->wmscreen
, 24);
1763 WMSetLabelFont(panel
->gstepL
, font
);
1764 WMReleaseFont(font
);
1767 panel
->textL
= WMCreateLabel(panel
->win
);
1768 WMResizeWidget(panel
->textL
, 275, 130);
1769 WMMoveWidget(panel
->textL
, 30, 50);
1770 WMSetLabelTextAlignment(panel
->textL
, WARight
);
1771 WMSetLabelImagePosition(panel
->textL
, WIPOverlaps
);
1772 WMSetLabelText(panel
->textL
, GNUSTEP_TEXT
);
1773 WMSetLabelImage(panel
->textL
, pixmap
);
1775 WMReleasePixmap(pixmap
);
1777 WMRealizeWidget(panel
->win
);
1778 WMMapSubwidgets(panel
->win
);
1780 parent
= XCreateSimpleWindow(dpy
, scr
->root_win
, 0, 0, 325, 200, 0, 0, 0);
1782 XReparentWindow(dpy
, WMWidgetXID(panel
->win
), parent
, 0, 0);
1784 wwin
= wManageInternalWindow(scr
, parent
, None
, "About GNUstep",
1785 (scr
->scr_width
- 325)/2,
1786 (scr
->scr_height
- 200)/2, 325, 200);
1788 WSETUFLAG(wwin
, no_closable
, 0);
1789 WSETUFLAG(wwin
, no_close_button
, 0);
1790 wWindowUpdateButtonImages(wwin
);
1791 wFrameWindowShowButton(wwin
->frame
, WFF_RIGHT_BUTTON
);
1792 #ifdef XKB_BUTTON_HINT
1793 wFrameWindowHideButton(wwin
->frame
, WFF_LANGUAGE_BUTTON
);
1795 wwin
->frame
->on_click_right
= destroyGNUstepPanel
;
1799 WMMapWidget(panel
->win
);
1803 gnustepPanel
= panel
;