• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#windowsobjective-ccocoa誰得qtpythonphprubygameguibathyscaphec計画中(planning stage)翻訳omegatframeworktwitterdomtestvb.netdirectxゲームエンジンbtronarduinopreviewer

Japanese translation of message catalog for Sawfish Window-Manager


Commit MetaInfo

Revisãof11b9b90e7a2ef69aa6f534addc69d8660c83144 (tree)
Hora2010-09-20 02:07:25
AutorChristopher Roy Bratusek <zanghar@free...>
CommiterChristopher Roy Bratusek

Mensagem de Log

removed broken --single-level command-line option from SawfishConfig

Mudança Sumário

Diff

--- a/lisp/sawfish/cfg/shell.jl
+++ b/lisp/sawfish/cfg/shell.jl
@@ -39,7 +39,6 @@
3939 sawfish.cfg.wm)
4040
4141 (defvar *nokogiri-flatten-groups* nil)
42- (defvar *nokogiri-single-level* nil)
4342
4443 (define main-window)
4544 (define group-tree-widget)
@@ -80,7 +79,6 @@
8079 (let ((group (get-group top-group)))
8180 (fetch-group group)
8281 (if (and (not *nokogiri-flatten-groups*)
83- (not *nokogiri-single-level*)
8482 (group-sub-groups group))
8583 (let ((paned (gtk-hpaned-new))
8684 (g-scroller (gtk-scrolled-window-new)))
@@ -215,10 +213,7 @@
215213 (when slots
216214 (let ((layout (layout-slots (group-layout group) slots)))
217215 (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)
222217 (when (gtk-container-p layout)
223218 (gtk-container-set-border-width layout box-border))))
224219 (mapc (lambda (sub)
@@ -228,12 +223,7 @@
228223 (iter book sub slots))))
229224 (get-sub-groups group)))
230225
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)))
237227 (iter notebook group (get-slots group))
238228 (gtk-widget-show notebook)
239229 (gtk-container-add slot-box-widget notebook)))
@@ -296,7 +286,6 @@ usage: sawfish-config [OPTIONS...]\n
296286 where OPTIONS are any of:\n
297287 --group=GROUP-NAME
298288 --flatten
299- --single-level
300289 --socket-id=WINDOW-ID\n")
301290 (throw 'quit 0))
302291
@@ -308,9 +297,6 @@ where OPTIONS are any of:\n
308297 (when (get-command-line-option "--flatten")
309298 (setq *nokogiri-flatten-groups* t))
310299
311- (when (get-command-line-option "--single-level")
312- (setq *nokogiri-single-level* t))
313-
314300 (setq interrupt-mode 'exit)
315301 (i18n-init)
316302 (add-widget-prefix 'sawfish.cfg.widgets)