Info panel update

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/apps/gorm/trunk@5941 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Richard Frith-MacDonald 2000-02-06 09:33:37 +00:00
parent 423ad37201
commit 8d00bfa6f2
3 changed files with 23 additions and 6 deletions

View file

@ -1,3 +1,8 @@
Sun Feb 6 8:44:00 2000 Richard Frith-Macdonald <richard@brainstorm.co.uk>
Removed InfoPanel.m and updated Gorm to use standard panel now that
NSApplication supports it.
Fri Feb 4 11:10:59 2000 Richard Frith-Macdonald <richard@brainstorm.co.uk>
* Palettes/0Menu/GormMenuInspectors.m: Added code for setting

View file

@ -77,7 +77,6 @@ Gorm_OBJC_FILES = \
GormDocument.m \
IBInspector.m \
IBPalette.m \
InfoPanel.m \
GormViewKnobs.m \
GormFilesOwner.m \
GormObjectEditor.m \

23
Gorm.m
View file

@ -528,11 +528,24 @@ NSAutoreleasePool *p = [NSAutoreleasePool new];
- (id) infoPanel: (id) sender
{
if (infoPanel == nil)
{
infoPanel = [InfoPanel new];
}
[infoPanel orderFront: nil];
NSMutableDictionary *d;
d = [NSMutableDictionary dictionaryWithCapacity: 8];
[d setObject: @"Gorm" forKey: @"ApplicationName"];
[d setObject: @"GNUstep Graphicsl Object Relationship Modeller"
forKey: @"ApplicationDescription"];
[d setObject: @"Gorm 0.1" forKey: @"ApplicationRelease"];
[d setObject: @"0.1 Feb 2000" forKey: @"FullVersionID"];
[d setObject: [NSArray arrayWithObject:
@"Richard Frith-Macdonald <richard@brainstorm.co.uk>"]
forKey: @"Authors"];
// [d setObject: @"See http://www.gnustep.org" forKey: @"URL"];
[d setObject: @"Copyright (C) 1999, 2000 Free Software Foundation, Inc."
forKey: @"Copyright"];
[d setObject: @"Released under the GNU General Public License 2.0"
forKey: @"CopyrightDescription"];
[self orderFrontStandardInfoPanelWithOptions: d];
return self;
}