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

    ]
}

! "rotateWithEvent:" void { id SEL id }}

{ "acceptsFirstResponder" char { id SEL }
    [ 2drop 1 ]
}

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

