Adding support for the "run" command and acutally using the session name
[macgdbp.git] / Source / DebuggerWindowController.m
1 /*
2 * MacGDBp
3 * Copyright (c) 2002 - 2007, Blue Static <http://www.bluestatic.org>
4 *
5 * This program is free software; you can redistribute it and/or modify it under the terms of the GNU
6 * General Public License as published by the Free Software Foundation; either version 2 of the
7 * License, or (at your option) any later version.
8 *
9 * This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without
10 * even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
11 * General Public License for more details.
12 *
13 * You should have received a copy of the GNU General Public License along with this program; if not,
14 * write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
15 */
16
17 #import "DebuggerWindowController.h"
18 #import "DebuggerConnection.h"
19
20 @implementation DebuggerWindowController
21
22 /**
23 * Initializes the window controller and sets the connection
24 */
25 - (id)initWithConnection: (DebuggerConnection *)cnx
26 {
27 if (self = [super initWithWindowNibName: @"Debugger"])
28 {
29 _connection = [cnx retain];
30 // TODO - get the host from SocketWrapper and use that in the title
31 [[self window] setTitle: [NSString stringWithFormat: @"GDBp @ localhost:%d/%@", [_connection port], [_connection session]]];
32 }
33 return self;
34 }
35
36 /**
37 * Release object members
38 */
39 - (void)dealloc
40 {
41 [_connection release];
42
43 [super dealloc];
44 }
45
46 /**
47 * Sets the status and clears any error message
48 */
49 - (void)setStatus: (NSString *)status
50 {
51 [_error setHidden: YES];
52 [_status setStringValue: status];
53 }
54
55 /**
56 * Sets the status to be "Error" and then displays the error message
57 */
58 - (void)setError: (NSString *)error
59 {
60 [_error setStringValue: error];
61 [self setStatus: @"Error"];
62 [_error setHidden: NO];
63 }
64
65 /**
66 * Forwards the message to run script execution to the connection
67 */
68 - (IBAction)run: (id)sender
69 {
70 [_connection run];
71 }
72
73 @end