Hi, On Sat, 6 Nov 2010 04:16:28 +0100 wrote fuchur <flohtransporter gmail com>: > >I have updated some images. It's looks now better with tiny titlebar. >Also do some bugfix. In tabs-ng branch are the first but it gives >updates. Thank you. > >Update Themes >http://mitglied.lycos.de/fuchur2004/DarkTab-2.tar.bz2 >http://mitglied.lycos.de/fuchur2004/SmoothlyTab-2.tar.bz2 > Patch for DarkTab/theme.jl Changes: Fix right title (to look like the other titles) -- Regards, Fuchur GPG Fingerprint: CA3B 8204 5B3E 6D48 6D53 C116 E5BC 70D5 B8D7 B2B0
diff -urNad DarkTab.orgi/theme.jl DarkTab/theme.jl --- DarkTab.orgi/theme.jl 2010-11-06 04:04:54.000000000 +0100 +++ DarkTab/theme.jl 2010-11-06 20:01:06.000000000 +0100 @@ -1490,10 +1490,6 @@ `((focused . ,(make-image "right-frame-bottom-border-f.png")) (inactive . ,(make-image "right-frame-bottom-border-i.png")))) -(define right-frame-right-border-cursor-images - `((focused . ,(make-image "right-frame-right-border-cursor-f.png")) - (inactive . ,(make-image "right-frame-right-border-cursor-i.png")))) - (define right-frame-menu-button-images `((focused . ,(make-image "right-frame-menu-button-f.png")) (highlighted . ,(make-image "right-frame-menu-button-h.png")) @@ -1970,13 +1966,7 @@ (top-edge . ,frame-edge) (left-edge . ,title-edge) (height . ,frame-width) - (width . ,title-hight)) - ((class . title) - (background . ,left-frame-title-images) - (left-edge . ,title-edge-s) - (top-edge . 0) - (height . 2) - (width . ,title-hight-s)))) + (width . ,title-hight)))) (define right-frame-default-border-corner-group `(((class . bottom-right-corner) @@ -1990,13 +1980,7 @@ (top-edge . ,frame-edge) (right-edge . ,title-edge) (height . ,frame-width) - (width . ,title-hight)) - ((class . title) - (background . ,right-frame-title-images) - (right-edge . ,title-edge) - (top-edge . 0) - (height . 2) - (width . ,title-hight-s)))) + (width . ,title-hight)))) (define top-frame-border-group `(((class . left-border) @@ -2232,10 +2216,11 @@ (x-justify . 2)))) (define right-frame-title-group - `(((class . title) + `(((class . right-border) (background . ,right-frame-right-border-images) + (cursor . sb_h_double_arrow) (top-edge . 0) - (right-edge . -2) + (right-edge . ,title-edge) (bottom-edge . 0) (width . 2)) ((class . tabbar-vertical-top-edge) @@ -2244,19 +2229,19 @@ (cursor . hand2) (height . ,title-hight-s) (width . ,title-hight-s) - (right-edge . ,title-edge) + (right-edge . ,title-edge-s) (y-justify . 4) (x-justify . 2)) ((class . tabbar-vertical) (x-justify . 12) (y-justify . center) (background . ,right-frame-tab-images) - (right-edge . ,title-edge) + (right-edge . ,title-edge-s) (width . ,title-hight-s)) ((class . tabbar-vertical-bottom-edge) (foreground . ,(lambda (w) (window-icon w))) (background . ,right-frame-tab-bottom-icon-images) - (right-edge . ,title-edge) + (right-edge . ,title-edge-s) (height . ,title-hight-s) (width . ,title-hight-s) (y-justify . 1) @@ -2271,15 +2256,6 @@ (right-edge . 0) (height . 2)))) -(define right-frame-title-cursor-images - `(((class . right-border) - (background . ,right-frame-right-border-cursor-images) - (cursor . sb_h_double_arrow) - (top-edge . 0) - (right-edge . ,title-edge) - (bottom-edge . 0) - (width . 2)))) - (define top-frame-close-button `((class . close-button) (background . ,top-frame-close-button-images) @@ -2308,7 +2284,7 @@ `((class . close-button) (background . ,right-frame-close-button-images) (cursor . hand2) - (right-edge . ,title-edge) + (right-edge . ,title-edge-s) (height . ,right-frame-button-height) (width . ,title-hight-s))) @@ -2340,7 +2316,7 @@ `((class . menu-button) (background . ,right-frame-menu-button-images) (cursor . hand2) - (right-edge . ,title-edge) + (right-edge . ,title-edge-s) (height . ,right-frame-button-height) (width . ,title-hight-s))) @@ -2372,7 +2348,7 @@ `((class . iconify-button) (background . ,right-frame-iconify-button-images) (cursor . hand2) - (right-edge . ,title-edge) + (right-edge . ,title-edge-s) (height . ,right-frame-button-height) (width . ,title-hight-s))) @@ -2404,7 +2380,7 @@ `((class . maximize-button) (background . ,right-frame-maximize-image-set) (cursor . hand2) - (right-edge . ,title-edge) + (right-edge . ,title-edge-s) (height . ,right-frame-button-height) (width . ,title-hight-s))) @@ -2436,7 +2412,7 @@ `((class . shade-button) (background . ,right-frame-shade-image-set) (cursor . hand2) - (right-edge . ,title-edge) + (right-edge . ,title-edge-s) (height . ,right-frame-button-height) (width . ,title-hight-s))) @@ -2468,7 +2444,7 @@ `((class . sticky-button) (background . ,right-frame-sticky-image-set) (cursor . hand2) - (right-edge . ,title-edge) + (right-edge . ,title-edge-s) (height . ,right-frame-button-height) (width . ,title-hight-s))) @@ -2496,7 +2472,7 @@ (define right-frame-space-button `((class . title) (background . ,right-frame-title-images) - (right-edge . ,title-edge) + (right-edge . ,title-edge-s) (height . ,right-frame-button-height) (width . ,title-hight-s))) @@ -2528,7 +2504,7 @@ `((class . prev-button) (background . ,right-frame-prev-image-set) (cursor . hand2) - (right-edge . ,title-edge) + (right-edge . ,title-edge-s) (height . ,right-frame-button-height) (width . ,title-hight-s))) @@ -2560,7 +2536,7 @@ `((class . next-button) (background . ,right-frame-next-image-set) (cursor . hand2) - (right-edge . ,title-edge) + (right-edge . ,title-edge-s) (height . ,right-frame-button-height) (width . ,title-hight-s))) @@ -2592,7 +2568,7 @@ `((class . lock-button) (background . ,right-frame-lock-image-set) (cursor . hand2) - (right-edge . ,title-edge) + (right-edge . ,title-edge-s) (height . ,right-frame-button-height) (width . ,title-hight-s))) @@ -2624,7 +2600,7 @@ `((class . raise-lower-button) (background . ,right-frame-raise-lower-image-set) (cursor . hand2) - (right-edge . ,title-edge) + (right-edge . ,title-edge-s) (height . ,right-frame-button-height) (width . ,title-hight-s))) @@ -2656,7 +2632,7 @@ `((class . move-resize-button) (background . ,right-frame-move-resize-button-images) (cursor . hand2) - (right-edge . ,title-edge) + (right-edge . ,title-edge-s) (height . ,right-frame-button-height) (width . ,title-hight-s))) @@ -2688,7 +2664,7 @@ `((class . rename-button) (background . ,right-frame-rename-button-images) (cursor . hand2) - (right-edge . ,title-edge) + (right-edge . ,title-edge-s) (height . ,right-frame-button-height) (width . ,title-hight-s))) @@ -2720,7 +2696,7 @@ `((class . frame-typ-button) (background . ,right-frame-frame-typ-button-images) (cursor . hand2) - (right-edge . ,title-edge) + (right-edge . ,title-edge-s) (height . ,right-frame-button-height) (width . ,title-hight-s))) @@ -2780,13 +2756,7 @@ (top-edge . ,frame-edge) (left-edge . ,title-edge) (height . ,frame-width) - (width . ,title-hight)) - ((class . title) - (background . ,left-frame-title-images) - (left-edge . ,title-edge-s) - (top-edge . 0) - (height . 2) - (width . ,title-hight-s)))) + (width . ,title-hight)))) (define right-frame-shaped-border-corner-group `(((class . bottom-right-corner) @@ -2795,18 +2765,12 @@ (right-edge . ,title-edge) (height . ,frame-width) (width . ,title-hight)) - ((class . top-left-corner) + ((class . top-right-corner) (background . ,right-frame-top-right-corner-shaped-images) (top-edge . ,frame-edge) (right-edge . ,title-edge) (height . ,frame-width) - (width . ,title-hight)) - ((class . title) - (background . ,right-frame-title-images) - (right-edge . ,title-edge) - (top-edge . 0) - (height . 2) - (width . ,title-hight-s)))) + (width . ,title-hight)))) (define top-button-alist `((close . ,top-frame-close-button) @@ -3073,16 +3037,16 @@ #:theme-right-margin-transient right-right-m-t)) (setq normal-frame (append right-frame-title-group right-frame-normal-buttons-left right-frame-default-border-corner-group - right-frame-border-group right-frame-normal-buttons-right right-frame-title-cursor-images)) + right-frame-border-group right-frame-normal-buttons-right)) (setq shaped-frame (append right-frame-title-group right-frame-normal-buttons-left right-frame-shaped-border-corner-group - right-frame-normal-buttons-right right-frame-title-cursor-images)) + right-frame-normal-buttons-right)) (setq transient-frame (append right-frame-title-group right-frame-transient-buttons-left right-frame-default-border-corner-group - right-frame-border-group right-frame-transient-buttons-right right-frame-title-cursor-images)) + right-frame-border-group right-frame-transient-buttons-right)) (setq shaped-transient-frame (append right-frame-title-group right-frame-transient-buttons-left right-frame-shaped-border-corner-group - right-frame-transient-buttons-right right-frame-title-cursor-images)))))) + right-frame-transient-buttons-right)))))) (create-frames)
Attachment:
signature.asc
Description: PGP signature