 { "dealloc" void { id SEL }
     [
         drop
-        [ unregister-window ]
         [ remove-observer ]
         [ SUPER-> dealloc ]
-        tri
+        bi
     ]
 } ;
 


{ "windowWillClose:" void { id SEL id }
    [
        2nip -> object -> contentView window ungraft
    ]
} ;


    [
        forget-rollover
        2nip -> object -> contentView
        dup -> isInFullScreenMode 0 =
        [ window [ unfocus-world ] when* ]
        [ drop ] if
    ]
}
