AnaGram interim repo (temporary): anagram/vaclgui/frame.cpp annotate

author	David A. Holland
date	Sat, 22 Dec 2007 17:52:45 -0500
parents
children

rev	line source
0 13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	1 /*
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	2 * AnaGram, A System for Syntax Directed Programming
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	3 * Copyright 1997-2002 Parsifal Software. All Rights Reserved.
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	4 * See the file COPYING for license and usage terms.
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	5 *
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	6 * frame.cpp
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	7 */
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	8
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	9 #include <imnitem.hpp>
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	10 #include <ipopmenu.hpp>
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	11 #include <windows.h>
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	12
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	13 #include "action.h"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	14 #include "agstring.h"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	15 #include "ctrlpanel.hpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	16 #include "frame.hpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	17 #include "helpview.hpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	18 #include "myalloc.h"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	19 #include "vaclgui-res.h"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	20 #include "vaclgui.hpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	21
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	22 //#define INCLUDE_LOGGING
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	23 #include "log.h"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	24
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	25
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	26 int AgFrame::activeWindowCount = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	27 AgFrame *AgFrame::activeWindow = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	28 IPopUpMenu *AgFrame::activePopUpMenu = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	29
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	30 IWindow *AgFrame::frameParent = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	31 IWindow *AgFrame::frameOwner = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	32 AgArray<AgMenuItem> AgFrame::activeAuxMenu;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	33 int AgFrame::menuShowingFlag = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	34
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	35
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	36 Boolean AgHelpHandler::showHelp(IEvent &event) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	37 LOGSECTION("AgHelpHandler::showHelp");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	38 return false;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	39 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	40
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	41 Boolean HelpDemon::showHelp(IEvent &event) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	42 AgHelpWindow::showHelp(topic);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	43 return true;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	44 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	45
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	46 Boolean HelpDemon::mouseClicked(IMouseClickEvent &event) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	47 LOGSECTION("HelpDemon::mouseClicked");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	48 LOGV(event.mouseButton()) LCV(event.mouseAction());
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	49 LOGV(ControlPanel::helpCursorSet);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	50 if (ControlPanel::helpCursorSet) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	51 if (event.mouseButton() == IMouseClickEvent::button2) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	52 return false;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	53 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	54 if (event.mouseAction() == IMouseClickEvent::down) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	55 AgHelpWindow::showHelp(topic);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	56 ControlPanel::helpCursorSet = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	57 ControlPanel::resetCursor();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	58 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	59 return true;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	60 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	61 return false;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	62 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	63
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	64 HelpDemon::HelpDemon(IWindow *w, AgString t)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	65 : window(w)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	66 , topic(t)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	67 {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	68 AgHelpHandler::handleEventsFor(window);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	69 IMouseHandler::handleEventsFor(window);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	70 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	71
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	72 HelpDemon::~HelpDemon() {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	73 //if (!topic.exists()) return;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	74 LOGSECTION("HelpDemon::~HelpDemon");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	75 LOGV((int) &window);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	76 AgHelpHandler::stopHandlingEventsFor(window);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	77 LOGS("Help handler released") LCV((int) &window);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	78 IMouseHandler::stopHandlingEventsFor(window);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	79 LOGS("Mouse handler released");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	80 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	81
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	82 void HelpDemon::setTopic(AgString t) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	83 //AgString oldTopic = topic;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	84 topic = t;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	85 //if (oldTopic.exists()) return;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	86 //AgHelpHandler::handleEventsFor(window);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	87 //IMouseHandler::handleEventsFor(window);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	88 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	89
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	90
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	91 class ActivateKluge {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	92 private:
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	93 AgFrame *window;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	94
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	95 void pingWindow() {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	96 LOGSECTION("ActivateKluge::pingWindow");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	97 LOGV((int) window) LCV(window->id());
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	98 window->setFocus();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	99 delete this;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	100 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	101 void pingActionWindow() {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	102 LOGSECTION("ActivateKluge::pingActionWindow");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	103 LOGV((int) window) LCV(window->id());
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	104 pActionWindow->setFocus();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	105 defer(this, pingWindow);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	106 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	107 void pingControlPanel() {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	108 LOGSECTION("ActivateKluge::pingControlPanel");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	109 LOGV((int) window) LCV(window->id());
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	110 controlPanel->setFocus();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	111 defer(this, pingActionWindow);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	112 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	113
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	114 public:
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	115 ActivateKluge(AgFrame *w) : window(w) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	116 LOGSECTION("ActivateKluge::ActivateKluge");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	117 LOGV((int) window) LCV(window->id());
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	118 defer(this, pingControlPanel);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	119 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	120 ~ActivateKluge() {}
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	121 };
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	122
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	123 class FocusKluge {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	124 AgFrame *window;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	125
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	126 void pingWindow() {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	127 LOGSECTION("FocusKluge::pingWindow");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	128 LOGV((int) window) LCV(window->id());
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	129 window->setFocus();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	130 delete this;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	131 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	132
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	133 public:
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	134 FocusKluge(AgFrame *w) : window(w) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	135 LOGSECTION("FocusKluge::FocusKluge");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	136 LOGV((int) window) LCV(window->id());
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	137 defer(this, pingWindow);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	138 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	139 ~FocusKluge() {}
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	140 };
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	141
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	142 Boolean AgFrameHandler::activated(IFrameEvent &event) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	143 LOGSECTION_OFF("AgFrameHandler::activated");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	144 //int protectHelp = ControlPanel::helpCursorSet;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	145 //ControlPanel::helpCursorSet = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	146 AgFrame window = (AgFrame ) event.controlWindow();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	147 window->activeFlag = 1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	148 LOGV(AgFrame::menuShowingFlag) LCV(ControlPanel::helpCursorSet);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	149 int windowId = window->id();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	150 LOGV(windowId) LCV((int) window);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	151 LOGV((int) controlPanel) LCV((int) pActionWindow);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	152 AgFrame::activeWindowCount++;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	153 AgFrame::windowRegistry.markActive(windowId);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	154 AgFrame::activeWindow = (AgFrame *) window;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	155 IWindowHandle previous = (void *) event.parameter2();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	156 IWindow *previousWindow = IWindow::windowWithHandle(previous);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	157 if (previousWindow == 0 && controlPanel != 0) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	158 new ActivateKluge(window);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	159 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	160 else if (previousWindow != pActionWindow) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	161 window->setFocus();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	162 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	163 LOGV((int) window);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	164 LOGV((int) event.parameter2().asLong()) LCV((int) previousWindow);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	165 //ControlPanel::helpCursorSet = protectHelp;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	166
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	167 return true;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	168 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	169
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	170 Boolean AgFrameHandler::deactivated(IFrameEvent &event) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	171 LOGSECTION_OFF("AgFrameHandler::deactivated");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	172 AgFrame window = (AgFrame ) event.controlWindow();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	173 window->activeFlag = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	174 #ifdef INCLUDE_LOGGING
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	175 int windowId = window->id();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	176 LOGV(windowId) LCV((int) window);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	177 #endif
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	178 AgFrame::activeWindowCount--;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	179 LOGV(AgFrame::activeWindowCount);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	180 if (AgFrame::activeWindow == window) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	181 AgFrame::activeWindow = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	182 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	183 //onDeactivate();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	184 return false;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	185 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	186
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	187
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	188 Boolean AgFrameHandler::dispatchHandlerEvent(IEvent &event) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	189 //LOGSECTION("AgFrameHandler::dispatchHandlerEvent", Log::off);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	190 LOGSECTION_OFF("AgFrameHandler::dispatchHandlerEvent");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	191 LOGV(event.eventId());
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	192 LOGV((int) event.controlWindow()) LCV(event.controlWindow()->id());
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	193 ok_ptr(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	194 if (event.eventId()==WM_WINDOWPOSCHANGED \|\| event.eventId()==WM_KILLFOCUS) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	195 if (controlPanel) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	196 controlPanel->makeTopmost();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	197 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	198 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	199 return IFrameHandler::dispatchHandlerEvent(event);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	200 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	201
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	202 Boolean AgUserHandler::dispatchHandlerEvent(IEvent &event) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	203 //LOGSECTION("AgUserHandler::dispatchHandlerEvent", Log::off);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	204 LOGSECTION_OFF("AgUserHandler::dispatchHandlerEvent");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	205 LOGV(event.eventId());
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	206 LOGV((int) event.controlWindow()) LCV(event.controlWindow()->id());
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	207 if (event.eventId() == WM_USER) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	208 AgAction::Kernel *kernel =
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	209 (AgAction::Kernel ) (void ) event.parameter1().asLong();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	210 kernel->perform();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	211 if (kernel->unlock()) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	212 delete kernel;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	213 kernel = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	214 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	215 event.setResult(true);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	216 return true;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	217 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	218 return false;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	219 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	220
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	221 Boolean AgHelpHandler::dispatchHandlerEvent(IEvent &event) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	222 //LOGSECTION("AgHelpHandler", Log::off);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	223 LOGSECTION_OFF("AgHelpHandler");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	224 LOGV(event.eventId());
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	225 if (event.eventId() == WM_HELP \|\| event.eventId() == IC_ID_HELP) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	226 LOGSECTION("WM_HELP message");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	227 if (!showHelp(event)) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	228 return false;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	229 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	230 event.setResult(true);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	231 return true;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	232 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	233 return false;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	234 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	235
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	236 /*
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	237 Boolean AgFrame::mousePointerChange(IMousePointerEvent &event) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	238 LOGSECTION("AgFrame::mousePointerChange");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	239 if (ControlPanel::helpCursorSet && helpCursorSupported) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	240 event.setMousePointer(ControlPanel::helpCursor);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	241 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	242 else {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	243 event.setMousePointer(ControlPanel::activeCursor);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	244 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	245 LOGS("Pointer changed");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	246 return true;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	247 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	248 */
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	249
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	250 void AgFrame::showHelpTopic() {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	251 LOGSECTION("AgFrame::showHelpTopic");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	252 if (AgFrame::menuShowingFlag) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	253 defer(this, showHelpTopic);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	254 return;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	255 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	256 AgHelpWindow::showHelp(helpTopic);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	257 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	258
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	259 Boolean AgFrame::showHelp(IEvent &event) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	260 AgString topic;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	261
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	262 LOGSECTION("AgFrame::showHelp");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	263 // look for active pop up menu
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	264 LOGV((int) AgFrame::activePopUpMenu);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	265 LOGV(AgFrame::activeAuxMenu.exists());
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	266 if (AgFrame::activePopUpMenu && AgFrame::activeAuxMenu.exists()) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	267 int n = AgFrame::activePopUpMenu->numberOfItems();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	268 for (int i = 0; i++ < n;) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	269 IMenuItem item = AgFrame::activePopUpMenu->menuItem(i);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	270 if (item.isHighlighted()) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	271 topic = AgFrame::activeAuxMenu[i-1].text;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	272 break;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	273 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	274 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	275 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	276 if (!topic.exists() && AgFrame::activeWindow) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	277 topic = AgFrame::windowRegistry.getTitle(AgFrame::activeWindow->id());
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	278 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	279 if (!topic.exists()) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	280 topic = "Using Help";
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	281 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	282 LOGV(topic) LCV(topic.size());
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	283 //LOGV(simple_file_name) LCV(simple_file_name.size());
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	284 helpTopic = topic;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	285 defer(this, showHelpTopic);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	286 event.setResult(true);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	287 return true;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	288 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	289
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	290 WindowRegistry AgFrame::windowRegistry;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	291
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	292 AgFrame::AgFrame()
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	293 : IFrameWindow(nextChildId(), frameParent, frameOwner, IRectangle(),
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	294 titleBar
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	295 \| systemMenu
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	296 \| minimizeButton
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	297 \| sizingBorder
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	298 \| noMoveWithOwner)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	299 , windowTitle(this, "AnaGram")
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	300 , syntaxDependent(0)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	301 , activeFlag(1)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	302 , helpCursorSupported(0)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	303 , accelerator(IDW_FRAME_WINDOW, this)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	304 , modalDialog(0)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	305 , closeAction(actionObject(this, closeFrame))
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	306 {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	307 LOGSECTION("AgFrame::AgFrame()");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	308 windowId = id();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	309 //useExtensionMinimumSize(&windowTitle);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	310 LOGV(windowId) LCV((int) this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	311 setIcon(IDI_ICON);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	312 frameHandler = new AgFrameHandler;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	313 IFrameWindow::removeDefaultHandler();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	314 frameHandler->handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	315 ICommandHandler::handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	316 IResizeHandler::handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	317 LOGS("command handler attached");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	318 AgHelpHandler::handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	319 userHandler = new AgUserHandler;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	320 userHandler->handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	321 IKeyboardHandler::handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	322 //IMousePointerHandler::handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	323 activeWindow = this;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	324 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	325
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	326 AgFrame::AgFrame(Style s)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	327 : IFrameWindow(nextChildId(), frameParent, frameOwner, IRectangle(),
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	328 s \| titleBar \| minimizeButton \| noMoveWithOwner)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	329 , windowTitle(this, "AnaGram")
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	330 , syntaxDependent(0)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	331 , activeFlag(1)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	332 , helpCursorSupported(0)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	333 , accelerator(IDW_FRAME_WINDOW, this)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	334 , modalDialog(0)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	335 , closeAction(actionObject(this, closeFrame))
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	336 {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	337 LOGSECTION("AgFrame::AgFrame(Style)");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	338 windowId = id();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	339 //useExtensionMinimumSize(&windowTitle);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	340 LOGV(windowId) LCV((int) this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	341 setIcon(IDI_ICON);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	342 LOGV("Icon set");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	343 frameHandler = new AgFrameHandler;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	344 LOGS("frameHandler built");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	345 IFrameWindow::removeDefaultHandler();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	346 LOGS("Old frame handler removed");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	347 frameHandler->handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	348 LOGS("New frame handler atteched");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	349 ICommandHandler::handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	350 LOGS("Command handler attached");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	351 IResizeHandler::handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	352 LOGS("resize handler attached");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	353 AgHelpHandler::handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	354 LOGS("help handler attached");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	355 userHandler = new AgUserHandler;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	356 LOGS("user handler created");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	357 userHandler->handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	358 LOGS("user handler attached");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	359 IKeyboardHandler::handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	360 LOGS("keyboard handler attached");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	361 //IMousePointerHandler::handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	362 activeWindow = this;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	363 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	364
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	365 AgFrame::AgFrame(int id_)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	366 : IFrameWindow(id_, frameParent, frameOwner, IRectangle(),
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	367 titleBar
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	368 \| systemMenu
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	369 \| minimizeButton
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	370 \| maximizeButton
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	371 \| sizingBorder
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	372 \| noMoveWithOwner)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	373 , windowTitle(this, "AnaGram")
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	374 , syntaxDependent(0)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	375 , activeFlag(1)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	376 , helpCursorSupported(0)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	377 , accelerator(IDW_FRAME_WINDOW, this)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	378 , modalDialog(0)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	379 , closeAction(actionObject(this, closeFrame))
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	380 {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	381 LOGSECTION("AgFrame::AgFrame(int id)");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	382 windowId = id();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	383 //useExtensionMinimumSize(&windowTitle);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	384 LOGV(windowId) LCV((int) this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	385 setIcon(IDI_ICON);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	386 frameHandler = new AgFrameHandler;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	387 IFrameWindow::removeDefaultHandler();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	388 frameHandler->handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	389 ICommandHandler::handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	390 IResizeHandler::handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	391 LOGS("command handler attached");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	392 AgHelpHandler::handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	393 userHandler = new AgUserHandler;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	394 userHandler->handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	395 IKeyboardHandler::handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	396 //IMousePointerHandler::handleEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	397 activeWindow = this;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	398 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	399
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	400 AgFrame::~AgFrame() {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	401 LOGSECTION("AgFrame::~AgFrame");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	402 LOGV(windowId) LCV((int) this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	403 IPoint cascadeRestore = cascadeOffset - cascadeIncrement;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	404 if (cascadeRestore == initialPosition) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	405 cascadeOffset = cascadeRestore;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	406 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	407 ICommandHandler::stopHandlingEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	408 LOGS("command handler detached");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	409 AgHelpHandler::stopHandlingEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	410 LOGS("help handler detached");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	411 userHandler->stopHandlingEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	412 LOGS("user handler detached");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	413 frameHandler->stopHandlingEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	414 LOGS("frame handler detached");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	415 delete frameHandler;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	416 LOGS("frame handler deleted");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	417 delete userHandler;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	418 LOGS("user handler deleted");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	419
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	420 IResizeHandler::stopHandlingEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	421 LOGS("resize handler detached");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	422 IKeyboardHandler::stopHandlingEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	423 //IMousePointerHandler::stopHandlingEventsFor(this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	424 LOGS("~AgFrame completed");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	425 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	426
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	427 void AgFrame::closeFrame() {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	428 LOGSECTION("AgFrame::closeFrame");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	429 LOGV(windowId) LCV((int) this);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	430 if (modalDialog) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	431 closeAction.performDeferred();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	432 return;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	433 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	434 close();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	435 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	436
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	437 AgFrame &AgFrame::close() {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	438 LOGSECTION("AgFrame::close");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	439 LOGV(id()) LCV(syntaxFileId);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	440 IFrameWindow::close();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	441 return *this;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	442 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	443
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	444 Boolean AgFrame::characterKeyPress(IKeyboardEvent &event) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	445 LOGSECTION("AgFrame::characterKeyPress");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	446 if (event.isCtrlDown()) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	447 return false;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	448 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	449 if (event.isShiftDown()) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	450 return false;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	451 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	452 if (!event.isAltDown()) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	453 return false;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	454 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	455 //IMenuBar &menu = controlPanel->menuBar;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	456 switch (event.character()) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	457 /*
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	458 case 'a':
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	459 controlPanel->selectMenuItem(IDM_FILE);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	460 return true;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	461 case 'b':
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	462 controlPanel->selectMenuItem(IDM_BROWSE);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	463 return true;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	464 case 'o':
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	465 controlPanel->selectMenuItem(IDM_OPTIONS);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	466 return true;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	467 case 'w':
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	468 controlPanel->selectMenuItem(IDM_WINDOWS);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	469 return true;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	470 case 'h':
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	471 controlPanel->selectMenuItem(IDM_HELP);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	472 return true;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	473 */
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	474 default:
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	475 return false;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	476 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	477 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	478
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	479 Boolean AgFrame::virtualKeyPress(IKeyboardEvent &event) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	480 LOGSECTION("AgFrame::virtualKeyPress");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	481 LOGV((int) event.virtualKey());
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	482 LOGV(event.isShiftDown()) LCV(event.isCtrlDown()) LCV(event.isAltDown());
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	483 switch (event.virtualKey()) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	484 case IKeyboardEvent::esc: {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	485 //IWindow *waiting = controlPanel;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	486 AgFrame::windowRegistry.remove(id());
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	487 close();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	488 return true;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	489 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	490 case IKeyboardEvent::f10: {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	491 if (event.isShiftDown()) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	492 return true;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	493 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	494 if (event.isCtrlDown() \|\| event.isAltDown()) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	495 return false;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	496 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	497 if (controlPanel) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	498 controlPanel->setFocus();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	499 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	500 return false;

0

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1 /*

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

2 * AnaGram, A System for Syntax Directed Programming

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

4 * See the file COPYING for license and usage terms.

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

5 *

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

6 * frame.cpp

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

7 */

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

8

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

9 #include <imnitem.hpp>

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

10 #include <ipopmenu.hpp>

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

11 #include <windows.h>

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

12

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

13 #include "action.h"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

14 #include "agstring.h"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

15 #include "ctrlpanel.hpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

16 #include "frame.hpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

17 #include "helpview.hpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

18 #include "myalloc.h"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

19 #include "vaclgui-res.h"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

20 #include "vaclgui.hpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

21

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

22 //#define INCLUDE_LOGGING

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

23 #include "log.h"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

24

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

25

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

26 int AgFrame::activeWindowCount = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

27 AgFrame *AgFrame::activeWindow = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

28 IPopUpMenu *AgFrame::activePopUpMenu = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

29

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

30 IWindow *AgFrame::frameParent = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

31 IWindow *AgFrame::frameOwner = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

32 AgArray<AgMenuItem> AgFrame::activeAuxMenu;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

33 int AgFrame::menuShowingFlag = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

34

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

35

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

36 Boolean AgHelpHandler::showHelp(IEvent &event) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

37 LOGSECTION("AgHelpHandler::showHelp");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

38 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

39 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

40

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

41 Boolean HelpDemon::showHelp(IEvent &event) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

42 AgHelpWindow::showHelp(topic);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

43 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

44 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

45

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

46 Boolean HelpDemon::mouseClicked(IMouseClickEvent &event) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

47 LOGSECTION("HelpDemon::mouseClicked");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

48 LOGV(event.mouseButton()) LCV(event.mouseAction());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

49 LOGV(ControlPanel::helpCursorSet);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

50 if (ControlPanel::helpCursorSet) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

51 if (event.mouseButton() == IMouseClickEvent::button2) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

52 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

53 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

54 if (event.mouseAction() == IMouseClickEvent::down) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

55 AgHelpWindow::showHelp(topic);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

56 ControlPanel::helpCursorSet = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

57 ControlPanel::resetCursor();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

58 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

59 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

60 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

61 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

62 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

63

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

64 HelpDemon::HelpDemon(IWindow *w, AgString t)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

65 : window(w)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

66 , topic(t)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

67 {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

68 AgHelpHandler::handleEventsFor(window);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

69 IMouseHandler::handleEventsFor(window);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

70 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

71

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

72 HelpDemon::~HelpDemon() {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

73 //if (!topic.exists()) return;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

74 LOGSECTION("HelpDemon::~HelpDemon");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

75 LOGV((int) &window);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

76 AgHelpHandler::stopHandlingEventsFor(window);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

77 LOGS("Help handler released") LCV((int) &window);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

78 IMouseHandler::stopHandlingEventsFor(window);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

79 LOGS("Mouse handler released");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

80 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

81

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

82 void HelpDemon::setTopic(AgString t) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

83 //AgString oldTopic = topic;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

84 topic = t;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

85 //if (oldTopic.exists()) return;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

86 //AgHelpHandler::handleEventsFor(window);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

87 //IMouseHandler::handleEventsFor(window);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

88 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

89

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

90

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

91 class ActivateKluge {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

92 private:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

93 AgFrame *window;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

94

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

95 void pingWindow() {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

96 LOGSECTION("ActivateKluge::pingWindow");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

97 LOGV((int) window) LCV(window->id());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

98 window->setFocus();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

99 delete this;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

100 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

101 void pingActionWindow() {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

102 LOGSECTION("ActivateKluge::pingActionWindow");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

103 LOGV((int) window) LCV(window->id());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

104 pActionWindow->setFocus();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

105 defer(this, pingWindow);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

106 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

107 void pingControlPanel() {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

108 LOGSECTION("ActivateKluge::pingControlPanel");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

109 LOGV((int) window) LCV(window->id());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

110 controlPanel->setFocus();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

111 defer(this, pingActionWindow);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

112 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

113

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

114 public:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

115 ActivateKluge(AgFrame *w) : window(w) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

116 LOGSECTION("ActivateKluge::ActivateKluge");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

117 LOGV((int) window) LCV(window->id());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

118 defer(this, pingControlPanel);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

119 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

120 ~ActivateKluge() {}

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

121 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

122

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

123 class FocusKluge {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

124 AgFrame *window;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

125

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

126 void pingWindow() {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

127 LOGSECTION("FocusKluge::pingWindow");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

128 LOGV((int) window) LCV(window->id());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

129 window->setFocus();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

130 delete this;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

131 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

132

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

133 public:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

134 FocusKluge(AgFrame *w) : window(w) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

135 LOGSECTION("FocusKluge::FocusKluge");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

136 LOGV((int) window) LCV(window->id());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

137 defer(this, pingWindow);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

138 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

139 ~FocusKluge() {}

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

140 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

141

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

142 Boolean AgFrameHandler::activated(IFrameEvent &event) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

143 LOGSECTION_OFF("AgFrameHandler::activated");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

144 //int protectHelp = ControlPanel::helpCursorSet;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

145 //ControlPanel::helpCursorSet = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

146 AgFrame *window = (AgFrame *) event.controlWindow();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

147 window->activeFlag = 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

148 LOGV(AgFrame::menuShowingFlag) LCV(ControlPanel::helpCursorSet);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

149 int windowId = window->id();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

150 LOGV(windowId) LCV((int) window);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

151 LOGV((int) controlPanel) LCV((int) pActionWindow);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

152 AgFrame::activeWindowCount++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

153 AgFrame::windowRegistry.markActive(windowId);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

154 AgFrame::activeWindow = (AgFrame *) window;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

155 IWindowHandle previous = (void *) event.parameter2();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

156 IWindow *previousWindow = IWindow::windowWithHandle(previous);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

157 if (previousWindow == 0 && controlPanel != 0) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

158 new ActivateKluge(window);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

159 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

160 else if (previousWindow != pActionWindow) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

161 window->setFocus();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

162 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

163 LOGV((int) window);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

164 LOGV((int) event.parameter2().asLong()) LCV((int) previousWindow);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

165 //ControlPanel::helpCursorSet = protectHelp;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

166

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

167 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

168 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

169

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

170 Boolean AgFrameHandler::deactivated(IFrameEvent &event) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

171 LOGSECTION_OFF("AgFrameHandler::deactivated");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

172 AgFrame *window = (AgFrame *) event.controlWindow();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

173 window->activeFlag = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

174 #ifdef INCLUDE_LOGGING

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

175 int windowId = window->id();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

176 LOGV(windowId) LCV((int) window);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

177 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

178 AgFrame::activeWindowCount--;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

179 LOGV(AgFrame::activeWindowCount);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

180 if (AgFrame::activeWindow == window) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

181 AgFrame::activeWindow = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

182 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

183 //onDeactivate();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

184 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

185 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

186

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

187

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

188 Boolean AgFrameHandler::dispatchHandlerEvent(IEvent &event) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

189 //LOGSECTION("AgFrameHandler::dispatchHandlerEvent", Log::off);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

190 LOGSECTION_OFF("AgFrameHandler::dispatchHandlerEvent");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

191 LOGV(event.eventId());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

192 LOGV((int) event.controlWindow()) LCV(event.controlWindow()->id());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

193 ok_ptr(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

194 if (event.eventId()==WM_WINDOWPOSCHANGED || event.eventId()==WM_KILLFOCUS) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

195 if (controlPanel) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

196 controlPanel->makeTopmost();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

197 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

198 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

199 return IFrameHandler::dispatchHandlerEvent(event);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

200 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

201

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

202 Boolean AgUserHandler::dispatchHandlerEvent(IEvent &event) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

203 //LOGSECTION("AgUserHandler::dispatchHandlerEvent", Log::off);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

204 LOGSECTION_OFF("AgUserHandler::dispatchHandlerEvent");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

205 LOGV(event.eventId());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

206 LOGV((int) event.controlWindow()) LCV(event.controlWindow()->id());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

207 if (event.eventId() == WM_USER) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

208 AgAction::Kernel *kernel =

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

209 (AgAction::Kernel *) (void *) event.parameter1().asLong();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

210 kernel->perform();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

211 if (kernel->unlock()) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

212 delete kernel;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

213 kernel = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

214 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

215 event.setResult(true);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

216 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

217 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

218 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

219 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

220

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

221 Boolean AgHelpHandler::dispatchHandlerEvent(IEvent &event) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

222 //LOGSECTION("AgHelpHandler", Log::off);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

223 LOGSECTION_OFF("AgHelpHandler");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

224 LOGV(event.eventId());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

225 if (event.eventId() == WM_HELP || event.eventId() == IC_ID_HELP) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

226 LOGSECTION("WM_HELP message");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

227 if (!showHelp(event)) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

228 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

229 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

230 event.setResult(true);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

231 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

232 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

233 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

234 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

235

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

236 /*

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

237 Boolean AgFrame::mousePointerChange(IMousePointerEvent &event) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

238 LOGSECTION("AgFrame::mousePointerChange");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

239 if (ControlPanel::helpCursorSet && helpCursorSupported) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

240 event.setMousePointer(ControlPanel::helpCursor);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

241 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

242 else {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

243 event.setMousePointer(ControlPanel::activeCursor);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

244 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

245 LOGS("Pointer changed");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

246 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

247 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

248 */

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

249

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

250 void AgFrame::showHelpTopic() {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

251 LOGSECTION("AgFrame::showHelpTopic");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

252 if (AgFrame::menuShowingFlag) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

253 defer(this, showHelpTopic);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

254 return;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

255 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

256 AgHelpWindow::showHelp(helpTopic);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

257 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

258

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

259 Boolean AgFrame::showHelp(IEvent &event) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

260 AgString topic;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

261

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

262 LOGSECTION("AgFrame::showHelp");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

263 // look for active pop up menu

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

264 LOGV((int) AgFrame::activePopUpMenu);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

265 LOGV(AgFrame::activeAuxMenu.exists());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

266 if (AgFrame::activePopUpMenu && AgFrame::activeAuxMenu.exists()) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

267 int n = AgFrame::activePopUpMenu->numberOfItems();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

268 for (int i = 0; i++ < n;) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

269 IMenuItem item = AgFrame::activePopUpMenu->menuItem(i);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

270 if (item.isHighlighted()) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

271 topic = AgFrame::activeAuxMenu[i-1].text;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

272 break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

273 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

274 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

275 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

276 if (!topic.exists() && AgFrame::activeWindow) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

277 topic = AgFrame::windowRegistry.getTitle(AgFrame::activeWindow->id());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

278 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

279 if (!topic.exists()) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

280 topic = "Using Help";

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

281 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

282 LOGV(topic) LCV(topic.size());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

283 //LOGV(simple_file_name) LCV(simple_file_name.size());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

284 helpTopic = topic;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

285 defer(this, showHelpTopic);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

286 event.setResult(true);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

287 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

288 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

289

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

290 WindowRegistry AgFrame::windowRegistry;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

291

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

292 AgFrame::AgFrame()

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

293 : IFrameWindow(nextChildId(), frameParent, frameOwner, IRectangle(),

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

294 titleBar

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

295 | systemMenu

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

296 | minimizeButton

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

297 | sizingBorder

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

298 | noMoveWithOwner)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

299 , windowTitle(this, "AnaGram")

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

300 , syntaxDependent(0)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

301 , activeFlag(1)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

302 , helpCursorSupported(0)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

303 , accelerator(IDW_FRAME_WINDOW, this)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

304 , modalDialog(0)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

305 , closeAction(actionObject(this, closeFrame))

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

306 {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

307 LOGSECTION("AgFrame::AgFrame()");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

308 windowId = id();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

309 //useExtensionMinimumSize(&windowTitle);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

310 LOGV(windowId) LCV((int) this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

311 setIcon(IDI_ICON);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

312 frameHandler = new AgFrameHandler;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

313 IFrameWindow::removeDefaultHandler();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

314 frameHandler->handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

315 ICommandHandler::handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

316 IResizeHandler::handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

317 LOGS("command handler attached");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

318 AgHelpHandler::handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

319 userHandler = new AgUserHandler;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

320 userHandler->handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

321 IKeyboardHandler::handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

322 //IMousePointerHandler::handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

323 activeWindow = this;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

324 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

325

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

326 AgFrame::AgFrame(Style s)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

327 : IFrameWindow(nextChildId(), frameParent, frameOwner, IRectangle(),

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

328 s | titleBar | minimizeButton | noMoveWithOwner)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

329 , windowTitle(this, "AnaGram")

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

330 , syntaxDependent(0)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

331 , activeFlag(1)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

332 , helpCursorSupported(0)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

333 , accelerator(IDW_FRAME_WINDOW, this)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

334 , modalDialog(0)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

335 , closeAction(actionObject(this, closeFrame))

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

336 {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

337 LOGSECTION("AgFrame::AgFrame(Style)");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

338 windowId = id();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

339 //useExtensionMinimumSize(&windowTitle);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

340 LOGV(windowId) LCV((int) this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

341 setIcon(IDI_ICON);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

342 LOGV("Icon set");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

343 frameHandler = new AgFrameHandler;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

344 LOGS("frameHandler built");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

345 IFrameWindow::removeDefaultHandler();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

346 LOGS("Old frame handler removed");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

347 frameHandler->handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

348 LOGS("New frame handler atteched");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

349 ICommandHandler::handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

350 LOGS("Command handler attached");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

351 IResizeHandler::handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

352 LOGS("resize handler attached");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

353 AgHelpHandler::handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

354 LOGS("help handler attached");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

355 userHandler = new AgUserHandler;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

356 LOGS("user handler created");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

357 userHandler->handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

358 LOGS("user handler attached");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

359 IKeyboardHandler::handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

360 LOGS("keyboard handler attached");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

361 //IMousePointerHandler::handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

362 activeWindow = this;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

363 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

364

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

365 AgFrame::AgFrame(int id_)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

366 : IFrameWindow(id_, frameParent, frameOwner, IRectangle(),

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

367 titleBar

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

368 | systemMenu

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

369 | minimizeButton

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

370 | maximizeButton

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

371 | sizingBorder

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

372 | noMoveWithOwner)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

373 , windowTitle(this, "AnaGram")

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

374 , syntaxDependent(0)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

375 , activeFlag(1)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

376 , helpCursorSupported(0)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

377 , accelerator(IDW_FRAME_WINDOW, this)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

378 , modalDialog(0)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

379 , closeAction(actionObject(this, closeFrame))

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

380 {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

381 LOGSECTION("AgFrame::AgFrame(int id)");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

382 windowId = id();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

383 //useExtensionMinimumSize(&windowTitle);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

384 LOGV(windowId) LCV((int) this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

385 setIcon(IDI_ICON);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

386 frameHandler = new AgFrameHandler;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

387 IFrameWindow::removeDefaultHandler();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

388 frameHandler->handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

389 ICommandHandler::handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

390 IResizeHandler::handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

391 LOGS("command handler attached");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

392 AgHelpHandler::handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

393 userHandler = new AgUserHandler;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

394 userHandler->handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

395 IKeyboardHandler::handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

396 //IMousePointerHandler::handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

397 activeWindow = this;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

398 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

399

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

400 AgFrame::~AgFrame() {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

401 LOGSECTION("AgFrame::~AgFrame");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

402 LOGV(windowId) LCV((int) this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

403 IPoint cascadeRestore = cascadeOffset - cascadeIncrement;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

404 if (cascadeRestore == initialPosition) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

405 cascadeOffset = cascadeRestore;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

406 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

407 ICommandHandler::stopHandlingEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

408 LOGS("command handler detached");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

409 AgHelpHandler::stopHandlingEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

410 LOGS("help handler detached");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

411 userHandler->stopHandlingEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

412 LOGS("user handler detached");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

413 frameHandler->stopHandlingEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

414 LOGS("frame handler detached");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

415 delete frameHandler;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

416 LOGS("frame handler deleted");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

417 delete userHandler;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

418 LOGS("user handler deleted");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

419

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

420 IResizeHandler::stopHandlingEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

421 LOGS("resize handler detached");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

422 IKeyboardHandler::stopHandlingEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

423 //IMousePointerHandler::stopHandlingEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

424 LOGS("~AgFrame completed");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

425 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

426

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

427 void AgFrame::closeFrame() {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

428 LOGSECTION("AgFrame::closeFrame");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

429 LOGV(windowId) LCV((int) this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

430 if (modalDialog) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

431 closeAction.performDeferred();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

432 return;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

433 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

434 close();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

435 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

436

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

437 AgFrame &AgFrame::close() {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

438 LOGSECTION("AgFrame::close");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

439 LOGV(id()) LCV(syntaxFileId);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

440 IFrameWindow::close();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

441 return *this;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

442 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

443

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

444 Boolean AgFrame::characterKeyPress(IKeyboardEvent &event) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

445 LOGSECTION("AgFrame::characterKeyPress");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

446 if (event.isCtrlDown()) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

447 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

448 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

449 if (event.isShiftDown()) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

450 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

451 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

452 if (!event.isAltDown()) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

453 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

454 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

455 //IMenuBar &menu = controlPanel->menuBar;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

456 switch (event.character()) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

457 /*

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

458 case 'a':

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

459 controlPanel->selectMenuItem(IDM_FILE);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

460 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

461 case 'b':

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

462 controlPanel->selectMenuItem(IDM_BROWSE);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

463 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

464 case 'o':

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

465 controlPanel->selectMenuItem(IDM_OPTIONS);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

466 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

467 case 'w':

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

468 controlPanel->selectMenuItem(IDM_WINDOWS);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

469 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

470 case 'h':

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

471 controlPanel->selectMenuItem(IDM_HELP);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

472 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

473 */

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

474 default:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

475 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

476 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

477 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

478

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

479 Boolean AgFrame::virtualKeyPress(IKeyboardEvent &event) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

480 LOGSECTION("AgFrame::virtualKeyPress");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

481 LOGV((int) event.virtualKey());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

482 LOGV(event.isShiftDown()) LCV(event.isCtrlDown()) LCV(event.isAltDown());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

483 switch (event.virtualKey()) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

484 case IKeyboardEvent::esc: {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

485 //IWindow *waiting = controlPanel;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

486 AgFrame::windowRegistry.remove(id());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

487 close();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

488 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

489 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

490 case IKeyboardEvent::f10: {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

491 if (event.isShiftDown()) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

492 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

493 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

494 if (event.isCtrlDown() || event.isAltDown()) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

495 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

496 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

497 if (controlPanel) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

498 controlPanel->setFocus();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

499 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

500 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

501 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

502 case IKeyboardEvent::f3: {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

503 if (event.isShiftDown() || event.isCtrlDown() || event.isAltDown()) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

504 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

505 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

506 if (controlPanel) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

507 controlPanel->findNext();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

508 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

509 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

510 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

511 case IKeyboardEvent::f4: {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

512 if (event.isShiftDown() || event.isCtrlDown() || event.isAltDown()) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

513 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

514 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

515 if (controlPanel) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

516 controlPanel->findPrev();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

517 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

518 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

519 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

520 case IKeyboardEvent::f8: {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

521 if (event.isShiftDown() || event.isCtrlDown() || event.isAltDown()) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

522 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

523 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

524 if (controlPanel) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

525 controlPanel->setFocus();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

526 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

527 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

528 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

529 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

530 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

531 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

532

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

533 void AgFrame::popUp() {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

534 if (modalDialog) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

535 modalDialog->show().setFocus();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

536 return;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

537 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

538 if (isMinimized()) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

539 restore();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

540 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

541 show().setFocus();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

542 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

543

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

544 AgFrame &AgFrame::show(Boolean showWindow) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

545 IFrameWindow::show(showWindow);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

546 return *this;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

547 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

548

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

549 AgFrame &AgFrame::setFocus() {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

550 IFrameWindow::setFocus();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

551 return *this;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

552 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

553

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

554 AgFrame &AgFrame::mySetFocus() {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

555 LOGSECTION("AgFrame::mySetFocus");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

556 LOGV((int) modalDialog);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

557 IHandle h = handle();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

558 if (modalDialog) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

559 modalDialog->setFocus();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

560 h = modalDialog->handle();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

561 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

562 else {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

563 setFocus();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

564 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

565 //BringWindowToTop(h);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

566 return *this;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

567 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

568

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

569 AgFrame &AgFrame::positionFrame() {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

570 LOGSECTION("AgFrame::positionFrame");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

571 LOGV(size());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

572 if (!(size() + cascadeOffset <= desktopWindow()->size())) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

573 cascadeOffset = cascadeOrigin;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

574 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

575

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

576 LOGV(cascadeOffset);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

577 moveTo(cascadeOffset);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

578 initialPosition = cascadeOffset;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

579 cascadeOffset += cascadeIncrement;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

580 return *this;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

581 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

582

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

583 Boolean AgFrame::windowResize(IResizeEvent &event) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

584 LOGSECTION("AgFrame::windowResize");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

585 LOGV(windowId) LCV((int) this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

586 LOGV(event.newSize().asString());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

587 LOGV(minimumSize().asString());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

588 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

589 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

590

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

591 void AgFrame::registerTitle(AgString name) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

592 LOGSECTION("Register title");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

593 LOGV(windowId) LCV((int) this) LCV(name);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

594 windowRegistry.registerId(this, name, actionObject(this, popUp));

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

595 LOGS("registration complete");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

596 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

597

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

598 Boolean AgFrame::command(ICommandEvent &event) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

599 LOGSECTION("AgFrame::command");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

600 if (messageBoxShowing) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

601 messageBeep();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

602 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

603 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

604 switch(event.commandId()) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

605 case IDM_EDIT_FIND:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

606 if (controlPanel) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

607 controlPanel->searchKeyBox.setFocus();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

608 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

609 break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

610 case IDM_EDIT_FINDNEXT: {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

611 LOGSECTION("AgFrame::FINDNEXT");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

612 if (controlPanel) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

613 controlPanel->findNext();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

614 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

615 break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

616 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

617 case IDM_EDIT_FINDPREV:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

618 LOGSECTION("AgFrame::FINDPREV");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

619 if (controlPanel) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

620 controlPanel->findPrev();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

621 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

622 break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

623 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

624 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

625 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

626

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

627 Boolean AgFrame::systemCommand(ICommandEvent &event) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

628 LOGSECTION("AgFrame::systemCommand");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

629 int commandId = event.commandId() & 0xfff0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

630 LOGV(commandId);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

631 if (messageBoxShowing) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

632 messageBeep();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

633 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

634 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

635 if (commandId == ISystemMenu::idClose) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

636 LOGSECTION("AgFrame::systemCommand::idClose");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

637 LOGV(windowId) LCV((int) this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

638

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

639 LOGV((int)event.dispatchingWindow());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

640 LOGV((int)event.controlWindow());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

641 LOGV((int)this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

642 if (event.dispatchingWindow() != this) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

643 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

644 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

645

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

646 AgFrame *window = windowRegistry.find(windowId);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

647 if (window && window->modalDialog) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

648 window->modalDialog->close();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

649 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

650 //IWindow *waiting = controlPanel;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

651 windowRegistry.remove(windowId);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

652 /*

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

653 int n = AgFrame::windowRegistry.size();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

654 if (n) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

655 waiting = AgFrame::windowRegistry[n-1].window;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

656 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

657 waiting->setFocus();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

658 */

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

659 closeAction.performDeferred();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

660 LOGS("finished");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

661 //return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

662 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

663 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

664 else if (commandId == ISystemMenu::idMinimize) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

665 LOGSECTION("AgFrame::systemCommand::idMinimize");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

666 hide();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

667 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

668 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

669 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

670 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

671

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

672 AgDialog::AgDialog(IWindow *owner)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

673 : IFrameWindow(nextChildId(), AgFrame::frameParent, owner, IRectangle(),

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

674 titleBar

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

675 | systemMenu

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

676 | dialogBorder

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

677 | dialogBackground

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

678 | noMoveWithOwner

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

679 | synchPaint)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

680 , windowTitle(this, "AnaGram")

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

681 {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

682 LOGSECTION("AgDialog::AgDialog");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

683 windowId = id();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

684 LOGV(windowId);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

685 setIcon(IDI_ICON);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

686 ICommandHandler::handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

687 IResizeHandler::handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

688 AgHelpHandler::handleEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

689 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

690

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

691 AgDialog::~AgDialog() {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

692 LOGSECTION("AgDialog::~AgDialog");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

693 LOGV(windowId);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

694 ICommandHandler::stopHandlingEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

695 IResizeHandler::stopHandlingEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

696 AgHelpHandler::stopHandlingEventsFor(this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

697 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

698

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

699 Boolean AgDialog::showHelp(IEvent &event) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

700 AgString topic;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

701

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

702 LOGSECTION("AgDialog::showHelp");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

703 topic = AgFrame::windowRegistry.getTitle(AgFrame::activeWindow->id());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

704 if (!topic.exists()) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

705 topic = "Using Help";

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

706 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

707 AgString title;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

708 if (topic.exists()) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

709 title = topic.firstCut(' ').leftX();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

710 LOGV(topic.pointer());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

711 LOGV(title.pointer());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

712 if (!title.exists()) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

713 title = topic;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

714 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

715 if (title == "Help") {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

716 topic = "Using Help";

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

717 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

718 title = AgString::format("Help - %s", topic.pointer());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

719 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

720 LOGV(topic.pointer());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

721 IFrameWindow *helpWindow = AgFrame::windowRegistry.find(title);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

722 LOGV((int) helpWindow);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

723 if (helpWindow == 0) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

724 helpWindow = new AgHelpWindow(topic);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

725 helpWindow->setAutoDeleteObject();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

726 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

727 helpWindow->setFocus();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

728 event.setResult(true);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

729 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

730 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

731

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

732 Boolean AgDialog::systemCommand(ICommandEvent &event) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

733 LOGSECTION("AgDialog::systemCommand");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

734 int commandId = event.commandId() & 0xfff0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

735 if (commandId == ISystemMenu::idClose) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

736 LOGSECTION("AgDialog::systemCommand::idClose");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

737 LOGV(windowId);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

738

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

739 LOGV((int)event.dispatchingWindow());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

740 LOGV((int)event.controlWindow());

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

741 LOGV((int)this);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

742 if (event.dispatchingWindow() != this) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

743 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

744 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

745

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

746 //IWindow *waiting = controlPanel;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

747 AgFrame::windowRegistry.remove(windowId);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

748 /*

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

749 int n = AgFrame::windowRegistry.size();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

750 if (n) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

751 waiting = AgFrame::windowRegistry[n-1].window;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

752 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

753 waiting->setFocus();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

754 */

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

755 LOGS("finished");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

756 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

757 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

758 else if (commandId == ISystemMenu::idMinimize) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

759 LOGSECTION("AgDialog::systemCommand::idMinimize");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

760 hide();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

761 return true;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

762 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

763 return false;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

764 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

765

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

766

Mercurial > ~dholland > hg > ag > index.cgi

annotate anagram/vaclgui/frame.cpp @ 0:13d2b8934445