steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Debugging system services support (Mac OS X)

slava 2006-07-29 23:37:50 +00:00
parent 0b8c907ec5
commit adef6a2f04
3 changed files with 19 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
TODO.FACTOR.txt
View File

@ -15,7 +15,6 @@
- history: move caret to end - history: move caret to end
- finish gui stepper - finish gui stepper
- graphical module manager tool - graphical module manager tool
- make factor a services client
- services do not launch if factor not running - services do not launch if factor not running
- integrated error documentation - integrated error documentation
- roundoff is still not quite right with tracks - roundoff is still not quite right with tracks

2
library/ui/cocoa/load.factor
View File

@ -6,11 +6,11 @@ USING: compiler io parser sequences words ;
"/library/ui/cocoa/init-cocoa.factor" "/library/ui/cocoa/init-cocoa.factor"
"/library/ui/cocoa/callback.factor" "/library/ui/cocoa/callback.factor"
"/library/ui/cocoa/application-utils.factor" "/library/ui/cocoa/application-utils.factor"
"/library/ui/cocoa/pasteboard-utils.factor"
"/library/ui/cocoa/view-utils.factor" "/library/ui/cocoa/view-utils.factor"
"/library/ui/cocoa/window-utils.factor" "/library/ui/cocoa/window-utils.factor"
"/library/ui/cocoa/dialogs.factor" "/library/ui/cocoa/dialogs.factor"
"/library/ui/cocoa/menu-bar.factor" "/library/ui/cocoa/menu-bar.factor"
"/library/ui/cocoa/pasteboard-utils.factor"
"/library/ui/cocoa/services.factor" "/library/ui/cocoa/services.factor"
"/library/ui/cocoa/ui.factor" "/library/ui/cocoa/ui.factor"
} [ } [

8
library/ui/cocoa/view-utils.factor
View File

@ -94,11 +94,11 @@ opengl sequences ;
r> add-observer ; r> add-observer ;
: string-or-nil? ( NSString -- ? ) : string-or-nil? ( NSString -- ? )
[ dup CF>string NSStringPboardType = ] [ t ] if* ; [ CF>string NSStringPboardType = ] [ t ] if* ;
: valid-service? ( gadget send-type return-type -- ? ) : valid-service? ( gadget send-type return-type -- ? )
over string-or-nil? over string-or-nil? and [ over string-or-nil? over string-or-nil? and [
drop [ swap gadget-selection? ] [ 2drop t ] if drop [ gadget-selection? ] [ drop t ] if
] [ ] [
3drop f 3drop f
] if ; ] if ;
@ -199,6 +199,7 @@ opengl sequences ;
} }
{ "writeSelectionToPasteboard:types:" "bool" { "id" "SEL" "id" "id" } { "writeSelectionToPasteboard:types:" "bool" { "id" "SEL" "id" "id" }
[
CF>string-array NSStringPboardType swap member? [ CF>string-array NSStringPboardType swap member? [
>r drop window-focus gadget-selection dup [ >r drop window-focus gadget-selection dup [
r> set-pasteboard-string t r> set-pasteboard-string t
@ -208,14 +209,17 @@ opengl sequences ;
] [ ] [
3drop f 3drop f
] if ] if
]
} }
{ "readSelectionFromPasteboard:" "bool" { "id" "SEL" "id" } { "readSelectionFromPasteboard:" "bool" { "id" "SEL" "id" }
[
pasteboard-string dup [ pasteboard-string dup [
>r drop window-focus r> swap user-input t >r drop window-focus r> swap user-input t
] [ ] [
3drop f 3drop f
] if ] if
]
} }
{ "updateFactorGadgetSize:" "void" { "id" "SEL" "id" } { "updateFactorGadgetSize:" "void" { "id" "SEL" "id" }