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

Fix word style, and NSOpenPanel crash

slava 2006-05-19 19:29:22 +00:00
parent 7b1cdc1e31
commit c1803e1a4e
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
TODO.FACTOR.txt
View File

@ -1,7 +1,5 @@
- remove F_USERENV rel - remove F_USERENV rel
- cocoa exceptions are broken
- method ordering and interpreter algorithm sections need updates - method ordering and interpreter algorithm sections need updates
- run file dialog is broken
- update walker for new interpreter - update walker for new interpreter
- quotations should store their originating word - quotations should store their originating word
- core foundation should use unicode strings - core foundation should use unicode strings

5
library/cocoa/dialogs.factor
View File

@ -9,12 +9,11 @@ sequences ;
dup 1 [setCanChooseFiles:] dup 1 [setCanChooseFiles:]
dup 0 [setCanChooseDirectories:] dup 0 [setCanChooseDirectories:]
dup 1 [setResolvesAliases:] dup 1 [setResolvesAliases:]
dup 1 [setAllowsMultipleSelection:] dup 1 [setAllowsMultipleSelection:] ;
[autorelease] ;
: NSOKButton 1 ; : NSOKButton 1 ;
: NSCancelButton 0 ; : NSCancelButton 0 ;
: open-panel ( -- paths ) : open-panel ( -- paths )
<NSOpenPanel> dup f [runModalForTypes:] NSOKButton = <NSOpenPanel> dup f [runModalForTypes:] NSOKButton =
[ [filenames] CF>array [ CF>string ] map ] [ f ] if ; [ [filenames] CF>array [ CF>string ] map ] [ drop f ] if ;

5
library/syntax/prettyprint.factor
View File

@ -158,7 +158,10 @@ M: block pprint-section* ( block -- )
GENERIC: pprint* ( obj -- ) GENERIC: pprint* ( obj -- )
: word-style ( word -- style ) : word-style ( word -- style )
parsing? H{ { font-style bold } } H{ } ? ; [
dup presented set
parsing? [ bold font-style set ] when
] make-hash ;
: pprint-word ( obj -- ) : pprint-word ( obj -- )
dup word-name [ "( ? )" ] unless* dup word-name [ "( ? )" ] unless*