Japanese translation of message catalog for Sawfish Window-Manager
| Revision | 7bb2dd348f55cdb8006d724400120d12b1d8e2c9 (tree) |
|---|---|
| Zeit | 2010-11-05 02:31:22 |
| Autor | Christopher Roy Bratusek <zanghar@free...> |
| Commiter | Christopher Roy Bratusek |
remove tabs.util (check new tabs-ng branch)
lisp/sawfish/wm/tabs/util.jl| @@ -1,26 +0,0 @@ | ||
| 1 | -(define-structure sawfish.wm.tabs.util | |
| 2 | - | |
| 3 | - (export set-tab-adjustments) | |
| 4 | - | |
| 5 | - (open rep | |
| 6 | - rep.system | |
| 7 | - | |
| 8 | - sawfish.wm.gaol) | |
| 9 | - | |
| 10 | - (define-structure-alias tab-util sawfish.wm.tabs.util) | |
| 11 | - | |
| 12 | - (define (set-tab-adjustments #!key left-dec right-dec left-margin right-margin left-margin-transient right-margin-transient) | |
| 13 | - (if left-dec | |
| 14 | - (defvar-setq tab-left-dec-width left-dec)) | |
| 15 | - (if right-dec | |
| 16 | - (defvar-setq tab-right-dec-width right-dec)) | |
| 17 | - (if left-margin | |
| 18 | - (defvar-setq tab-left-margin left-margin)) | |
| 19 | - (if right-margin | |
| 20 | - (defvar-setq tab-right-margin right-margin)) | |
| 21 | - (if left-margin-transient | |
| 22 | - (defvar-setq tab-left-margin-transient left-margin-transient)) | |
| 23 | - (if right-margin-transient | |
| 24 | - (defvar-setq tab-right-margin-transient right-margin-transient))) | |
| 25 | - | |
| 26 | - (gaol-add set-tab-adjustments)) | |
| \ No newline at end of file |
Fork
SawfishWM/sawfish