swh:1:snp:cac5fb5e02e08ee7616a46f7bfbaeee022e40e15
Tip revision: 62edbcc8c6021789df156749d71229308ba4313a authored by Ronald Burkey on 08 August 2021, 00:25:00 UTC
Merge pull request #1149 from virtualagc/yagcb1_fixes
Merge pull request #1149 from virtualagc/yagcb1_fixes
Tip revision: 62edbcc
sterm.cpp
// -*- C++ -*- generated by wxGlade 0.6.3 on Thu Mar 19 15:10:50 2009
/*
Copyright 2009,2021 Ronald S. Burkey <info@sandroid.org>
This file is part of yaAGC.
yaAGC is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
yaAGC is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with yaAGC; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
Filename: sterm.cpp
Purpose: A sort of dumb-terminal program for running yaAGC or yaAGS
in --debug mode, since I can't rely on xterm being available
all the time, and since xterm isn't extremely pleasant
anyway.
Reference: http://www.ibiblio.org/apollo/index.html
Mode: 2009-03-19 RSB. Began.
2021-03-22 RSB Changed constants (wxFONTFAMILY_xxx,
wxFONTSTYLE_xxx, wxFONTWEIGHT_xxx) used
in wxFont invocations, to avoid "deprecated"
warnings with wxWidgets 3.1.x.
*/
#include "sterm.h"
// begin wxGlade: ::extracode
// end wxGlade
StermFrameClass::StermFrameClass(wxWindow* parent, int id, const wxString& title, const wxPoint& pos, const wxSize& size, long style):
wxFrame(parent, id, title, pos, size, wxDEFAULT_FRAME_STYLE)
{
Points = 10;
// begin wxGlade: StermFrameClass::StermFrameClass
BiggerButton = new wxButton(this, ID_BIGGER, _("Bigger"));
SmallerButton = new wxButton(this, ID_SMALLER, _("Smaller"));
TextCtrl = new wxTextCtrl(this, ID_TEXT, wxEmptyString, wxDefaultPosition, wxDefaultSize, wxTE_PROCESS_ENTER|wxTE_MULTILINE|wxHSCROLL|wxTE_RICH);
set_properties();
do_layout();
// end wxGlade
}
BEGIN_EVENT_TABLE(StermFrameClass, wxFrame)
// begin wxGlade: StermFrameClass::event_table
EVT_BUTTON(ID_BIGGER, StermFrameClass::OnBiggerPress)
EVT_BUTTON(ID_SMALLER, StermFrameClass::OnSmallerPress)
EVT_TEXT_MAXLEN(ID_TEXT, StermFrameClass::OnTextMaxlen)
EVT_TEXT_ENTER(ID_TEXT, StermFrameClass::OnTextEnter)
// end wxGlade
END_EVENT_TABLE();
void StermFrameClass::OnBiggerPress(wxCommandEvent &event)
{
FontSize (++Points);
//Fit ();
}
void StermFrameClass::OnSmallerPress(wxCommandEvent &event)
{
if (Points > 6)
{
FontSize (--Points);
//Fit ();
}
}
// Set font-size in the text control.
void
StermFrameClass::FontSize (int Points)
{
TextCtrl->SetFont(wxFont(Points, wxFONTFAMILY_MODERN, wxFONTSTYLE_NORMAL, wxFONTWEIGHT_NORMAL, 0, wxT("")));
}
void StermFrameClass::OnTextMaxlen(wxCommandEvent &event)
{
event.Skip();
wxLogDebug(wxT("Event handler (StermFrameClass::OnTextMaxlen) not implemented yet")); //notify the user that he hasn't implemented the event handler yet
}
void StermFrameClass::OnTextEnter(wxCommandEvent &event)
{
event.Skip();
wxLogDebug(wxT("Event handler (StermFrameClass::OnTextEnter) not implemented yet")); //notify the user that he hasn't implemented the event handler yet
}
// wxGlade: add StermFrameClass event handlers
void StermFrameClass::set_properties()
{
// begin wxGlade: StermFrameClass::set_properties
SetTitle(_("Debugging window"));
SetSize(wxSize(800, 400));
BiggerButton->SetToolTip(_("Click this to increase the text size."));
SmallerButton->SetToolTip(_("Click this to make the text smaller."));
TextCtrl->SetFont(wxFont(10, wxFONTFAMILY_MODERN, wxFONTSTYLE_NORMAL, wxFONTWEIGHT_NORMAL, 0, wxT("")));
// end wxGlade
}
void StermFrameClass::do_layout()
{
// begin wxGlade: StermFrameClass::do_layout
wxBoxSizer* sizer_1 = new wxBoxSizer(wxVERTICAL);
wxBoxSizer* sizer_3 = new wxBoxSizer(wxHORIZONTAL);
wxBoxSizer* sizer_2 = new wxBoxSizer(wxHORIZONTAL);
sizer_1->Add(20, 10, 0, wxADJUST_MINSIZE, 0);
sizer_2->Add(20, 20, 1, wxADJUST_MINSIZE, 0);
sizer_2->Add(BiggerButton, 0, wxADJUST_MINSIZE, 0);
sizer_2->Add(50, 20, 0, wxADJUST_MINSIZE, 0);
sizer_2->Add(SmallerButton, 0, wxADJUST_MINSIZE, 0);
sizer_2->Add(20, 20, 1, wxADJUST_MINSIZE, 0);
sizer_1->Add(sizer_2, 0, wxEXPAND, 0);
sizer_1->Add(20, 10, 0, wxADJUST_MINSIZE, 0);
sizer_3->Add(10, 20, 0, wxADJUST_MINSIZE, 0);
sizer_3->Add(TextCtrl, 1, wxEXPAND|wxADJUST_MINSIZE, 0);
sizer_3->Add(10, 20, 0, wxADJUST_MINSIZE, 0);
sizer_1->Add(sizer_3, 1, wxEXPAND, 0);
sizer_1->Add(20, 10, 0, wxADJUST_MINSIZE, 0);
SetSizer(sizer_1);
Layout();
// end wxGlade
}
class StermAppClass: public wxApp {
public:
bool OnInit();
};
IMPLEMENT_APP(StermAppClass)
bool StermAppClass::OnInit()
{
wxInitAllImageHandlers();
StermFrameClass* TopFrame = new StermFrameClass(NULL, wxID_ANY, wxEmptyString);
SetTopWindow(TopFrame);
// We assume that all the stuff on the command-line should be concatenated to form
// a single command which is supposed to be executed with redirection of stdin,
// stdout, and stderr.
wxString Command;
int i;
for (i = 1; i < argc; i++)
{
if (i > 1)
Command += wxT (" ");
Command += argv[i];
}
TopFrame->Show();
return true;
}