- (paned-pack-1 v (opengl-window-drawing-area window) :resize t :shrink nil)
- (paned-pack-2 v lower-v-box :resize t :shrink nil)
- (box-pack-start lower-v-box h)
- (let ((scrolled (make-instance 'scrolled-window
- :hscrollbar-policy :automatic
- :vscrollbar-policy :automatic)))
- (container-add scrolled (opengl-window-expose-fn-text-view window))
- (paned-pack-1 h scrolled :resize t :shrink nil))
- (let ((scrolled (make-instance 'scrolled-window
- :hscrollbar-policy :automatic
- :vscrollbar-policy :automatic)))
- (container-add scrolled (opengl-window-resize-fn-text-view window))
- (paned-pack-2 h scrolled :resize t :shrink nil))
- (box-pack-start lower-v-box buttons :expand nil)
- (box-pack-start buttons update-fns-button :expand nil)
- (box-pack-start buttons redraw-button :expand nil)