diff --git a/basis/cocoa/application/application-docs.factor b/basis/cocoa/application/application-docs.factor index 791613e876..e12b6eb276 100644 --- a/basis/cocoa/application/application-docs.factor +++ b/basis/cocoa/application/application-docs.factor @@ -1,5 +1,5 @@ USING: debugger quotations help.markup help.syntax strings alien -core-foundation ; +core-foundation core-foundation.strings core-foundation.arrays ; IN: cocoa.application HELP: diff --git a/basis/cocoa/application/application.factor b/basis/cocoa/application/application.factor index e2c853ea77..a52aaedce2 100644 --- a/basis/cocoa/application/application.factor +++ b/basis/cocoa/application/application.factor @@ -1,9 +1,10 @@ ! Copyright (C) 2006, 2008 Slava Pestov ! See http://factorcode.org/license.txt for BSD license. USING: alien alien.syntax io kernel namespaces core-foundation -core-foundation.run-loop cocoa.messages cocoa cocoa.classes -cocoa.runtime sequences threads init summary kernel.private -assocs ; +core-foundation.run-loop core-foundation.arrays +core-foundation.data core-foundation.strings cocoa.messages +cocoa cocoa.classes cocoa.runtime sequences threads init summary +kernel.private assocs ; IN: cocoa.application : ( str -- alien ) -> autorelease ; diff --git a/basis/cocoa/cocoa.factor b/basis/cocoa/cocoa.factor index ab86796236..44252a3b19 100644 --- a/basis/cocoa/cocoa.factor +++ b/basis/cocoa/cocoa.factor @@ -2,8 +2,8 @@ ! See http://factorcode.org/license.txt for BSD license. USING: compiler io kernel cocoa.runtime cocoa.subclassing cocoa.messages cocoa.types sequences words vocabs parser -core-foundation namespaces assocs hashtables compiler.units -lexer init ; +core-foundation.bundles namespaces assocs hashtables +compiler.units lexer init ; IN: cocoa : (remember-send) ( selector variable -- ) diff --git a/basis/cocoa/dialogs/dialogs.factor b/basis/cocoa/dialogs/dialogs.factor index 2b01c5d751..13f6f0b7d6 100644 --- a/basis/cocoa/dialogs/dialogs.factor +++ b/basis/cocoa/dialogs/dialogs.factor @@ -1,7 +1,8 @@ ! Copyright (C) 2006, 2008 Slava Pestov ! See http://factorcode.org/license.txt for BSD license. USING: kernel cocoa cocoa.messages cocoa.classes -cocoa.application sequences splitting core-foundation ; +cocoa.application sequences splitting core-foundation +core-foundation.strings ; IN: cocoa.dialogs : ( -- panel ) diff --git a/basis/cocoa/nibs/nibs.factor b/basis/cocoa/nibs/nibs.factor index 31dac2531b..a39cc794d0 100644 --- a/basis/cocoa/nibs/nibs.factor +++ b/basis/cocoa/nibs/nibs.factor @@ -1,5 +1,8 @@ -USING: cocoa.application cocoa.messages cocoa.classes cocoa.runtime -kernel cocoa core-foundation alien.c-types ; +! Copyright (C) 2008 Slava Pestov. +! See http://factorcode.org/license.txt for BSD license. +USING: cocoa.application cocoa.messages cocoa.classes +cocoa.runtime kernel cocoa alien.c-types core-foundation +core-foundation.arrays ; IN: cocoa.nibs : load-nib ( name -- ) diff --git a/basis/cocoa/pasteboard/pasteboard.factor b/basis/cocoa/pasteboard/pasteboard.factor index b530ccbc37..888f5452e2 100644 --- a/basis/cocoa/pasteboard/pasteboard.factor +++ b/basis/cocoa/pasteboard/pasteboard.factor @@ -1,8 +1,8 @@ ! Copyright (C) 2006, 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: alien.accessors arrays kernel cocoa.messages -cocoa.classes cocoa.application cocoa core-foundation sequences -; +cocoa.classes cocoa.application sequences cocoa core-foundation +core-foundation.strings core-foundation.arrays ; IN: cocoa.pasteboard : NSStringPboardType "NSStringPboardType" ; diff --git a/basis/cocoa/plists/plists.factor b/basis/cocoa/plists/plists.factor index bb73b8fac3..cf68f9864a 100644 --- a/basis/cocoa/plists/plists.factor +++ b/basis/cocoa/plists/plists.factor @@ -3,7 +3,7 @@ USING: strings arrays hashtables assocs sequences cocoa.messages cocoa.classes cocoa.application cocoa kernel namespaces io.backend math cocoa.enumeration byte-arrays -combinators alien.c-types core-foundation ; +combinators alien.c-types core-foundation core-foundation.data ; IN: cocoa.plists GENERIC: >plist ( value -- plist ) diff --git a/basis/core-foundation/run-loop/run-loop.factor b/basis/core-foundation/run-loop/run-loop.factor index b7e565e70f..475991a246 100644 --- a/basis/core-foundation/run-loop/run-loop.factor +++ b/basis/core-foundation/run-loop/run-loop.factor @@ -1,8 +1,8 @@ ! Copyright (C) 2008 Slava Pestov ! See http://factorcode.org/license.txt for BSD license. -USING: alien alien.syntax kernel namespaces -core-foundation core-foundation.strings -core-foundation.file-descriptors ; +USING: alien alien.syntax kernel namespaces core-foundation +core-foundation.strings core-foundation.file-descriptors +core-foundation.timers ; IN: core-foundation.run-loop : kCFRunLoopRunFinished 1 ; inline @@ -40,6 +40,18 @@ FUNCTION: void CFRunLoopRemoveSource ( CFStringRef mode ) ; +FUNCTION: void CFRunLoopAddTimer ( + CFRunLoopRef rl, + CFRunLoopTimerRef timer, + CFStringRef mode +) ; + +FUNCTION: void CFRunLoopRemoveTimer ( + CFRunLoopRef rl, + CFRunLoopTimerRef timer, + CFStringRef mode +) ; + : CFRunLoopDefaultMode ( -- alien ) #! Ugly, but we don't have static NSStrings \ CFRunLoopDefaultMode get-global dup expired? [ diff --git a/basis/core-foundation/timers/timers.factor b/basis/core-foundation/timers/timers.factor new file mode 100644 index 0000000000..eddeb87d1d --- /dev/null +++ b/basis/core-foundation/timers/timers.factor @@ -0,0 +1,27 @@ +! Copyright (C) 2008 Slava Pestov. +! See http://factorcode.org/license.txt for BSD license. +USING: alien.syntax ; +IN: core-foundation.timers + +TYPEDEF: void* CFRunLoopTimerRef +TYPEDEF: void* CFRunLoopTimerCallBack +TYPEDEF: void* CFRunLoopTimerContext + +FUNCTION: CFRunLoopTimerRef CFRunLoopTimerCreate ( + CFAllocatorRef allocator, + CFAbsoluteTime fireDate, + CFTimeInterval interval, + CFOptionFlags flags, + CFIndex order, + CFRunLoopTimerCallBack callout, + CFRunLoopTimerContext* context +) ; + +FUNCTION: void CFRunLoopTimerInvalidate ( + CFRunLoopTimerRef timer +); + +FUNCTION: void CFRunLoopTimerSetNextFireDate ( + CFRunLoopTimerRef timer, + CFAbsoluteTime fireDate +) ; diff --git a/basis/ui/cocoa/tools/tools.factor b/basis/ui/cocoa/tools/tools.factor index ccaae0c1ab..a0755e9ec8 100644 --- a/basis/ui/cocoa/tools/tools.factor +++ b/basis/ui/cocoa/tools/tools.factor @@ -1,10 +1,10 @@ -! Copyright (C) 2006, 2007 Slava Pestov. +! Copyright (C) 2006, 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: alien.syntax cocoa cocoa.nibs cocoa.application cocoa.classes cocoa.dialogs cocoa.pasteboard cocoa.subclassing -core-foundation help.topics kernel memory namespaces parser -system ui ui.tools.browser ui.tools.listener ui.tools.workspace -ui.cocoa eval locals ; +core-foundation core-foundation.strings help.topics kernel +memory namespaces parser system ui ui.tools.browser +ui.tools.listener ui.tools.workspace ui.cocoa eval locals ; IN: ui.cocoa.tools : finder-run-files ( alien -- ) diff --git a/basis/ui/cocoa/views/views.factor b/basis/ui/cocoa/views/views.factor index 7bb9679132..3201779cc5 100644 --- a/basis/ui/cocoa/views/views.factor +++ b/basis/ui/cocoa/views/views.factor @@ -4,7 +4,7 @@ USING: accessors alien alien.c-types arrays assocs cocoa kernel math cocoa.messages cocoa.subclassing cocoa.classes cocoa.views cocoa.application cocoa.pasteboard cocoa.types cocoa.windows sequences ui ui.gadgets ui.gadgets.worlds ui.gestures -core-foundation threads combinators math.geometry.rect ; +core-foundation.strings threads combinators math.geometry.rect ; IN: ui.cocoa.views : send-mouse-moved ( view event -- )