procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(checkbox): Swap bg/fg colors in images, and invert

Browse source 
image bits to compensate.  Use `make-string' instead of
`make-bool-vector' (XBM apparently wants byte-aligned rows).
This commit is contained in:
Miles Bader 2001-10-20 15:16:30 +00:00
parent 39f624fabd
commit b6715b9f8a
2 changed files with 12 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2001-10-21 Miles Bader <miles@gnu.org>
* wid-edit.el (checkbox): Swap bg/fg colors in image, and invert
image bits to compensate. Use `make-string' instead of
`make-bool-vector' (XBM apparently wants byte-aligned rows).
2001-10-20 Kim F. Storm <storm@cua.dk>
* simple.el (kill-ring-save): Don't show extent of copied region

11
lisp/wid-edit.el
View file

@ -2020,16 +2020,17 @@ when he invoked the menu."
;; We could probably do the same job as the images using single
;; space characters in a boxed face with a stretch specification to
;; make them square.
:on-glyph (create-image "\377\311\301\343\301\311\377" ; this is an `X'
:on-glyph (create-image "\000\066\076\034\076\066\000"
'xbm t :width 7 :height 7
:foreground "grey75" ; like default mode line
:background "black"
:background "grey75" ; like default mode line
:foreground "black"
:relief -3
:ascent 'center)
:off "[ ]"
:off-glyph (create-image (make-bool-vector 49 1)
:off-glyph (create-image (make-string 7 0)
'xbm t :width 7 :height 7
:foreground "grey75"
:background "grey75"
:foreground "black"
:relief 3
:ascent 'center)
:help-echo "Toggle this item."