[qwaq] Set the window title to the file name

ruamoko/qwaq/qwaq-debugger.r

@@ -52,6 +52,7 @@
 	file_proxy = [[ProxyView alloc] initWithView: current_file];
 	//FIXME id<View>?
 	[source_window insertSelected: (View *) file_proxy];
+	[source_window setTitle: [current_file filename]];
 	[source_window redraw];
 }
 

ruamoko/qwaq/qwaq-window.h

@@ -5,6 +5,7 @@
 
 @class Group;
 @class Button;
+@class TitleBar;
 
 #include "qwaq-draw.h"
 #include "qwaq-rect.h"
@@ -25,8 +26,10 @@
 	Button     *bottomLeftDrag;
 	Button     *bottomRightDrag;
 	Button     *bottomDrag;
+	TitleBar   *titleBar;
 }
 +windowWithRect: (Rect) rect;
+-setTitle:(string) title;
 -setBackground: (int) ch;
 -insert: (View *) view;
 -insertDrawn: (View *) view;

ruamoko/qwaq/qwaq-window.r

@@ -28,7 +28,7 @@
 
 	objects = [[Group alloc] initWithContext: textContext owner: self];
 
-	[self insert: [[TitleBar alloc] initWithTitle:"drag me"]];
+	[self insert: titleBar = [[TitleBar alloc] initWithTitle:""]];
 
 	topDrag         = [[Button alloc] initWithRect: {{2, 0},
 													 {xlen - 4, 1}}];
@@ -74,6 +74,12 @@
 	return self;
 }
 
+-setTitle:(string) title
+{
+	[titleBar setTitle:title];
+	return self;
+}
+
 #ifndef max
 # define max(a,b) ((a) > (b) ? (a) : (b))
 #endif