Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Tabbar: add high-resolution close and other buttons

nsimage: select smallest full-resolution image representation (2x2 instead of 30x30)
Description for tabbar image conversions
  • Loading branch information...
commit 9dab2c8efe2269b340328d500d05a29d3dc702cc 1 parent d221162
@davidswelt authored
View
9 aquamacs/Icons/tabbar/README
@@ -0,0 +1,9 @@
+To produce the tiff images:
+
+convert close-tab12.png close-tab24.png ../../src/site-lisp/tabbar/close-tab.tiff
+
+To set DPI correctly:
+
+convert -units PixelsPerInch close-tab24.png -density 184 close-tab\@2x.png
+convert -units PixelsPerInch close-tab12.png -density 92 close-tab.png
+convert close-tab.png close-tab\@2x.png ../../src/site-lisp/tabbar/close-tab.tiff
View
12 aquamacs/src/site-lisp/tabbar/aquamacs-tabbar.el
@@ -469,27 +469,27 @@ or groups. Call the function `tabbar-button-label' otherwise."
(cons "[-]" tabbar-home-button-disabled-image)))
(setq tabbar-scroll-left-button-enabled-image
- '((:type png :file "left.png")))
+ '((:type tiff :file "left.tiff")))
(setq tabbar-scroll-left-button-disabled-image
- '((:type png :file "left_disabled.png")))
+ '((:type tiff :file "left_disabled.tiff")))
(setq tabbar-scroll-left-button
(cons (cons " <" tabbar-scroll-left-button-enabled-image)
(cons " =" tabbar-scroll-left-button-disabled-image)))
(setq tabbar-scroll-right-button-enabled-image
- '((:type png :file "right.png")))
+ '((:type tiff :file "right.tiff")))
(setq tabbar-scroll-right-button-disabled-image
- '((:type png :file "right_disabled.png")))
+ '((:type tiff :file "right_disabled.tiff")))
(setq tabbar-scroll-right-button
(cons (cons " >" tabbar-scroll-right-button-enabled-image)
(cons " =" tabbar-scroll-right-button-disabled-image)))
(setq tabbar-close-tab-button
- '((:type png :file "close-tab.png")))
+ '((:type tiff :file "close-tab.tiff")))
;; allow fast-clicking through lists of tabs
(defsubst tabbar-click-p (event)
@@ -924,4 +924,4 @@ The following options are available:
(selected-window))) 'append))
-(provide 'aquamacs-tabbar)
+(provide 'aquamacs-tabbar)
View
BIN  aquamacs/src/site-lisp/tabbar/close-tab.png
Deleted file not rendered
View
BIN  aquamacs/src/site-lisp/tabbar/close-tab.tiff
Binary file not shown
View
BIN  aquamacs/src/site-lisp/tabbar/left.png
Deleted file not rendered
View
BIN  aquamacs/src/site-lisp/tabbar/left.tiff
Binary file not shown
View
BIN  aquamacs/src/site-lisp/tabbar/left_disabled.png
Deleted file not rendered
View
BIN  aquamacs/src/site-lisp/tabbar/left_disabled.tiff
Binary file not shown
View
BIN  aquamacs/src/site-lisp/tabbar/right.png
Deleted file not rendered
View
BIN  aquamacs/src/site-lisp/tabbar/right.tiff
Binary file not shown
View
BIN  aquamacs/src/site-lisp/tabbar/right_disabled.png
Deleted file not rendered
View
BIN  aquamacs/src/site-lisp/tabbar/right_disabled.tiff
Binary file not shown
View
3  src/nsimage.m
@@ -245,7 +245,8 @@ @implementation EmacsImage
// needed to pick the right representation e.g., when HiDPI image is provided.
if ([image respondsToSelector: @selector (bestRepresentationForRect:context:hints:)])
{
- imgRep = [image bestRepresentationForRect: NSMakeRect(100,100,30,30) context:nil hints: nil];
+ // Choose the smallest (full-resolution) image representation
+ imgRep = [image bestRepresentationForRect: NSMakeRect(100,100,2,2) context:nil hints: nil];
}
else
{
Please sign in to comment.
Something went wrong with that request. Please try again.