diff --git a/basis/ui/backend/cocoa/views/views.factor b/basis/ui/backend/cocoa/views/views.factor index 34785ac748..a4f51e4456 100644 --- a/basis/ui/backend/cocoa/views/views.factor +++ b/basis/ui/backend/cocoa/views/views.factor @@ -2,13 +2,12 @@ ! See http://factorcode.org/license.txt for BSD license. USING: accessors alien alien.c-types alien.data alien.strings arrays assocs cocoa cocoa.application cocoa.classes -cocoa.pasteboard cocoa.runtime cocoa.subclassing cocoa.touchbar -cocoa.types cocoa.views combinators core-foundation.strings -core-graphics core-graphics.types core-text io.encodings.utf8 -kernel literals locals math math.rectangles namespaces opengl -sequences threads ui.gadgets ui.gadgets.private -ui.gadgets.worlds ui.gestures ui.private ui.tools.listener -vocabs.refresh ; +cocoa.pasteboard cocoa.runtime cocoa.subclassing cocoa.types +cocoa.views combinators core-foundation.strings core-graphics +core-graphics.types core-text io.encodings.utf8 kernel literals +locals math math.rectangles namespaces opengl sequences threads +ui.gadgets ui.gadgets.private ui.gadgets.worlds ui.gestures +ui.private ; IN: ui.backend.cocoa.views : send-mouse-moved ( view event -- ) @@ -183,29 +182,6 @@ CONSTANT: selector>action H{ ] when ] ; - METHOD: void refreshAllAction [ - [ refresh-all ] \ refresh-all call-listener - ] ; - - METHOD: void autoUseAction [ - [ com-auto-use ] \ com-auto-use call-listener - ] ; - - METHOD: Class makeTouchBar [ default-touchbar self make-touchbar ] ; - - METHOD: Class touchBar: Class touchbar makeItemForIdentifier: Class string [ - string CF>string - { - { "refresh-all-action" [ - self "refresh-all-action" "refresh-all" "refreshAllAction" make-NSTouchBar-button - ] } - { "auto-use-action" [ - self "auto-use-action" "auto-use" "autoUseAction" make-NSTouchBar-button - ] } - [ drop f ] - } case - ] ; - ! Rendering METHOD: void drawRect: NSRect rect [ self window [ draw-world ] when* ] ;