Changeset 404 for trunk/Cocoa/F-Script Anywhere

Timestamp:

02/24/08 09:58:02 (17 years ago)

Author:

Nicholas Riley

Message:

Leopard-ize UI.

Location:

trunk/Cocoa/F-Script Anywhere/Source

Files:

• English.lproj/FSAInterpreterPanel.nib/classes.nib (deleted)
• English.lproj/FSAInterpreterPanel.nib/designable.nib (added)
• English.lproj/FSAInterpreterPanel.nib/info.nib (deleted)
• English.lproj/FSAInterpreterPanel.nib/keyedobjects.nib (modified) ( previous)
• FSAController.h (modified) (1 diff)
• FSAController.m (modified) (2 diffs)

trunk/Cocoa/F-Script Anywhere/Source/FSAController.h

@@ -33 +33 @@
 @interface FSAController : NSWindowController {
     IBOutlet FSInterpreterView *interpreterView;
+    IBOutlet NSButtonCell *floatButtonCell;
+    IBOutlet NSButton *openBrowserButton;
+    IBOutlet NSButton *associateWithInterfaceButton;
     System *system;
     FSAViewAssociationController *viewAssociationController;

trunk/Cocoa/F-Script Anywhere/Source/FSAController.m

@@ -40 +40 @@
 @interface FSInterpreterView (FSAWorkaround)
 - (CLIView *)cliView;
+@end
+
+@interface NSWindow (RoundedCorners)
+- (void)setBottomCornerRounded:(BOOL)yn;
 @end
 
@@ -153 +157 @@
         if (showInterpreter) {
             NSAssert(window != nil, @"Can't get interpreter window!");
+            if ([window respondsToSelector: @selector(setBottomCornerRounded:)])
+                [window setBottomCornerRounded: NO]; // XXX otherwise we get black areas because the window isn't rounded
+            [window setContentBorderThickness: 30 forEdge: NSMinYEdge];
+            // XXX why oh why is text not vertically centered in standard-sized buttons?
+            [openBrowserButton setFrameSize: NSMakeSize([openBrowserButton frame].size.width, 19)];
+            [associateWithInterfaceButton setFrameSize: NSMakeSize([associateWithInterfaceButton frame].size.width, 19)];
+            [floatButtonCell setBackgroundStyle: NSBackgroundStyleRaised];
             if (interpreterNum == 0) interpreterNum = ++numInterpWindows;
             if ( (label = [self interpreterLabel]) != nil) {