(provide (quote wrapper)) (defun functionp (thing) "\ Returns t if the argument is a function, nil otherwise" (byte-code "9ƒ Ã!‚:ƒ@Ä=…Å!<‚‡" [thing t nil fboundp lambda cadr] 3)) (fset (quote screen-height) (symbol-function (quote epoch::screen-height))) (fset (quote screen-width) (symbol-function (quote epoch::screen-width))) (fset (quote redisplay-screen) (symbol-function (quote epoch::redisplay-screen))) (fset (quote set-screen-modified) (symbol-function (quote epoch::set-screen-modified))) (fset (quote next-screen) (symbol-function (quote epoch::next-screen))) (fset (quote prev-screen) (symbol-function (quote epoch::prev-screen))) (fset (quote current-screen) (symbol-function (quote epoch::current-screen))) (fset (quote minibuf-screen) (symbol-function (quote epoch::minibuf-screen))) (fset (quote raise-screen) (symbol-function (quote epoch::raise-screen))) (fset (quote lower-screen) (symbol-function (quote epoch::lower-screen))) (fset (quote map-screen) (symbol-function (quote epoch::map-screen))) (fset (quote background) (symbol-function (quote epoch::background))) (fset (quote foreground) (symbol-function (quote epoch::foreground))) (fset (quote cursor-foreground) (symbol-function (quote epoch::cursor-foreground))) (fset (quote cursor-background) (symbol-function (quote epoch::cursor-background))) (fset (quote cursor-color) (symbol-function (quote epoch::cursor-background))) (fset (quote cursor-glyph) (symbol-function (quote epoch::cursor-glyph))) (fset (quote set-update) (symbol-function (quote epoch::set-update))) (fset (quote update-p) (symbol-function (quote epoch::update-p))) (fset (quote icon-name) (symbol-function (quote epoch::icon-name))) (fset (quote title) (symbol-function (quote epoch::title))) (fset (quote screenp) (symbol-function (quote epoch::screen-p))) (fset (quote screen-p) (symbol-function (quote epoch::screen-p))) (fset (quote screen-of-window) (symbol-function (quote epoch::screen-of-window))) (fset (quote screens-of-buffer) (symbol-function (quote epoch::screens-of-buffer))) (fset (quote get-screen) (symbol-function (quote epoch::get-screen))) (fset (quote get-screen-id) (symbol-function (quote epoch::get-screen-id))) (fset (quote epoch::make-id) (symbol-function (quote epoch::get-screen-id))) (fset (quote epoch::make-screen) (symbol-function (quote epoch::get-screen))) (fset (quote font) (symbol-function (quote epoch::font))) (fset (quote query-mouse) (symbol-function (quote epoch::query-mouse))) (fset (quote query-pointer) (symbol-function (quote epoch::query-pointer))) (fset (quote query-cursor) (symbol-function (quote epoch::query-cursor))) (fset (quote query-cursor-pixels) (symbol-function (quote epoch::query-cursor-pixels))) (fset (quote ungrab-pointer) (symbol-function (quote epoch::ungrab-pointer))) (fset (quote warp-mouse) (symbol-function (quote epoch::warp-mouse))) (fset (quote warp-pointer) (symbol-function (quote epoch::warp-pointer))) (fset (quote coords-to-point) (symbol-function (quote epoch::coords-to-point))) (fset (quote screen-list) (symbol-function (quote epoch::screen-list))) (fset (quote move-screen) (symbol-function (quote epoch::move-screen))) (fset (quote mapraised-screen) (symbol-function (quote epoch::mapraised-screen))) (fset (quote screen-information) (symbol-function (quote epoch::screen-information))) (fset (quote plane-size) (symbol-function (quote epoch::plane-size))) (fset (quote screen-mapped-p) (symbol-function (quote epoch::screen-mapped-p))) (fset (quote change-screen-size) (symbol-function (quote epoch::change-screen-size))) (fset (quote intern-atom) (symbol-function (quote epoch::intern-atom))) (fset (quote unintern-atom) (symbol-function (quote epoch::unintern-atom))) (fset (quote resourcep) (symbol-function (quote epoch::resourcep))) (fset (quote string-to-resource) (symbol-function (quote epoch::string-to-resource))) (fset (quote resource-to-string) (symbol-function (quote epoch::resource-to-string))) (fset (quote resource-to-type) (symbol-function (quote epoch::resource-to-type))) (fset (quote set-resource-type) (symbol-function (quote epoch::set-resource-type))) (fset (quote get-property) (symbol-function (quote epoch::get-property))) (fset (quote set-property) (symbol-function (quote epoch::set-property))) (fset (quote get-cut-buffer) (symbol-function (quote epoch::get-cut-buffer))) (fset (quote store-cut-buffer) (symbol-function (quote epoch::store-cut-buffer))) (fset (quote send-client-message) (symbol-function (quote epoch::send-client-message))) (fset (quote xid-of-screen) (symbol-function (quote epoch::xid-of-screen))) (fset (quote query-tree) (symbol-function (quote epoch::query-tree))) (fset (quote rebind-key) (symbol-function (quote epoch::rebind-key))) (fset (quote mod-to-shiftmask) (symbol-function (quote epoch::mod-to-shiftmask))) (fset (quote get-font) (symbol-function (quote epoch::get-font))) (fset (quote flash-screen) (symbol-function (quote epoch::flash-screen))) (fset (quote set-bell) (symbol-function (quote epoch::set-bell))) (fset (quote move-zone) (symbol-function (quote epoch::move-zone))) (fset (quote make-zone) (symbol-function (quote epoch::make-zone))) (fset (quote zone-style) (symbol-function (quote epoch::zone-style))) (fset (quote zone-data) (symbol-function (quote epoch::zone-data))) (fset (quote zone-start) (symbol-function (quote epoch::zone-start))) (fset (quote zone-end) (symbol-function (quote epoch::zone-end))) (fset (quote zone-at) (symbol-function (quote epoch::zone-at))) (fset (quote zones-at) (symbol-function (quote epoch::zones-at))) (fset (quote delete-zone) (symbol-function (quote epoch::delete-zone))) (fset (quote delete-zone-at) (symbol-function (quote epoch::delete-zone-at))) (fset (quote zonep) (symbol-function (quote epoch::zonep))) (fset (quote zone-list) (symbol-function (quote epoch::zone-list))) (fset (quote zones-in-region) (symbol-function (quote epoch::zones-in-region))) (fset (quote read-only-region-p) (symbol-function (quote epoch::read-only-region-p))) (fset (quote zone-buffer) (symbol-function (quote epoch::zone-buffer))) (fset (quote set-zone-style) (symbol-function (quote epoch::set-zone-style))) (fset (quote set-zone-data) (symbol-function (quote epoch::set-zone-data))) (fset (quote zone-read-only-p) (symbol-function (quote epoch::zone-read-only-p))) (fset (quote set-zone-read-only) (symbol-function (quote epoch::set-zone-read-only))) (fset (quote zone-transient-p) (symbol-function (quote epoch::zone-transient-p))) (fset (quote set-zone-transient) (symbol-function (quote epoch::set-zone-transient))) (fset (quote clear-zones) (symbol-function (quote epoch::clear-zones))) (fset (quote number-of-colors) (symbol-function (quote epoch::number-of-colors))) (fset (quote color-components) (symbol-function (quote epoch::color-components))) (fset (quote get-color) (symbol-function (quote epoch::get-color))) (fset (quote free-color) (symbol-function (quote epoch::free-color))) (fset (quote get-color-rw) (symbol-function (quote epoch::get-color-rw))) (fset (quote set-color-rw) (symbol-function (quote epoch::set-color-rw))) (fset (quote stylep) (symbol-function (quote epoch::stylep))) (fset (quote make-style) (symbol-function (quote epoch::make-style))) (fset (quote style-foreground) (symbol-function (quote epoch::style-foreground))) (fset (quote style-background) (symbol-function (quote epoch::style-background))) (fset (quote style-cursor-foreground) (symbol-function (quote epoch::style-cursor-foreground))) (fset (quote style-cursor-background) (symbol-function (quote epoch::style-cursor-background))) (fset (quote style-underline) (symbol-function (quote epoch::style-underline))) (fset (quote style-font) (symbol-function (quote epoch::style-font))) (fset (quote style-stipple) (symbol-function (quote epoch::style-stipple))) (fset (quote style-cursor-stipple) (symbol-function (quote epoch::style-cursor-stipple))) (fset (quote style-background-stipple) (symbol-function (quote epoch::style-background-stipple))) (fset (quote set-style-foreground) (symbol-function (quote epoch::set-style-foreground))) (fset (quote set-style-background) (symbol-function (quote epoch::set-style-background))) (fset (quote set-style-cursor-foreground) (symbol-function (quote epoch::set-style-cursor-foreground))) (fset (quote set-style-cursor-background) (symbol-function (quote epoch::set-style-cursor-background))) (fset (quote set-style-underline) (symbol-function (quote epoch::set-style-underline))) (fset (quote set-style-font) (symbol-function (quote epoch::set-style-font))) (fset (quote set-style-stipple) (symbol-function (quote epoch::set-style-stipple))) (fset (quote set-style-cursor-stipple) (symbol-function (quote epoch::set-style-cursor-stipple))) (fset (quote set-style-background-stipple) (symbol-function (quote epoch::set-style-background-stipple))) (fset (quote set-style-tag) (symbol-function (quote epoch::set-style-tag))) (fset (quote style-tag) (symbol-function (quote epoch::style-tag))) (fset (quote make-bitmap) (symbol-function (quote epoch::make-bitmap))) (fset (quote load-bitmap) (symbol-function (quote epoch::load-bitmap))) (fset (quote free-bitmap) (symbol-function (quote epoch::free-bitmap))) (fset (quote acquire-selection) (symbol-function (quote epoch::acquire-selection))) (fset (quote get-selection-owner) (symbol-function (quote epoch::get-selection-owner))) (fset (quote convert-selection) (symbol-function (quote epoch::convert-selection))) (fset (quote get-default) (symbol-function (quote epoch::get-default))) (fset (quote reparent-screen) (symbol-function (quote epoch::reparent-screen))) (if (functionp (quote epoch::query-pixmap)) (progn (fset (quote query-pixmap) (symbol-function (quote epoch::query-pixmap))) (fset (quote define-opaque-font) (symbol-function (quote epoch::define-opaque-font))) (fset (quote read-pixmap-file) (symbol-function (quote epoch::read-pixmap-file))) (fset (quote set-style-pixmap) (symbol-function (quote epoch::set-style-pixmap))) (fset (quote style-pixmap) (symbol-function (quote epoch::style-pixmap)))))