diff options
author | Daniel Kochmanski <dkochmanski@turtleware.eu> | 2018-01-02 11:33:24 +0100 |
---|---|---|
committer | GitHub <noreply@github.com> | 2018-01-02 11:33:24 +0100 |
commit | 2ae61ed2de7d48e60d22f6ff8b03539df6e33284 (patch) | |
tree | e4316e441a21fb59d2173c99713a0865c1a4595d | |
parent | 33b6bc391d27aded135f34c4881eb76efc801bb6 (diff) | |
parent | f5c3f1aead25a0b0a0197d51e9f6dc8a76c0d590 (diff) |
Merge pull request #423 from nsrahmad/master
Fixes List-gadget
-rw-r--r-- | Core/clim-core/gadgets.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Core/clim-core/gadgets.lisp b/Core/clim-core/gadgets.lisp index bc37046f..927d697e 100644 --- a/Core/clim-core/gadgets.lisp +++ b/Core/clim-core/gadgets.lisp @@ -2165,7 +2165,7 @@ response to scroll wheel events.") (h (* n (generic-list-pane-item-height pane)))) (make-space-requirement :width w :height h :min-width w :min-height h - :max-width w :max-height h))) + :max-width +fill+ :max-height +fill+))) (defmethod allocate-space ((pane generic-list-pane) w h) (resize-sheet pane w h)) @@ -2395,7 +2395,8 @@ if INVOKE-CALLBACK is given.")) (if (find (gadget-value pane) new-values :test test) (gadget-value pane) nil) - (intersection (gadget-value pane) new-values :test test)))))) + (intersection (gadget-value pane) new-values :test test))))) + (change-space-requirements pane)) (defmethod (setf list-pane-items) (newval (pane generic-list-pane) &key invoke-callback) |