From d453ba38708169a8fb169c20757181e53450691a Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Thu, 12 Jul 2007 13:55:59 +0000 Subject: [PATCH] Added warning about API change Organization: Straylight/Edgeware From: espen --- gtk/gtk.lisp | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp index c30f672..47b456e 100644 --- a/gtk/gtk.lisp +++ b/gtk/gtk.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gtk.lisp,v 1.80 2007/07/12 13:13:34 espen Exp $ +;; $Id: gtk.lisp,v 1.81 2007/07/12 13:55:59 espen Exp $ (in-package "GTK") @@ -1322,7 +1322,7 @@ (defmethod allocate-foreign ((dialog message-dialog) &key (message-type :info) (defmethod shared-initialize ((dialog message-dialog) names &rest initargs - &key buttons text + &key message-type buttons button text #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0") secondary-text) (declare (ignore names)) @@ -1331,6 +1331,13 @@ (defmethod shared-initialize ((dialog message-dialog) names &rest initargs #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0") (when secondary-text (message-dialog-format-secondary-markup dialog secondary-text)) + (when (and (not buttons) (not button)) + (loop + for (key value) on initargs by #'cddr + when (and (eq key :signal) (eq (first value) :close)) + do (warn "Default button configuration changed from ~A to ~A" :close + (if (eq message-type :question) :yes-no :ok)) + (loop-finish))) (if (typep buttons 'buttons-type) (apply #'call-next-method dialog names (plist-remove :buttons initargs)) (call-next-method))) -- [mdw]