Re: CAPI push button borders

John,

Not knowing which OS you are aiming for, but in case of macOS you could try leveraging the objc bridge:

(let ((buttons 
       (loop repeat 9
             collect
               (make-instance 'capi:push-button
                              :visible-min-width 36
                              :visible-min-height 36
                              :text (string (code-char 10145))))))
  (capi:contain
   buttons
   :create-callback 
   (lambda(interface)
     (loop for button in buttons
           for bezel from 0
           :do
             (objc:invoke (capi:cocoa-view-pane-view button) "setBezelStyle:" bezel)))))

> On 12. Feb 2026, at 5.59, John DeSoi (as john at desoi dot dev) <[email protected]> wrote:
> 
> Are there any options to create CAPI image or unicode symbol push buttons without a big border around it? 
> 
> For example, the code below produces a button about 3 times the width of the symbol.
> 
> (capi:contain (make-instance 'capi:push-button :text "➡️"))
> 
> There is an undocumented :bezel-style initarg, but I can't figure out any value it accepts.
> 
> Thanks,
> 
> John DeSoi, Ph.D.
> 
> 
> 
> 
> 
> 
> 
> _______________________________________________
> Lisp Hug - the mailing list for LispWorks users
> [email protected]
> http://www.lispworks.com/support/lisp-hug.html


_______________________________________________
Lisp Hug - the mailing list for LispWorks users
[email protected]
http://www.lispworks.com/support/lisp-hug.html