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: gtkwidget.lisp,v 1.22 2006-04-25 20:19:32 espen Exp $
  +;; $Id: gtkwidget.lisp,v 1.23 2006-04-26 12:11:21 espen Exp $
   
   (in-package "GTK")
   
  
positive.code:        (slot-boundp widget 'name) (not (zerop (length (widget-name widget)))))
        (print-unreadable-object (widget stream :type t :identity nil)
          (format stream "~S at 0x~X" 
  	 (widget-name widget) (sap-int (foreign-location widget))))
      (call-next-method)))
  
  (defmethod shared-initialize ((widget widget) names &key (visible nil visible-p))
    (when (and visible-p (not visible)) ; widget explicit set as not visible
      (setf (user-data widget 'hidden-p) t)
      (signal-connect widget 'show 
  
negative.code: (defbinding widget-size-request
      (widget &optional (requisition (make-instance 'requisition))) nil
    (widget widget)
    (requisition requisition :in/return))
  
  (defbinding widget-get-child-requisition 
      (widget &optional (requisition (make-instance 'requisition))) nil
    (widget widget)
    (requisition requisition :in/return))
  
  (defbinding widget-size-allocate () nil
    (widget widget)
  