Lisp HUG Maillist Archive

Adding a pane with a border and a title

I am evaluating Lispworks 4.2 Personal Edition and want to make a dialog
with
a simple pane with a visible border and a title-text around some buttons.

I take a look ar the examples in capiuser-pdf (4.2) and get it to work.

(in-package "CL-USER")

(capi:define-interface demodia ()
()
(:panes
(page-up capi:push-button
         :text "Page Up")
(page-down capi:push-button
           :text "Page Down")
(open-file capi:push-button
           :text "Open File"))
(:layouts
 (main-layout capi:column-layout
              '(row-of-buttons))
 (row-of-buttons capi:row-layout
                 '(page-up page-down open-file)))
(:menu-bar file-menu page-menu)
(:menus
 (file-menu "File"
            ("Open"))
 (page-menu "Page"
            ("Page Up" "Page Down")))
(:default-initargs :title "Demo"))

(defun test-demo ()
  (capi:display (make-instance 'demodia)))


So how can I define a visible border around the 3 buttons to group them?
Is it possible?

Hans-Peter


Re: Adding a pane with a border and a title

"Wickern, Hans- Peter" <hpwickern@interluebke.de> writes:

>  (main-layout capi:column-layout
>               '(row-of-buttons))
>  (row-of-buttons capi:row-layout
>                  '(page-up page-down open-file)
        :visible-border t))

add that to the interface and you got a border around the Buttons.

Regards
Friedrich


Updated at: 2020-12-10 09:00 UTC