view anagram/vaclgui/actionwin.cpp @ 8:ec2b657edf13

Add explicit lint-comment-style fallthrough annotations. GCC now assumes that if you don't have these you're making a mistake, which is annoying. XXX: This changeset updates the AG output files only (by hand) and is XXX: abusive - rebuilding them will erase the change. However, I need XXX: to get things to build before I can try to get AG to issue the XXX: annotations itself, so this seems like a reasonable expedient.
author David A. Holland
date Mon, 30 May 2022 23:51:43 -0400
parents 13d2b8934445
children
line wrap: on
line source

/*
 * AnaGram, A System for Syntax Directed Programming
 * Copyright 1997-2002 Parsifal Software. All Rights Reserved.
 * See the file COPYING for license and usage terms.
 *
 * actionwin.cpp
 */

#include <windows.h>
#include "port.h"

#include "actionwin.hpp"
#include "vaclgui.hpp"

//#define INCLUDE_LOGGING
#include "log.h"

//ActionWindow *theActionWindow;
//
//IObjectWindow *openObjectWindow() {
//  return theActionWindow = new ActionWindow();
//}
//
//void closeObjectWindow() {
//  theActionWindow->close();
//  delete theActionWindow;
//  theActionWindow = NULL;
//}

Boolean ActionWindow::dispatchHandlerEvent(IEvent &event) {
  if (event.eventId() != WM_USER) return false;
  LOGSECTION_OFF("AgAction::ActionWindow::dispatchHandlerEvent");

  void *pk = (void *) event.parameter1().asLong();
  AgAction::Kernel *kernel = (AgAction::Kernel *) pk;

  LOGV((int) kernel);
  AgActionDispatchFromGui(kernel);
  event.setResult(true);
  return true;
}

void AgActionEnqueueInGui(AgAction::Kernel *kernel) {
  IEventData param((void *)kernel);
  pActionWindow->postEvent(WM_USER, param);
}