Japanese translation of message catalog for Sawfish Window-Manager
Revisão | f11b9b90e7a2ef69aa6f534addc69d8660c83144 (tree) |
---|---|
Hora | 2010-09-20 02:07:25 |
Autor | Christopher Roy Bratusek <zanghar@free...> |
Commiter | Christopher Roy Bratusek |
removed broken --single-level command-line option from SawfishConfig
@@ -39,7 +39,6 @@ | ||
39 | 39 | sawfish.cfg.wm) |
40 | 40 | |
41 | 41 | (defvar *nokogiri-flatten-groups* nil) |
42 | - (defvar *nokogiri-single-level* nil) | |
43 | 42 | |
44 | 43 | (define main-window) |
45 | 44 | (define group-tree-widget) |
@@ -80,7 +79,6 @@ | ||
80 | 79 | (let ((group (get-group top-group))) |
81 | 80 | (fetch-group group) |
82 | 81 | (if (and (not *nokogiri-flatten-groups*) |
83 | - (not *nokogiri-single-level*) | |
84 | 82 | (group-sub-groups group)) |
85 | 83 | (let ((paned (gtk-hpaned-new)) |
86 | 84 | (g-scroller (gtk-scrolled-window-new))) |
@@ -215,10 +213,7 @@ | ||
215 | 213 | (when slots |
216 | 214 | (let ((layout (layout-slots (group-layout group) slots))) |
217 | 215 | (add-active-slots slots) |
218 | - (if (not *nokogiri-single-level*) | |
219 | - (gtk-notebook-append-page | |
220 | - book layout (gtk-label-new (_ (group-real-name group)))) | |
221 | - (gtk-box-pack-start book layout)) | |
216 | + (gtk-box-pack-start book layout) | |
222 | 217 | (when (gtk-container-p layout) |
223 | 218 | (gtk-container-set-border-width layout box-border)))) |
224 | 219 | (mapc (lambda (sub) |
@@ -228,12 +223,7 @@ | ||
228 | 223 | (iter book sub slots)))) |
229 | 224 | (get-sub-groups group))) |
230 | 225 | |
231 | - (let ((notebook (if (not *nokogiri-single-level*) | |
232 | - (let ((x (gtk-notebook-new))) | |
233 | - (gtk-notebook-set-scrollable x 1) | |
234 | - (gtk-notebook-popup-enable x) | |
235 | - x) | |
236 | - (gtk-vbox-new nil 0)))) | |
226 | + (let ((notebook (gtk-vbox-new nil 0))) | |
237 | 227 | (iter notebook group (get-slots group)) |
238 | 228 | (gtk-widget-show notebook) |
239 | 229 | (gtk-container-add slot-box-widget notebook))) |
@@ -296,7 +286,6 @@ usage: sawfish-config [OPTIONS...]\n | ||
296 | 286 | where OPTIONS are any of:\n |
297 | 287 | --group=GROUP-NAME |
298 | 288 | --flatten |
299 | - --single-level | |
300 | 289 | --socket-id=WINDOW-ID\n") |
301 | 290 | (throw 'quit 0)) |
302 | 291 |
@@ -308,9 +297,6 @@ where OPTIONS are any of:\n | ||
308 | 297 | (when (get-command-line-option "--flatten") |
309 | 298 | (setq *nokogiri-flatten-groups* t)) |
310 | 299 | |
311 | - (when (get-command-line-option "--single-level") | |
312 | - (setq *nokogiri-single-level* t)) | |
313 | - | |
314 | 300 | (setq interrupt-mode 'exit) |
315 | 301 | (i18n-init) |
316 | 302 | (add-widget-prefix 'sawfish.cfg.widgets) |