1 /* MenuPreferences.c- menu related preferences
3 * WPrefs - Window Maker Preferences Program
5 * Copyright (c) 1998-2003 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
{
33 CallbackRec callbacks
;
52 #define ICON_FILE "menuprefs"
53 #define SPEED_IMAGE "speed%i"
54 #define SPEED_IMAGE_S "speed%is"
56 #define MENU_ALIGN1 "menualign1"
57 #define MENU_ALIGN2 "menualign2"
61 showData(_Panel
*panel
)
63 WMPerformButtonClick(panel
->scrB
[GetSpeedForKey("MenuScrollSpeed")]);
65 if (GetBoolForKey("AlignSubmenus"))
66 WMPerformButtonClick(panel
->aliyB
);
68 WMPerformButtonClick(panel
->alinB
);
70 WMSetButtonSelected(panel
->wrapB
, GetBoolForKey("WrapMenus"));
72 WMSetButtonSelected(panel
->autoB
, GetBoolForKey("ScrollableMenus"));
77 storeData(_Panel
*panel
)
82 if (WMGetButtonSelected(panel
->scrB
[i
]))
85 SetSpeedForKey(i
, "MenuScrollSpeed");
87 SetBoolForKey(WMGetButtonSelected(panel
->aliyB
), "AlignSubmenus");
89 SetBoolForKey(WMGetButtonSelected(panel
->wrapB
), "WrapMenus");
90 SetBoolForKey(WMGetButtonSelected(panel
->autoB
), "ScrollableMenus");
97 _Panel
*panel
= (_Panel
*)p
;
98 WMScreen
*scr
= WMWidgetScreen(panel
->parent
);
104 panel
->box
= WMCreateBox(panel
->parent
);
105 WMSetViewExpandsToParent(WMWidgetView(panel
->box
), 2, 2, 2, 2);
107 /***************** Menu Scroll Speed ****************/
108 panel
->scrF
= WMCreateFrame(panel
->box
);
109 WMResizeWidget(panel
->scrF
, 235, 90);
110 WMMoveWidget(panel
->scrF
, 25, 20);
111 WMSetFrameTitle(panel
->scrF
, _("Menu Scrolling Speed"));
114 buf1
= wmalloc(strlen(SPEED_IMAGE
)+1);
115 buf2
= wmalloc(strlen(SPEED_IMAGE_S
)+1);
116 for (i
= 0; i
< 5; i
++) {
117 panel
->scrB
[i
] = WMCreateCustomButton(panel
->scrF
, WBBStateChangeMask
);
118 WMResizeWidget(panel
->scrB
[i
], 40, 40);
119 WMMoveWidget(panel
->scrB
[i
], 15+(40*i
), 30);
120 WMSetButtonBordered(panel
->scrB
[i
], False
);
121 WMSetButtonImagePosition(panel
->scrB
[i
], WIPImageOnly
);
123 WMGroupButtons(panel
->scrB
[0], panel
->scrB
[i
]);
125 sprintf(buf1
, SPEED_IMAGE
, i
);
126 sprintf(buf2
, SPEED_IMAGE_S
, i
);
127 path
= LocateImage(buf1
);
129 icon
= WMCreatePixmapFromFile(scr
, path
);
131 WMSetButtonImage(panel
->scrB
[i
], icon
);
132 WMReleasePixmap(icon
);
134 wwarning(_("could not load icon file %s"), path
);
138 path
= LocateImage(buf2
);
140 icon
= WMCreatePixmapFromFile(scr
, path
);
142 WMSetButtonAltImage(panel
->scrB
[i
], icon
);
143 WMReleasePixmap(icon
);
145 wwarning(_("could not load icon file %s"), path
);
153 WMMapSubwidgets(panel
->scrF
);
155 /***************** Submenu Alignment ****************/
157 panel
->aliF
= WMCreateFrame(panel
->box
);
158 WMResizeWidget(panel
->aliF
, 220, 90);
159 WMMoveWidget(panel
->aliF
, 280, 20);
160 WMSetFrameTitle(panel
->aliF
, _("Submenu Alignment"));
162 panel
->alinB
= WMCreateButton(panel
->aliF
, WBTOnOff
);
163 WMResizeWidget(panel
->alinB
, 48, 48);
164 WMMoveWidget(panel
->alinB
, 56, 25);
165 WMSetButtonImagePosition(panel
->alinB
, WIPImageOnly
);
166 path
= LocateImage(MENU_ALIGN1
);
168 icon
= WMCreatePixmapFromFile(scr
, path
);
170 WMSetButtonImage(panel
->alinB
, icon
);
171 WMReleasePixmap(icon
);
173 wwarning(_("could not load icon file %s"), path
);
177 panel
->aliyB
= WMCreateButton(panel
->aliF
, WBTOnOff
);
178 WMResizeWidget(panel
->aliyB
, 48, 48);
179 WMMoveWidget(panel
->aliyB
, 120, 25);
180 WMSetButtonImagePosition(panel
->aliyB
, WIPImageOnly
);
181 path
= LocateImage(MENU_ALIGN2
);
183 icon
= WMCreatePixmapFromFile(scr
, path
);
185 WMSetButtonImage(panel
->aliyB
, icon
);
186 WMReleasePixmap(icon
);
188 wwarning(_("could not load icon file %s"), path
);
192 WMGroupButtons(panel
->alinB
, panel
->aliyB
);
194 WMMapSubwidgets(panel
->aliF
);
196 /***************** Options ****************/
197 panel
->optF
= WMCreateFrame(panel
->box
);
198 WMResizeWidget(panel
->optF
, 475, 80);
199 WMMoveWidget(panel
->optF
, 25, 130);
201 panel
->wrapB
= WMCreateSwitchButton(panel
->optF
);
202 WMResizeWidget(panel
->wrapB
, 440, 32);
203 WMMoveWidget(panel
->wrapB
, 25, 8);
204 WMSetButtonText(panel
->wrapB
, _("Always open submenus inside the screen, instead of scrolling.\nNote: this is annoying."));
206 panel
->autoB
= WMCreateSwitchButton(panel
->optF
);
207 WMResizeWidget(panel
->autoB
, 440, 32);
208 WMMoveWidget(panel
->autoB
, 25, 45);
209 WMSetButtonText(panel
->autoB
, _("Scroll off-screen menus when pointer is moved over them."));
211 WMMapSubwidgets(panel
->optF
);
213 WMRealizeWidget(panel
->box
);
214 WMMapSubwidgets(panel
->box
);
222 InitMenuPreferences(WMScreen
*scr
, WMWidget
*parent
)
226 panel
= wmalloc(sizeof(_Panel
));
227 memset(panel
, 0, sizeof(_Panel
));
229 panel
->sectionName
= _("Menu Preferences");
231 panel
->description
= _("Menu usability related options. Scrolling speed,\n"
232 "alignment of submenus etc.");
234 panel
->parent
= parent
;
236 panel
->callbacks
.createWidgets
= createPanel
;
237 panel
->callbacks
.updateDomain
= storeData
;
239 AddSection(panel
, ICON_FILE
);