CLIM mail archive
[Prev][Next][Index][Thread]
Maximizing CLIM window
This is probably a no brainer for most folks but how do I define my application
frame to fill the entire screen? Also, how do set up the frame to display
without the user having to place the window with the mouse first? Below is a
smaple of my frame definition. Thanks for your help.
SLS
-------------------------
(DEFINE-APPLICATION-FRAME cap-plot ()
()
(:COMMAND-TABLE (cap-plot :INHERIT-FROM (USER-COMMAND-TABLE
plot-command-table event-command-table)))
(:PANES
(graph-menu :COMMAND-MENU
:DISPLAY-FUNCTION '(DISPLAY-COMMAND-MENU :COMMAND-TABLE
plot-command-table)
:MAX-HEIGHT '(1 :LINE)
:HEIGHT '(1 :LINE))
(graph-pane :APPLICATION
:LABEL '("Plot" :TEXT-STYLE (:FIX :ITALIC :SMALL))
:LABEL-ALIGNMENT :BOTTOM
:DISPLAY-FUNCTION 'display-graph-pane
:DISPLAY-AFTER-COMMANDS nil
:INCREMENTAL-REDISPLAY nil
:END-OF-LINE-ACTION :ALLOW ;Enable draw past EOL without
scolling.
:END-OF-PAGE-ACTION :ALLOW
;:HEIGHT '(14 :LINE)
:WIDTH +FILL+
:SCROLL-BARS nil)
(event-menu :COMMAND-MENU
:DISPLAY-FUNCTION '(DISPLAY-COMMAND-MENU :COMMAND-TABLE
event-command-table)
:HEIGHT '(1 :LINE)
:MAX-HEIGHT '(1 :LINE))
(event-pane :APPLICATION
:LABEL '("Events" :TEXT-STYLE (:FIX :ITALIC :SMALL))
:LABEL-ALIGNMENT :BOTTOM
:INCREMENTAL-REDISPLAY nil
:HEIGHT '(6 :LINE)
:MAX-HEIGHT '(10 :LINE)
:END-OF-LINE-ACTION :ALLOW
:END-OF-PAGE-ACTION :ALLOW
:SCROLL-BARS :VERTICAL)
(command :INTERACTOR
:HEIGHT '(6 :LINE)
:MIN-HEIGHT '(6 :LINE)
:MAX-HEIGHT '(6 :LINE)))
(:POINTER-DOCUMENTATION t)
(:LAYOUTS
(:default
(VERTICALLY ()
graph-menu
graph-pane
event-menu
event-pane
command))
(:alternate
(VERTICALLY ()
graph-menu
graph-pane
command)))
Main Index |
Thread Index