Re: CAPI push button borders

Not sure if it is possible. Aren't buttons implemented using underlying system API? 
To make them really customizable you would need to implement own class with a button-like behavior.

It is not that hard. Just derive from output-pane, do your custom drawing, and setup necessary params including the input-model, i.e.

  (:default-initargs
   :background #+cocoa :transparent #-cocoa :white
   :visible-border nil
   :display-callback 'on-redisplay-my-button-pane
   :resize-callback 'on-resize-my-button-pane
   :coordinate-origin :fixed-graphics
   :visible-max-height t
   :visible-max-width t
   :visible-min-height :text-height
   :visible-min-width :text-width
   :input-model
   '(((:button-1 :press) my-button-handle-pressed)
     ((:button-1 :release) my-button-handle-released))))



BR,
/Alexey

On Thursday, February 12th, 2026 at 05:00, 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