Lisp HUG Maillist Archive

Re: AW: Adding a pane with a border and a title

Thanks David,

After taking your hint to the generic row/column and putting in:

    :title "Title" 
    :title-position :frame 
    :internal-border 5

it works great!

Now I begin to understand the capi-conzept.

Question: In the Autodesk-DCL-Layout-tool is an object called "Spacer"
which is used to make some space in a row or column, like an invisibel
pane. I have simulated it by using a title-pane with white spaces.
Is there something similar to this?

Regards
Hans-Peter



-----Ursprüngliche Nachricht-----
Von: David Fox [mailto:davef@xanalys.com]
Gesendet: Dienstag, 17. Juni 2003 15:05
An: Wickern, Hans- Peter
Cc: divanov2@postman.ru; lisp-hug@xanalys.com
Betreff: Re: AW: Adding a pane with a border and a title



   Now i added a title:

    (row-of-buttons capi:row-layout
		    '(page-up page-down open-file)
		    :visible-border
		    :recessed
		    :title '"Test"
		    )

   But it show's up above of the frame. Is there an option to get
   a frame where it is inserted in the top frame-border like in
   windows standard-frames?

Is this what you mean?

(capi:define-interface demodiax ()
  ()
  (:panes
   (row-of-buttons 
    capi:push-button-panel 
    :items '("Page Up" "Page Down" "Open File")
    :title "Title" 
    :title-position :frame 
    :internal-border 5
    :layout-args '(:x-gap 10)))
  (:layouts
   (main-layout capi:column-layout
                '(row-of-buttons)
                ))
  (:menu-bar file-menu page-menu)
  (:menus
   (file-menu "File"
              ("Open"))
   (page-menu "Page"
              ("Page Up" "Page Down")))
  (:default-initargs :title "Demo"))


   And is it possible to make the row bigger and to adjust the buttons
inside?

As Dmitri said you can use :X-GAP to adjust the layout. If you group
the buttons in a CAPI:BUTTON-PANEL, pass the layout initargs via
:LAYOUT-ARGS like the above.

If you want larger buttons, I think you will need to construct them
explicitly, passing :VISIBLE-MIN-HEIGHT etc.


Dave Fox
Xanalys
Compass House
Vision Park
Chivers Way
Histon
Cambridge
CB4 9AD
England

Email: davef@xanalys.com
Tel:   +44 1223 253793
Fax:   +44 1223 257812
These opinions are not necessarily those of Xanalys.


   Friedrich, thanks for your code-sample.

   Regards
   Hans-Peter



   -----Ursprüngliche Nachricht-----
   Von: Dmitri Ivanov [mailto:divanov2@postman.ru]
   Gesendet: Dienstag, 17. Juni 2003 10:16
   An: Wickern, Hans- Peter
   Cc: lisp-hug@xanalys.com
   Betreff: Re: Adding a pane with a border and a title


   Hello,

   | "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.

   For me, this doesn't have any vissible effect on Windows. But
       :visible-border :recessed 
   really does.
   --
   Sincerely,
   Dmitri Ivanov
   www.aha.ru/~divanov


Unable to render article 1142 because of ":DEFAULT stream decoding error on #<SB-SYS:FD-STREAM for \"socket 192.168.43.216:64908, peer: 116.202.254.214:119\" {1006F90013}>: the octet sequence #(252 110 103 108) cannot be decoded." error

Re: AW: Adding a pane with a border and a title

Unable to parse email body. Email id is 1144

Re: AW: Adding a pane with a border and a title

Unable to parse email body. Email id is 1145

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