Navigation

Changeset 3931

Timestamp:

03/19/06 16:21:11 (2 years ago)

Author:

morris

Message:

Use WIApplication to get a standard release notes window

Files:

r2913	r3931
2	2	CFBundleName = "Tuna";
3	3	CFBundleShortVersionString = "1.0.1";
4		CFBundleGetInfoString = "~~1.0.1, Copyright © 2005~~ Zanka Software.";
5		NSHumanReadableCopyright = "Copyright © 2005 Zanka Software.";
	4	CFBundleGetInfoString = "Tuna 1.0.1, Copyright © 2005-2006 Zanka Software.";
	5	NSHumanReadableCopyright = "Copyright © 2005-2006 Zanka Software.";

r3409	r3931
15	15	},
16	16	{
17		ACTIONS = {manual = id; newDocument = id; ~~releaseNotes = id; tutorial = id;~~ };
	17	ACTIONS = {manual = id; newDocument = id; };
18	18	CLASS = TNMainController;
19	19	LANGUAGE = ObjC;
	20	SUPERCLASS = WIObject;
	21	},
	22	{
	23	ACTIONS = {orderFrontReleaseNotesWindow = id; };
	24	CLASS = WIApplication;
	25	LANGUAGE = ObjC;
20	26	OUTLETS = {"_releaseNotesTextView" = NSTextView; "_releaseNotesWindow" = NSWindow; };
21		SUPERCLASS = ~~WIObject~~;
	27	SUPERCLASS = NSApplication;
22	28	},
23	29	{CLASS = WIObject; LANGUAGE = ObjC; SUPERCLASS = NSObject; }

r2814	r3931
39	39	<string>MainMenu</string>
40	40	<key>NSPrincipalClass</key>
41		<string>NSApplication</string>
	41	<string>WIApplication</string>
42	42	</dict>
43	43	</plist>

r3401	r3931
2	2
3	3	/*
4		* Copyright (c) 2005 Axel Andersson
	4	* Copyright (c) 2005-2006 Axel Andersson
5	5	* All rights reserved.
6	6	*
…	…
27	27	*/
28	28
29		@interface TNMainController : WIObject {
30		IBOutlet NSWindow *_releaseNotesWindow;
31		IBOutlet NSTextView *_releaseNotesTextView;
32		}
33
	29	@interface TNMainController : WIObject
34	30
35	31	- (IBAction)newDocument:(id)sender;
36	32
37		~~- (IBAction)releaseNotes:(id)sender;~~
38	33	- (IBAction)manual:(id)sender;
39	34

r2839	r3931
2	2
3	3	/*
4		* Copyright (c) 2005 Axel Andersson
	4	* Copyright (c) 2005-2006 Axel Andersson
5	5	* All rights reserved.
6	6	*
…	…
42	42
43	43
44		~~- (IBAction)releaseNotes:(id)sender {~~
45		~~NSAttributedString *string;~~
46		~~NSString *path;~~
47
48		~~if([[_releaseNotesTextView string] length] == 0) {~~
49		~~path = [[self bundle] pathForResource:@"ReleaseNotes" ofType:@"rtf"];~~
50		~~string = [[NSAttributedString alloc] initWithRTF:[NSData dataWithContentsOfFile:path]~~
51		~~documentAttributes:NULL];~~
52
53		~~[_releaseNotesTextView setAttributedString:string];~~
54		~~[string release];~~
55		}
56
57		~~[_releaseNotesWindow makeKeyAndOrderFront:self];~~
58		}
59
60
61
62	44	- (IBAction)manual:(id)sender {
63	45	[[NSWorkspace sharedWorkspace] openURL:[NSURL URLWithString:@"http://www.zankasoftware.com/tuna/manual"]];