apps-gorm/Palettes/1Windows/main.m
Richard Frith-MacDonald 5c17f3142d Improvements for testing etc
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/apps/gorm/trunk@5649 72102866-910b-0410-8b05-ffd578937521
2000-01-03 11:00:14 +00:00

227 lines
5.5 KiB
Objective-C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/* main.m
Copyright (C) 1999 Free Software Foundation, Inc.
Author: Richard frith-Macdonald (richard@brainstorm.co.uk>
Date: 1999
This file is part of GNUstep.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
#include <Foundation/Foundation.h>
#include <AppKit/AppKit.h>
#include "../../GormPrivate.h"
@interface GormWindowMaker : NSObject <NSCoding>
{
}
@end
@implementation GormWindowMaker
- (void) encodeWithCoder: (NSCoder*)aCoder
{
[super encodeWithCoder: aCoder];
}
- (id) initWithCoder: (NSCoder*)aCoder
{
id w;
unsigned style = NSTitledWindowMask | NSClosableWindowMask
| NSResizableWindowMask | NSMiniaturizableWindowMask;
w = [[NSWindow alloc] initWithContentRect: NSMakeRect(0, 0, 400, 200)
styleMask: style
backing: NSBackingStoreRetained
defer: NO];
[w setTitle: @"Window"];
RELEASE(self);
return w;
}
@end
@interface GormPanelMaker : NSObject <NSCoding>
{
}
@end
@implementation GormPanelMaker
- (void) encodeWithCoder: (NSCoder*)aCoder
{
[super encodeWithCoder: aCoder];
}
- (id) initWithCoder: (NSCoder*)aCoder
{
id w;
unsigned style = NSTitledWindowMask | NSClosableWindowMask
| NSResizableWindowMask | NSMiniaturizableWindowMask;
w = [[NSPanel alloc] initWithContentRect: NSMakeRect(0, 0, 400, 200)
styleMask: style
backing: NSBackingStoreRetained
defer: NO];
[w setTitle: @"Panel"];
RELEASE(self);
return w;
}
@end
@interface WindowsPalette: IBPalette
{
}
@end
@implementation WindowsPalette
- (void) finishInstantiate
{
NSView *contents;
id w;
id v;
NSBundle *bundle = [NSBundle bundleForClass: [self class]];
NSString *path = [bundle pathForImageResource: @"WindowDrag"];
NSImage *dragImage = [[NSImage alloc] initWithContentsOfFile: path];
window = [[NSWindow alloc] initWithContentRect: NSMakeRect(0, 0, 272, 192)
styleMask: NSBorderlessWindowMask
backing: NSBackingStoreRetained
defer: NO];
contents = [window contentView];
w = [GormWindowMaker new];
v = [[NSButton alloc] initWithFrame: NSMakeRect(35, 60, 80, 64)];
[v setBordered: NO];
[v setImage: dragImage];
[v setImagePosition: NSImageOverlaps];
[v setTitle: @"Window"];
[contents addSubview: v];
[self associateObject: w
type: IBWindowPboardType
with: v];
RELEASE(v);
RELEASE(w);
w = [GormPanelMaker new];
v = [[NSButton alloc] initWithFrame: NSMakeRect(155, 60, 80, 64)];
[v setBordered: NO];
[v setImage: dragImage];
[v setImagePosition: NSImageOverlaps];
[v setTitle: @"Panel"];
[contents addSubview: v];
[self associateObject: w
type: IBWindowPboardType
with: v];
RELEASE(v);
RELEASE(w);
RELEASE(dragImage);
}
@end
@implementation NSWindow (IBInspectorClassNames)
- (NSString*) inspectorClassName
{
return @"GormWindowAttributesInspector";
}
@end
@interface GormWindowAttributesInspector : IBInspector
{
NSButton *visibleAtLaunchTime;
}
@end
@implementation GormWindowAttributesInspector
- (void) dealloc
{
RELEASE(window);
[super dealloc];
}
- (id) init
{
self = [super init];
if (self != nil)
{
NSView *contents;
NSBox *box;
window = [[NSWindow alloc] initWithContentRect: NSMakeRect(0, 0, 272, 360)
styleMask: NSBorderlessWindowMask
backing: NSBackingStoreRetained
defer: NO];
contents = [window contentView];
box = [[NSBox alloc] initWithFrame: NSMakeRect(10, 300, 100, 50)];
[box setTitle: @"Backing"];
[box setBorderType: NSGrooveBorder];
[contents addSubview: box];
RELEASE(box);
box = [[NSBox alloc] initWithFrame: NSMakeRect(10, 10, 210, 250)];
[box setTitle: @"Options"];
[box setBorderType: NSGrooveBorder];
[contents addSubview: box];
RELEASE(box);
visibleAtLaunchTime
= [[NSButton alloc] initWithFrame: NSMakeRect(10, 10, 180, 20)];
[visibleAtLaunchTime setButtonType: NSSwitchButton];
[visibleAtLaunchTime setBordered: NO];
[visibleAtLaunchTime setImagePosition: NSImageRight];
[visibleAtLaunchTime setTitle: @"Visible at launch time:"];
[visibleAtLaunchTime setTarget: self];
[visibleAtLaunchTime setAction: @selector(ok:)];
[box addSubview: visibleAtLaunchTime];
RELEASE(visibleAtLaunchTime);
}
return self;
}
- (void) ok: (id)sender
{
GormDocument *doc = (GormDocument*)[(id<IB>)NSApp activeDocument];
if (sender == visibleAtLaunchTime)
{
if ([sender state] == NSOnState)
{
[doc setObject: object isVisibleAtLaunch: YES];
}
else
{
[doc setObject: object isVisibleAtLaunch: NO];
}
}
}
- (void) setObject: (id)anObject
{
GormDocument *doc = (GormDocument*)[(id<IB>)NSApp activeDocument];
[super setObject: anObject];
if ([doc objectIsVisibleAtLaunch: object] == YES)
{
[visibleAtLaunchTime setState: NSOnState];
}
else
{
[visibleAtLaunchTime setState: NSOffState];
}
}
@end