Window palette

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/apps/gorm/trunk@5414 72102866-910b-0410-8b05-ffd578937521

Window/GNUmakefile

@@ -0,0 +1,39 @@
+#   GNUmakefile 
+#
+#   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 $(GNUSTEP_MAKEFILES)/common.make
+
+PALETTE_NAME = Window
+PALETTE_ICON = WindowPalette
+Window_OBJC_FILES = Window.m
+Window_PALETTE_CLASS = WindowPalette
+Window_RESOURCE_FILES = WindowPalette.tiff WindowDrag.tiff
+
+-include GNUmakefile.preamble
+
+-include GNUmakefile.local
+
+include $(GNUSTEP_MAKEFILES)/palette.make
+
+-include GNUmakefile.postamble
+

Window/Window.m

@@ -0,0 +1,131 @@
+/* Window.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 <AppKit/GSHbox.h>
+#include "../Gorm.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 WindowPalette: IBPalette
+{
+}
+@end
+
+@implementation WindowPalette
+- (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
+