anchor.diff:  ;; 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.78 2007-07-10 08:45:06 espen Exp $
  +;; $Id: gtk.lisp,v 1.79 2007-07-12 09:02:13 espen Exp $
   
   
   (in-package "GTK")
  
positive.code:   #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
    (when secondary-text
      (message-dialog-format-secondary-markup dialog secondary-text))
    (call-next-method))
  
  
  (defbinding %message-dialog-new () pointer
  
negative.code: ;;; Message dialog
  
  (defmethod allocate-foreign ((dialog message-dialog) &key (message-type :info)
  			     button buttons flags transient-parent)
    (let ((stock-buttons 
  	 (cond
  	  ((and (not buttons) (not button))
  	   (case message-type
  	     (:question :yes-no)
  	     (t :ok)))
  	  ((listp buttons) :none)
  	  (t buttons))))
      (%message-dialog-new transient-parent flags message-type stock-buttons)))
  
  
  (defmethod shared-initialize ((dialog message-dialog) names &rest initargs
  			      &key buttons text 
  			      #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
  			      secondary-text)
    (declare (ignore names))
  