4 * Author: Karsten Ballüder
6 * Copyright: (C) 1998, Karsten Ballüder <Ballueder@usa.net>
11 #pragma implementation "wxLayout.h"
14 #include "wx/wxprec.h"
20 #include "wx/textfile.h"
29 #include "wx/wfstream.h"
30 #include "wx/txtstrm.h"
35 //-----------------------------------------------------------------------------
37 //-----------------------------------------------------------------------------
41 //-----------------------------------------------------------------------------
43 //-----------------------------------------------------------------------------
47 ID_ADD_SAMPLE
= 1, ID_CLEAR
, ID_PRINT
,
48 ID_PRINT_SETUP
, ID_PAGE_SETUP
, ID_PREVIEW
, ID_PRINT_PS
,
49 ID_PRINT_SETUP_PS
, ID_PAGE_SETUP_PS
,ID_PREVIEW_PS
,
50 ID_WRAP
, ID_NOWRAP
, ID_PASTE
, ID_COPY
, ID_CUT
,
51 ID_COPY_PRIMARY
, ID_PASTE_PRIMARY
,
53 ID_WXLAYOUT_DEBUG
, ID_QUIT
, ID_CLICK
, ID_HTML
, ID_TEXT
,
54 ID_TEST
, ID_LINEBREAKS_TEST
, ID_LONG_TEST
, ID_URL_TEST
58 IMPLEMENT_DYNAMIC_CLASS( MyFrame
, wxFrame
)
60 BEGIN_EVENT_TABLE(MyFrame
,wxFrame
)
61 EVT_MENU(ID_PRINT
, MyFrame::OnPrint
)
62 EVT_MENU(ID_PREVIEW
, MyFrame::OnPrintPreview
)
63 EVT_MENU(ID_PRINT_SETUP
, MyFrame::OnPrintSetup
)
64 EVT_MENU(ID_PAGE_SETUP
, MyFrame::OnPageSetup
)
65 EVT_MENU(ID_PRINT_PS
, MyFrame::OnPrintPS
)
66 EVT_MENU(ID_PREVIEW_PS
, MyFrame::OnPrintPreviewPS
)
67 EVT_MENU(ID_PRINT_SETUP_PS
, MyFrame::OnPrintSetupPS
)
68 EVT_MENU(ID_PAGE_SETUP_PS
, MyFrame::OnPageSetupPS
)
69 EVT_MENU (wxID_ANY
, MyFrame::OnCommand
)
70 EVT_COMMAND (wxID_ANY
,wxID_ANY
, MyFrame::OnCommand
)
71 EVT_CHAR ( wxLayoutWindow::OnChar
)
76 wxFrame( (wxFrame
*) NULL
, wxID_ANY
, _T("wxLayout"),
77 wxDefaultPosition
, wxDefaultSize
)
81 SetStatusText( _T("wxLayout by Karsten Ballüder.") );
82 #endif // wxUSE_STATUSBAR
84 wxMenuBar
*menu_bar
= new wxMenuBar();
86 wxMenu
*file_menu
= new wxMenu
;
87 file_menu
->Append(ID_PRINT
, _T("&Print..."), _T("Print"));
88 file_menu
->Append(ID_PRINT_SETUP
, _T("Print &Setup..."),_T("Setup printer properties"));
89 file_menu
->Append(ID_PAGE_SETUP
, _T("Page Set&up..."), _T("Page setup"));
90 file_menu
->Append(ID_PREVIEW
, _T("Print Pre&view"), _T("Preview"));
92 file_menu
->AppendSeparator();
93 file_menu
->Append(ID_PRINT_PS
, _T("Print PostScript..."), _T("Print (PostScript)"));
94 file_menu
->Append(ID_PRINT_SETUP_PS
, _T("Print Setup PostScript..."), _T("Setup printer properties (PostScript)"));
95 file_menu
->Append(ID_PAGE_SETUP_PS
, _T("Page Setup PostScript..."), _T("Page setup (PostScript)"));
96 file_menu
->Append(ID_PREVIEW_PS
, _T("Print Preview PostScript"), _T("Preview (PostScript)"));
98 file_menu
->AppendSeparator();
99 file_menu
->Append( ID_TEXT
, _T("Export &Text"));
100 file_menu
->Append( ID_HTML
, _T("Export &HTML"));
101 file_menu
->Append( ID_QUIT
, _T("E&xit"));
102 menu_bar
->Append(file_menu
, _T("&File"));
104 wxMenu
*edit_menu
= new wxMenu
;
105 edit_menu
->Append( ID_CLEAR
, _T("C&lear"));
106 edit_menu
->Append( ID_ADD_SAMPLE
, _T("&Example"));
107 edit_menu
->Append( ID_LONG_TEST
, _T("Add &many lines"));
108 edit_menu
->AppendSeparator();
109 edit_menu
->Append( ID_LINEBREAKS_TEST
, _T("Add &several lines"));
110 edit_menu
->Append( ID_URL_TEST
, _T("Insert an &URL"));
111 edit_menu
->AppendSeparator();
112 edit_menu
->Append(ID_WRAP
, _T("&Wrap mode"), _T("Activate wrapping at pixel 200."));
113 edit_menu
->Append(ID_NOWRAP
, _T("&No-wrap mode"), _T("Deactivate wrapping."));
114 edit_menu
->AppendSeparator();
115 edit_menu
->Append(ID_COPY
, _T("&Copy"), _T("Copy text to clipboard."));
116 edit_menu
->Append(ID_CUT
, _T("Cu&t"), _T("Cut text to clipboard."));
117 edit_menu
->Append(ID_PASTE
,_T("&Paste"), _T("Paste text from clipboard."));
119 edit_menu
->Append(ID_COPY_PRIMARY
, _T("C&opy primary"), _T("Copy text to primary selecton."));
120 edit_menu
->Append(ID_PASTE_PRIMARY
, _T("&Paste primary"), _T("Paste text from primary selection."));
122 edit_menu
->Append(ID_FIND
, _T("&Find"), _T("Find text."));
123 menu_bar
->Append(edit_menu
, _T("&Edit") );
126 menu_bar
->Show(true);
129 SetMenuBar( menu_bar
);
131 m_lwin
= new wxLayoutWindow(this);
133 m_lwin
->SetStatusBar(GetStatusBar(), 0, 1);
134 #endif // wxUSE_STATUSBAR
135 m_lwin
->SetMouseTracking(true);
136 m_lwin
->SetEditable(true);
137 m_lwin
->SetWrapMargin(40);
140 // JACS: under MSW, the window doesn't show the caret initially,
141 // and the following line I added doesn't help either.
142 // going to another window and then back again fixes it.
143 // m_lwin->OnSetFocus(wxFocusEvent());
148 // create and set the background bitmap (this will result in a lattice)
149 static const int sizeBmp
= 10;
150 wxBitmap
*bitmap
= new wxBitmap(sizeBmp
, sizeBmp
);
152 dcMem
.SelectObject( *bitmap
);
153 dcMem
.SetBackground( *wxWHITE_BRUSH
);
156 dcMem
.SetPen( *wxGREEN_PEN
);
157 dcMem
.DrawLine(sizeBmp
/2, 0, sizeBmp
/2, sizeBmp
);
158 dcMem
.DrawLine(0, sizeBmp
/2, sizeBmp
, sizeBmp
/2);
160 dcMem
.SelectObject( wxNullBitmap
);
162 m_lwin
->SetBackgroundBitmap(bitmap
);
166 void MyFrame::AddSampleText(wxLayoutList
*llist
)
168 llist
->Clear(wxSWISS
,16,wxNORMAL
,wxNORMAL
, false);
169 llist
->SetFont(-1,-1,-1,-1,-1,_T("blue"));
170 llist
->Insert(_T("blue"));
173 llist
->SetFont(-1,-1,-1,-1,-1,_T("black"));
174 llist
->Insert(_T("The quick brown fox jumps over the lazy dog."));
177 llist
->SetFont(wxROMAN
,16,wxNORMAL
,wxNORMAL
, false);
178 llist
->Insert(_T("--"));
181 llist
->SetFont(wxROMAN
);
182 llist
->Insert(_T("The quick brown fox jumps over the lazy dog."));
185 llist
->Insert(_T("Hello "));
188 new wxIcon(Micon_xpm
)
190 new wxBitmap (wxIcon(Micon_xpm
))
195 llist
->Insert(new wxLayoutObjectIcon(icon
));
196 llist
->SetFontWeight(wxBOLD
);
197 llist
->Insert(_T("World! "));
198 llist
->SetFontWeight(wxNORMAL
);
199 llist
->Insert(_T("The quick brown fox jumps..."));
202 llist
->Insert(_T("over the lazy dog."));
203 llist
->SetFont(-1,-1,-1,-1,true);
204 llist
->Insert(_T("underlined"));
205 llist
->SetFont(-1,-1,-1,-1,false);
206 llist
->SetFont(wxROMAN
);
207 llist
->Insert(_T("This is "));
208 llist
->SetFont(-1,-1,-1,wxBOLD
);
209 llist
->Insert(_T("BOLD "));
210 llist
->SetFont(-1,-1,-1,wxNORMAL
);
211 llist
->Insert(_T("and "));
212 llist
->SetFont(-1,-1,wxITALIC
);
213 llist
->Insert(_T("italics "));
214 llist
->SetFont(-1,-1,wxNORMAL
);
217 llist
->Insert(_T("and "));
218 llist
->SetFont(-1,-1,wxSLANT
);
219 llist
->Insert(_T("slanted"));
220 llist
->SetFont(-1,-1,wxNORMAL
);
221 llist
->Insert(_T(" text."));
224 llist
->Insert(_T("and "));
225 llist
->SetFont(-1,-1,-1,-1,-1,_T("blue"));
226 llist
->Insert(_T("blue"));
227 llist
->SetFont(-1,-1,-1,-1,-1,_T("black"));
228 llist
->Insert(_T(" and "));
229 llist
->SetFont(-1,-1,-1,-1,-1,_T("green"),_T("black"));
230 llist
->Insert(_T("green on black"));
231 llist
->SetFont(-1,-1,-1,-1,-1,_T("black"),_T("white"));
232 llist
->Insert(_T(" text."));
235 llist
->SetFont(-1,-1,wxSLANT
);
236 llist
->Insert(_T("Slanted"));
237 llist
->SetFont(-1,-1,wxNORMAL
);
238 llist
->Insert(_T(" and normal text and "));
239 llist
->SetFont(-1,-1,wxSLANT
);
240 llist
->Insert(_T("slanted"));
241 llist
->SetFont(-1,-1,wxNORMAL
);
242 llist
->Insert(_T(" again."));
245 // add some more text for testing:
246 llist
->Insert(_T("And here the source for the test program:"));
249 llist
->SetFont(wxTELETYPE
,16);
250 llist
->Insert(_T("And here the source for the test program:"));
253 wxTextFile
file(_T("wxLayout.cpp"));
256 for ( wxString s
= file
.GetFirstLine(); !file
.Eof(); s
= file
.GetNextLine() )
259 llist
->Insert(line
.Format(_T("%6u: %s"),file
.GetCurrentLine()+1,s
.c_str()));
264 llist
->MoveCursorTo(wxPoint(0,0));
269 void MyFrame::Clear()
271 wxColour
colBg(0, 0, 0);
273 m_lwin
->Clear(wxROMAN
,16,wxNORMAL
,wxNORMAL
, false, wxRED
, &colBg
);
277 void MyFrame::OnCommand( wxCommandEvent
&event
)
279 switch (event
.GetId())
287 wxLayoutPrintout
printout(m_lwin
->GetLayoutList(),_("M: Printout"));
288 if (! printer
.Print(this, &printout
, true))
290 // Had to remove the split up strings that used to be below, and
291 // put them into one long strong. Otherwise MSVC would give an
292 // error "C2308: concatenating mismatched wide strings" when
293 // building a Unicode version.
296 _("There was a problem with printing the message:\nperhaps your current printer is not set up correctly?"),
305 m_lwin
->SetWrapMargin(event
.GetId() == ID_NOWRAP
? 0 : 40);
308 AddSampleText(m_lwin
->GetLayoutList());
314 wxLogError( _T("Received click event.") );
318 m_lwin
->Refresh(false);
321 case ID_PASTE_PRIMARY
:
322 // text only from primary:
323 m_lwin
->Paste(false, true);
324 m_lwin
->Refresh(false);
326 case ID_COPY_PRIMARY
:
327 // copy text-only to primary selection:
328 m_lwin
->Copy(false, false, true);
329 m_lwin
->Refresh(false);
333 m_lwin
->Copy(true, true, false);
334 m_lwin
->Refresh(false);
338 m_lwin
->Refresh(false);
342 m_lwin
->Find("void");
343 m_lwin
->Refresh(false);
350 _T("Save As HTML..."),
353 _T("HTML file (*.html)|*.html|Text file (*.txt)|*.txt|Any file (*)|*"),
354 wxSAVE
|wxOVERWRITE_PROMPT
356 if (HTML_dialog
.ShowModal() == wxID_OK
)
358 wxFFileOutputStream
output( HTML_dialog
.GetPath() );
359 wxTextOutputStream
textout( output
);
361 wxLayoutExportObject
*export0
;
363 wxLayoutExportStatus
status(m_lwin
->GetLayoutList());
364 while((export0
= wxLayoutExport( &status
, WXLO_EXPORT_AS_HTML
)) != NULL
)
366 if(export0
->type
== WXLO_EXPORT_HTML
)
367 object
= *(export0
->content
.text
);
369 ; // ignore "<!--UNKNOWN OBJECT>";
381 _T("Save As TXT..."),
384 _T("Text file (*.txt)|*.txt|Any file (*)|*"),
385 wxSAVE
|wxOVERWRITE_PROMPT
387 if (TEXT_dialog
.ShowModal() == wxID_OK
)
389 wxFFileOutputStream
output( TEXT_dialog
.GetPath() );
390 wxTextOutputStream
textout( output
);
392 wxLayoutExportObject
*export0
;
394 wxLayoutExportStatus
status(m_lwin
->GetLayoutList());
395 while((export0
= wxLayoutExport( &status
, WXLO_EXPORT_AS_TEXT
)) != NULL
)
397 if(export0
->type
== WXLO_EXPORT_TEXT
)
398 object
= *(export0
->content
.text
);
400 object
= _T("<!--UNKNOWN OBJECT>");
411 wxLayoutList
*llist
= m_lwin
->GetLayoutList();
412 for(int i
= 1; i
< 300; i
++)
414 line
.Printf(wxT("This is line number %d."), i
);
419 llist
->MoveCursorTo(wxPoint(0,0));
425 case ID_LINEBREAKS_TEST
:
428 m_lwin
->GetLayoutList(),
429 wxT("This is a text\nwith embedded line\nbreaks.\n")
437 // VZ: this doesn't work, of course, but I think it should -
438 // wxLayoutWindow should have a flag m_highlightUrls and do it itself
439 // (instead of doing it manually like M does now)
440 m_lwin
->GetLayoutList()->Insert(_T("http://www.wxwidgets.org/"));
445 void MyFrame::OnPrint(wxCommandEvent
& WXUNUSED(event
))
448 wxGetApp().SetPrintMode(wxPRINT_WINDOWS
);
450 wxGetApp().SetPrintMode(wxPRINT_POSTSCRIPT
);
453 wxLayoutPrintout
printout( m_lwin
->GetLayoutList(), _T("Printout from wxLayout"));
454 if (! printer
.Print(this, &printout
, true))
456 _T("There was a problem printing.\nPerhaps your current printer is not set correctly?"),
457 _T("Printing"), wxOK
);
460 void MyFrame::OnPrintPS(wxCommandEvent
& WXUNUSED(event
))
462 wxGetApp().SetPrintMode(wxPRINT_POSTSCRIPT
);
465 wxPostScriptPrinter printer
;
466 wxLayoutPrintout
printout( m_lwin
->GetLayoutList(),"My printout");
467 printer
.Print(this, &printout
, true);
471 void MyFrame::OnPrintPreview(wxCommandEvent
& WXUNUSED(event
))
474 wxGetApp().SetPrintMode(wxPRINT_WINDOWS
);
476 wxGetApp().SetPrintMode(wxPRINT_POSTSCRIPT
);
478 wxPrintData printData
;
480 // Pass two printout objects: for preview, and possible printing.
481 wxPrintPreview
*preview
= new wxPrintPreview(new
483 m_lwin
->GetLayoutList()), new wxLayoutPrintout( m_lwin
->GetLayoutList()), & printData
);
487 wxMessageBox(_T("There was a problem previewing.\nPerhaps your current printer is not set correctly?"), _T("Previewing"), wxOK
);
491 wxPreviewFrame
*frame
= new wxPreviewFrame(preview
, this, _T("Demo Print Preview"), wxPoint(100, 100), wxSize(600, 650));
492 frame
->Centre(wxBOTH
);
497 void MyFrame::OnPrintPreviewPS(wxCommandEvent
& WXUNUSED(event
))
499 wxGetApp().SetPrintMode(wxPRINT_POSTSCRIPT
);
501 wxPrintData printData
;
503 // Pass two printout objects: for preview, and possible printing.
504 wxPrintPreview
*preview
= new wxPrintPreview(new wxLayoutPrintout( m_lwin
->GetLayoutList()), new wxLayoutPrintout( m_lwin
->GetLayoutList()), & printData
);
505 wxPreviewFrame
*frame
= new wxPreviewFrame(preview
, this, _T("Demo Print Preview"), wxPoint(100, 100), wxSize(600, 650));
506 frame
->Centre(wxBOTH
);
511 void MyFrame::OnPrintSetup(wxCommandEvent
& WXUNUSED(event
))
514 wxGetApp().SetPrintMode(wxPRINT_WINDOWS
);
516 wxGetApp().SetPrintMode(wxPRINT_POSTSCRIPT
);
518 wxPrintDialog
printerDialog(this, & m_PrintData
);
519 printerDialog
.ShowModal();
522 void MyFrame::OnPageSetup(wxCommandEvent
& WXUNUSED(event
))
525 wxGetApp().SetPrintMode(wxPRINT_WINDOWS
);
527 wxGetApp().SetPrintMode(wxPRINT_POSTSCRIPT
);
529 wxPageSetupData data
;
531 #if defined(__WXMSW__) || defined(__WXMAC__)
532 wxPageSetupDialog
pageSetupDialog(this, & data
);
534 wxGenericPageSetupDialog
pageSetupDialog(this, & data
);
536 pageSetupDialog
.ShowModal();
538 data
= pageSetupDialog
.GetPageSetupData();
541 void MyFrame::OnPrintSetupPS(wxCommandEvent
& WXUNUSED(event
))
543 wxGetApp().SetPrintMode(wxPRINT_POSTSCRIPT
);
547 #if defined(__WXMSW__) || defined(__WXMAC__)
548 wxPrintDialog
printerDialog(this, & data
);
550 wxGenericPrintDialog
printerDialog(this, & data
);
552 printerDialog
.ShowModal();
555 void MyFrame::OnPageSetupPS(wxCommandEvent
& WXUNUSED(event
))
557 wxGetApp().SetPrintMode(wxPRINT_POSTSCRIPT
);
559 wxPageSetupData data
;
560 #if defined(__WXMSW__) || defined(__WXMAC__)
561 wxPageSetupDialog
pageSetupDialog(this, & data
);
563 wxGenericPageSetupDialog
pageSetupDialog(this, & data
);
565 pageSetupDialog
.ShowModal();
569 //-----------------------------------------------------------------------------
571 //-----------------------------------------------------------------------------
580 wxFrame
*frame
= new MyFrame();
581 wxInitAllImageHandlers();
583 // wxSetAFMPath("/usr/local/src/wxWidgets/misc/afm/");