[qwaq] Raise windows when clicked

ruamoko/qwaq/qwaq-group.r

@@ -76,6 +76,7 @@ makeFirst (Group *self, int viewIndex)
 
 	[self.views addObject: view];
 	[self.views removeObjectAtIndex: viewIndex];
+	[view raise];
 	return [self.views count] - 1;
 }
 

ruamoko/qwaq/qwaq-view.h

@@ -72,6 +72,7 @@ enum {
 -loseFocus;
 -(ListenerGroup *) onReceiveFocus;
 -(ListenerGroup *) onReleaseFocus;
+-raise;
 
 - (void) onMouseEnter: (Point) pos;
 - (void) onMouseLeave: (Point) pos;

ruamoko/qwaq/qwaq-view.r

@@ -288,6 +288,11 @@ updateScreenCursor (View *view)
 	return onReleaseFocus;
 }
 
+-raise
+{
+	return self;
+}
+
 - (void) onMouseEnter: (Point) pos
 {
 }

ruamoko/qwaq/qwaq-window.r

@@ -213,6 +213,13 @@
 	return self;
 }
 
+-raise
+{
+	top_panel (panel);
+	[self redraw];
+	return self;
+}
+
 -insert: (View *) view
 {
 	[objects insert: view];