Logo ROOT  

Reference Guide
 
Loading...
Searching...
No Matches
TGHtmlBrowser.cxx
Go to the documentation of this file.
1// @(#)root/guitml:$Id$
2// Author: Bertrand Bellenot 26/09/2007
3
4/*************************************************************************
5 * Copyright (C) 1995-2007, Rene Brun and Fons Rademakers. *
6 * All rights reserved. *
7 * *
8 * For the licensing terms see $ROOTSYS/LICENSE. *
9 * For the list of contributors see $ROOTSYS/README/CREDITS. *
10 *************************************************************************/
11
12#include "TROOT.h"
13#include "TSystem.h"
14#include "TGMenu.h"
15#include "TGComboBox.h"
16#include "TGButton.h"
17#include "TGTextBuffer.h"
18#include "TGTextEntry.h"
19#include "TGStatusBar.h"
20#include "TGFileDialog.h"
21#include "TFile.h"
22#include "TBrowser.h"
23#include "TGHtml.h"
24#include "TString.h"
25#include "TUrl.h"
26#include "TSocket.h"
27#include "TGHtmlBrowser.h"
28#include "TGText.h"
29#include "TError.h"
30#include "TVirtualX.h"
31#include "snprintf.h"
32#ifdef R__SSL
33#include "TSSLSocket.h"
34#endif
35#ifdef WIN32
36#include "TWin32SplashThread.h"
37#endif
38
39#include <cstdlib>
40
41//_____________________________________________________________________________
42//
43// TGHtmlBrowser
44//
45// A very simple HTML browser.
46//_____________________________________________________________________________
47
48ClassImp(TGHtmlBrowser);
49
50enum EMyMessageTypes {
51 kM_FILE_OPEN,
52 kM_FILE_SAVEAS,
53 kM_FILE_BROWSE,
54 kM_FILE_EXIT,
55 kM_FAVORITES_ADD,
56 kM_TOOLS_CLEARHIST,
57 kM_HELP_ABOUT
58};
59
60static const char *gHtmlFTypes[] = {
61 "HTML files", "*.htm*",
62 "All files", "*",
63 0, 0
64};
65
66const char *HtmlError[] = {
67"<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd\"> ",
68"<HTML><HEAD><TITLE>RHTML cannot display the webpage</TITLE> ",
69"<META http-equiv=Content-Type content=\"text/html; charset=UTF-8\"></HEAD> ",
70"<BODY> ",
71"<TABLE cellSpacing=0 cellPadding=0 width=730 border=0> ",
72" <TBODY> ",
73" <TR> ",
74" <TD id=infoIconAlign vAlign=top align=left width=60 rowSpan=2> ",
75" <IMG src=\"info.gif\"> ",
76" </TD> ",
77" <TD id=mainTitleAlign vAlign=center align=left width=*> ",
78" <H1 id=mainTitle>RHTML cannot display the webpage</H1></TD></TR> ",
79" <TR> ",
80" <TD class=errorCodeAndDivider id=errorCodeAlign align=right>&nbsp; ",
81" <DIV class=divider></DIV></TD></TR> ",
82" <TR> ",
83" <UL> ",
84" </UL> ",
85" <TD>&nbsp; </TD> ",
86" <TD id=MostLikelyAlign vAlign=top align=left> ",
87" <H3 id=likelyCauses>Most likely causes:</H3> ",
88" <UL> ",
89" <LI id=causeNotConnected>You are not connected to the Internet. ",
90" <LI id=causeSiteProblem>The website is encountering problems. ",
91" <LI id=causeErrorInAddress>There might be a typing error in the address. ",
92" <LI id=causeOtherError> ",
93" </LI></UL></TD></TR> ",
94" <TR> ",
95" <TD id=infoBlockAlign vAlign=top align=right>&nbsp; </TD> ",
96" <TD id=moreInformationAlign vAlign=center align=left> ",
97" <H4> ",
98" <TABLE> ",
99" <TBODY> ",
100" <TR> ",
101" <TD vAlign=top><SPAN id=moreInfoContainer></SPAN><ID ",
102" id=moreInformation>More information</ID> ",
103" </TD></TR></TBODY></TABLE></H4> ",
104" <DIV class=infoBlock id=infoBlockID> ",
105" <P><ID id=errorExpl1>This problem can be caused by a variety of issues, ",
106" including:</ID> ",
107" <UL> ",
108" <LI id=errorExpl2>Internet connectivity has been lost. ",
109" <LI id=errorExpl3>The website is temporarily unavailable. ",
110" <LI id=errorExpl4>The Domain Name Server (DNS) is not reachable. ",
111" <LI id=errorExpl5>The Domain Name Server (DNS) does not have a listing ",
112" for the website's domain. ",
113" <P></P> ",
114" <P></P></DIV></TD></TR></TBODY></TABLE></BODY></HTML> ",
1150
116};
117
118////////////////////////////////////////////////////////////////////////////////
119/// TGHtmlBrowser constructor.
120
121TGHtmlBrowser::TGHtmlBrowser(const char *filename, const TGWindow *p, UInt_t w, UInt_t h)
122 : TGMainFrame(p, w, h)
123{
124 SetCleanup(kDeepCleanup);
125 fNbFavorites = 1000;
126 fMenuBar = new TGMenuBar(this, 35, 50, kHorizontalFrame);
127
128 fMenuFile = new TGPopupMenu(gClient->GetDefaultRoot());
129 fMenuFile->AddEntry(" &Open...\tCtrl+O", kM_FILE_OPEN, 0,
130 gClient->GetPicture("ed_open.png"));
131 fMenuFile->AddEntry(" Save &As...\tCtrl+A", kM_FILE_SAVEAS, 0,
132 gClient->GetPicture("ed_save.png"));
133 fMenuFile->AddEntry(" &Browse...\tCtrl+B", kM_FILE_BROWSE);
134 fMenuFile->AddSeparator();
135 fMenuFile->AddEntry(" E&xit\tCtrl+Q", kM_FILE_EXIT, 0,
136 gClient->GetPicture("bld_exit.png"));
137 fMenuFile->Associate(this);
138
139 fMenuFavorites = new TGPopupMenu(gClient->GetDefaultRoot());
140 fMenuFavorites->AddEntry("&Add to Favorites", kM_FAVORITES_ADD, 0,
141 gClient->GetPicture("bld_plus.png"));
142 fMenuFavorites->AddSeparator();
143 fMenuFavorites->AddEntry("http://root.cern.ch", fNbFavorites++, 0,
144 gClient->GetPicture("htmlfile.gif"));
145 fMenuFavorites->Associate(this);
146
147 fMenuTools = new TGPopupMenu(gClient->GetDefaultRoot());
148 fMenuTools->AddEntry("&Clear History", kM_TOOLS_CLEARHIST, 0,
149 gClient->GetPicture("ed_delete.png"));
150 fMenuTools->Associate(this);
151
152 fMenuHelp = new TGPopupMenu(gClient->GetDefaultRoot());
153 fMenuHelp->AddEntry(" &About...", kM_HELP_ABOUT, 0, gClient->GetPicture("about.xpm"));
154 fMenuHelp->Associate(this);
155
156 fMenuBar->AddPopup("&File", fMenuFile, new TGLayoutHints(kLHintsTop | kLHintsLeft, 0, 4, 0, 0));
157 fMenuBar->AddPopup("&Favorites", fMenuFavorites, new TGLayoutHints(kLHintsTop | kLHintsLeft, 0, 4, 0, 0));
158 fMenuBar->AddPopup("&Tools", fMenuTools, new TGLayoutHints(kLHintsTop | kLHintsLeft, 0, 4, 0, 0));
159 fMenuBar->AddPopup("&Help", fMenuHelp, new TGLayoutHints(kLHintsTop | kLHintsRight));
160
161 AddFrame(fMenuBar, new TGLayoutHints(kLHintsTop | kLHintsExpandX));
162
163 // vertical frame
164 fVerticalFrame = new TGVerticalFrame(this,727,600,kVerticalFrame);
165
166 fHorizontalFrame = new TGHorizontalFrame(fVerticalFrame,727,600);
167
168 fBack = new TGPictureButton(fHorizontalFrame,gClient->GetPicture("GoBack.gif"));
169 fBack->SetStyle(gClient->GetStyle());
170 fBack->SetToolTipText("Go Back");
171 fHorizontalFrame->AddFrame(fBack, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsCenterY,2,2,2,2));
172 fBack->Connect("Clicked()", "TGHtmlBrowser", this, "Back()");
173
174 fForward = new TGPictureButton(fHorizontalFrame,gClient->GetPicture("GoForward.gif"));
175 fForward->SetStyle(gClient->GetStyle());
176 fForward->SetToolTipText("Go Forward");
177 fHorizontalFrame->AddFrame(fForward, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsCenterY,2,2,2,2));
178 fForward->Connect("Clicked()", "TGHtmlBrowser", this, "Forward()");
179
180 fReload = new TGPictureButton(fHorizontalFrame,gClient->GetPicture("ReloadPage.gif"));
181 fReload->SetStyle(gClient->GetStyle());
182 fReload->SetToolTipText("Reload Page");
183 fHorizontalFrame->AddFrame(fReload, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsCenterY,2,2,2,2));
184 fReload->Connect("Clicked()", "TGHtmlBrowser", this, "Reload()");
185
186 fStop = new TGPictureButton(fHorizontalFrame,gClient->GetPicture("StopLoading.gif"));
187 fStop->SetStyle(gClient->GetStyle());
188 fStop->SetToolTipText("Stop Loading");
189 fHorizontalFrame->AddFrame(fStop, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsCenterY,2,2,2,2));
190 fStop->Connect("Clicked()", "TGHtmlBrowser", this, "Stop()");
191
192 fHome = new TGPictureButton(fHorizontalFrame,gClient->GetPicture("GoHome.gif"));
193 fHome->SetStyle(gClient->GetStyle());
194 fHome->SetToolTipText("Go to ROOT HomePage\n (http://root.cern.ch)");
195 fHorizontalFrame->AddFrame(fHome, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsCenterY,2,2,2,2));
196 fHome->Connect("Clicked()", "TGHtmlBrowser", this, "Selected(=\"http://root.cern.ch\")");
197
198 // combo box
199 fURLBuf = new TGTextBuffer(256);
200 fComboBox = new TGComboBox(fHorizontalFrame, "");
201 fURL = fComboBox->GetTextEntry();
202 fURLBuf = fURL->GetBuffer();
203 fComboBox->Resize(200, fURL->GetDefaultHeight());
204 fURL->Connect("ReturnPressed()", "TGHtmlBrowser", this, "URLChanged()");
205
206 if (filename) {
207 fComboBox->AddEntry(filename, 1);
208 fURL->SetText(filename);
209 }
210 fComboBox->Select(0);
211 fComboBox->Connect("Selected(char *)", "TGHtmlBrowser", this, "Selected(char *)");
212
213 fHorizontalFrame->AddFrame(fComboBox, new TGLayoutHints(kLHintsLeft | kLHintsCenterY | kLHintsExpandX,2,2,2,2));
214
215 fVerticalFrame->AddFrame(fHorizontalFrame, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsExpandX,2,2,2,2));
216
217 // embedded canvas
218 fHtml = new TGHtml(fVerticalFrame, 10, 10, -1);
219 fVerticalFrame->AddFrame(fHtml, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsExpandX | kLHintsExpandY,2,2,2,2));
220
221 AddFrame(fVerticalFrame, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsExpandX | kLHintsExpandY,2,2,2,2));
222
223 // status bar
224 fStatusBar = new TGStatusBar(this,100,20);
225 Int_t partsusBar[] = {75,25};
226 fStatusBar->SetParts(partsusBar,2);
227 AddFrame(fStatusBar, new TGLayoutHints(kLHintsBottom | kLHintsExpandX));
228
229 fHtml->Connect("MouseOver(const char *)", "TGHtmlBrowser", this, "MouseOver(const char *)");
230 fHtml->Connect("MouseDown(const char *)", "TGHtmlBrowser", this, "MouseDown(const char *)");
231
232 MapSubwindows();
233 Resize(GetDefaultSize());
234 MapWindow();
235 Resize(w, h);
236
237 if (filename)
238 Selected(filename);
239}
240
241////////////////////////////////////////////////////////////////////////////////
242/// Read (open) remote files.
243
244Ssiz_t ReadSize(const char *url)
245{
246 char buf[4096];
247 TUrl fUrl(url);
248
249 // Give full URL so Apache's virtual hosts solution works.
250 TString msg = "HEAD ";
251 msg += fUrl.GetProtocol();
252 msg += "://";
253 msg += fUrl.GetHost();
254 msg += ":";
255 msg += fUrl.GetPort();
256 msg += "/";
257 msg += fUrl.GetFile();
258 msg += " HTTP/1.0";
259 msg += "\r\n";
260 msg += "User-Agent: ROOT-TWebFile/1.1";
261 msg += "\r\n\r\n";
262
263 TSocket *s;
264 TString uri(url);
265 if (!uri.BeginsWith("http://") && !uri.BeginsWith("https://"))
266 return 0;
267 if (uri.BeginsWith("https://")) {
268#ifdef R__SSL
269 s = new TSSLSocket(fUrl.GetHost(), fUrl.GetPort());
270#else
271 ::Error("ReadSize", "library compiled without SSL, https not supported");
272 return 0;
273#endif
274 }
275 else {
276 s = new TSocket(fUrl.GetHost(), fUrl.GetPort());
277 }
278 if (!s->IsValid()) {
279 delete s;
280 return 0;
281 }
282 if (s->SendRaw(msg.Data(), msg.Length()) == -1) {
283 delete s;
284 return 0;
285 }
286 if (s->RecvRaw(buf, 4096) == -1) {
287 delete s;
288 return 0;
289 }
290 TString reply(buf);
291 Ssiz_t idx = reply.Index("Content-length:", 0, TString::kIgnoreCase);
292 if (idx > 0) {
293 idx += 15;
294 TString slen = reply(idx, reply.Length() - idx);
295 delete s;
296 return (Ssiz_t)atol(slen.Data());
297 }
298 delete s;
299 return 0;
300}
301
302////////////////////////////////////////////////////////////////////////////////
303/// Read (open) remote files.
304
305static char *ReadRemote(const char *url)
306{
307 static char *buf = 0;
308 TUrl fUrl(url);
309
310 Ssiz_t size = ReadSize(url);
311 if (size <= 0) size = 1024*1024;
312
313 TString msg = "GET ";
314 msg += fUrl.GetProtocol();
315 msg += "://";
316 msg += fUrl.GetHost();
317 msg += ":";
318 msg += fUrl.GetPort();
319 msg += "/";
320 msg += fUrl.GetFile();
321 msg += "\r\n";
322
323 TSocket *s;
324 TString uri(url);
325 if (!uri.BeginsWith("http://") && !uri.BeginsWith("https://"))
326 return 0;
327 if (uri.BeginsWith("https://")) {
328#ifdef R__SSL
329 s = new TSSLSocket(fUrl.GetHost(), fUrl.GetPort());
330#else
331 ::Error("ReadRemote", "library compiled without SSL, https not supported");
332 return 0;
333#endif
334 }
335 else {
336 s = new TSocket(fUrl.GetHost(), fUrl.GetPort());
337 }
338 if (!s->IsValid()) {
339 delete s;
340 return 0;
341 }
342 if (s->SendRaw(msg.Data(), msg.Length()) == -1) {
343 delete s;
344 return 0;
345 }
346 buf = (char *)calloc(size+1, sizeof(char));
347 if (s->RecvRaw(buf, size) == -1) {
348 free(buf);
349 delete s;
350 return 0;
351 }
352 delete s;
353 return buf;
354}
355
356////////////////////////////////////////////////////////////////////////////////
357/// Open (browse) selected URL.
358
359void TGHtmlBrowser::Selected(const char *uri)
360{
361 char *buf = 0;
362 FILE *f;
363
364 if (CheckAnchors(uri))
365 return;
366
367 TString surl(gSystem->UnixPathName(uri));
368 if (!surl.BeginsWith("http://") && !surl.BeginsWith("https://") &&
369 !surl.BeginsWith("ftp://") && !surl.BeginsWith("file://")) {
370 if (surl.BeginsWith("file:"))
371 surl.ReplaceAll("file:", "file://");
372 else
373 surl.Prepend("file://");
374 }
375 if (surl.EndsWith(".root")) {
376 // in case of root file, just open it and refresh browsers
377 gVirtualX->SetCursor(fHtml->GetId(), gVirtualX->CreateCursor(kWatch));
378 gROOT->ProcessLine(Form("TFile::Open(\"%s\");", surl.Data()));
379 Clicked((char *)surl.Data());
380 gROOT->RefreshBrowsers();
381 gVirtualX->SetCursor(fHtml->GetId(), gVirtualX->CreateCursor(kPointer));
382 return;
383 }
384 gVirtualX->SetCursor(fHtml->GetId(), gVirtualX->CreateCursor(kWatch));
385 TUrl url(surl.Data());
386 if (surl.EndsWith(".pdf", TString::kIgnoreCase)) {
387 // special case: open pdf files with external viewer
388 // works only on Windows for the time being...
389 if (!gVirtualX->InheritsFrom("TGX11")) {
390 TString cmd = TString::Format("explorer %s", surl.Data());
391 gSystem->Exec(cmd.Data());
392 }
393 gVirtualX->SetCursor(fHtml->GetId(), gVirtualX->CreateCursor(kPointer));
394 return;
395 }
396 if (surl.EndsWith(".gif") || surl.EndsWith(".jpg") || surl.EndsWith(".png")) {
397 // special case: single picture
398 fHtml->Clear();
399 char imgHtml[1024];
400 snprintf(imgHtml, 1000, "<IMG src=\"%s\"> ", surl.Data());
401 fHtml->ParseText(imgHtml);
402 fHtml->SetBaseUri(url.GetUrl());
403 fURL->SetText(surl.Data());
404 if (!fComboBox->FindEntry(surl.Data()))
405 fComboBox->AddEntry(surl.Data(), fComboBox->GetNumberOfEntries()+1);
406 fHtml->Layout();
407 gVirtualX->SetCursor(fHtml->GetId(), gVirtualX->CreateCursor(kPointer));
408 return;
409 }
410 if (!strcmp(url.GetProtocol(), "http") ||
411 !strcmp(url.GetProtocol(), "https")) {
412 // standard web page
413 buf = ReadRemote(url.GetUrl());
414 if (buf) {
415 fHtml->Clear();
416 fHtml->Layout();
417 fHtml->SetBaseUri(url.GetUrl());
418 fHtml->ParseText(buf);
419 free(buf);
420 fURL->SetText(surl.Data());
421 if (!fComboBox->FindEntry(surl.Data()))
422 fComboBox->AddEntry(surl.Data(), fComboBox->GetNumberOfEntries()+1);
423 }
424 else {
425 fHtml->Clear();
426 fHtml->Layout();
427 fHtml->SetBaseUri("");
428 for (int i=0; HtmlError[i]; i++) {
429 fHtml->ParseText((char *)HtmlError[i]);
430 }
431 }
432 }
433 else {
434 // local file
435 f = fopen(url.GetFile(), "r");
436 if (f) {
437 TString fpath = url.GetUrl();
438 fpath.ReplaceAll(gSystem->BaseName(fpath.Data()), "");
439 fpath.ReplaceAll("file://", "");
440 fHtml->Clear();
441 fHtml->Layout();
442 fHtml->SetBaseUri(fpath.Data());
443 buf = (char *)calloc(4096, sizeof(char));
444 if (buf) {
445 while (fgets(buf, 4096, f)) {
446 fHtml->ParseText(buf);
447 }
448 free(buf);
449 }
450 fclose(f);
451 fURL->SetText(surl.Data());
452 if (!fComboBox->FindEntry(surl.Data()))
453 fComboBox->AddEntry(surl.Data(), fComboBox->GetNumberOfEntries()+1);
454 }
455 else {
456 fHtml->Clear();
457 fHtml->Layout();
458 fHtml->SetBaseUri("");
459 for (int i=0; HtmlError[i]; i++) {
460 fHtml->ParseText((char *)HtmlError[i]);
461 }
462 }
463 }
464 // restore cursor
465 gVirtualX->SetCursor(fHtml->GetId(), gVirtualX->CreateCursor(kPointer));
466 fHtml->Layout();
467 Ssiz_t idx = surl.Last('#');
468 if (idx > 0) {
469 idx +=1; // skip #
470 TString anchor = surl(idx, surl.Length() - idx);
471 fHtml->GotoAnchor(anchor.Data());
472 }
473 SetWindowName(Form("%s - RHTML",surl.Data()));
474}
475
476////////////////////////////////////////////////////////////////////////////////
477/// URL combobox has changed.
478
479void TGHtmlBrowser::URLChanged()
480{
481 const char *string = fURL->GetText();
482 if (string) {
483 Selected(gSystem->UnixPathName(string));
484 }
485}
486
487////////////////////////////////////////////////////////////////////////////////
488/// Handle "Back" navigation button.
489
490void TGHtmlBrowser::Back()
491{
492 Int_t index = 0;
493 const char *string = fURL->GetText();
494 TGLBEntry * lbe1 = fComboBox->FindEntry(string);
495 if (lbe1)
496 index = lbe1->EntryId();
497 if (index > 0) {
498 fComboBox->Select(index - 1, kTRUE);
499 TGTextLBEntry *entry = (TGTextLBEntry *)fComboBox->GetSelectedEntry();
500 if (entry) {
501 string = entry->GetTitle();
502 if (string)
503 Selected(string);
504 }
505 }
506}
507
508////////////////////////////////////////////////////////////////////////////////
509/// Check if we just change position in the page (using anchor)
510/// and return kTRUE if any anchor has been found and followed.
511
512Bool_t TGHtmlBrowser::CheckAnchors(const char *uri)
513{
514 TString surl(gSystem->UnixPathName(uri));
515
516 if (!fHtml->GetBaseUri())
517 return kFALSE;
518 TString actual = fHtml->GetBaseUri();
519 Ssiz_t idx = surl.Last('#');
520 Ssiz_t idy = actual.Last('#');
521 TString short1(surl.Data());
522 TString short2(actual.Data());
523 if (idx > 0)
524 short1 = surl(0, idx);
525 if (idy > 0)
526 short2 = actual(0, idy);
527
528 if (short1 == short2) {
529 if (idx > 0) {
530 idx +=1; // skip #
531 TString anchor = surl(idx, surl.Length() - idx);
532 fHtml->GotoAnchor(anchor.Data());
533 }
534 else {
535 fHtml->ScrollToPosition(TGLongPosition(0, 0));
536 }
537 fHtml->SetBaseUri(surl.Data());
538 if (!fComboBox->FindEntry(surl.Data()))
539 fComboBox->AddEntry(surl.Data(), fComboBox->GetNumberOfEntries()+1);
540 fURL->SetText(surl.Data());
541 fComboBox->Select(fComboBox->GetNumberOfEntries(), kFALSE);
542 SetWindowName(Form("%s - RHTML",surl.Data()));
543 return kTRUE;
544 }
545 return kFALSE;
546}
547
548////////////////////////////////////////////////////////////////////////////////
549/// Handle "Forward" navigation button.
550
551void TGHtmlBrowser::Forward()
552{
553 Int_t index = 0;
554 const char *string = fURL->GetText();
555 TGLBEntry * lbe1 = fComboBox->FindEntry(string);
556 if (lbe1)
557 index = lbe1->EntryId();
558 if (index < fComboBox->GetNumberOfEntries()) {
559 fComboBox->Select(index + 1, kTRUE);
560 TGTextLBEntry *entry = (TGTextLBEntry *)fComboBox->GetSelectedEntry();
561 if (entry) {
562 string = entry->GetTitle();
563 if (string)
564 Selected(string);
565 }
566 }
567}
568
569////////////////////////////////////////////////////////////////////////////////
570/// Handle "Reload" navigation button.
571
572void TGHtmlBrowser::Reload()
573{
574 const char *string = fURL->GetText();
575 if (string)
576 Selected(string);
577}
578
579////////////////////////////////////////////////////////////////////////////////
580/// Handle "Reload" navigation button.
581
582void TGHtmlBrowser::Stop()
583{
584}
585
586////////////////////////////////////////////////////////////////////////////////
587/// Handle "MouseOver" TGHtml signal.
588
589void TGHtmlBrowser::MouseOver(const char *url)
590{
591 fStatusBar->SetText(url, 0);
592}
593
594////////////////////////////////////////////////////////////////////////////////
595/// Handle "MouseDown" TGHtml signal.
596
597void TGHtmlBrowser::MouseDown(const char *url)
598{
599 Selected(url);
600}
601
602////////////////////////////////////////////////////////////////////////////////
603/// Process Events.
604
605Bool_t TGHtmlBrowser::ProcessMessage(Long_t msg, Long_t parm1, Long_t)
606{
607 switch (GET_MSG(msg)) {
608 case kC_COMMAND:
609 {
610 switch (GET_SUBMSG(msg)) {
611
612 case kCM_MENU:
613 case kCM_BUTTON:
614
615 switch(parm1) {
616
617 case kM_FILE_EXIT:
618 CloseWindow();
619 break;
620
621 case kM_FILE_OPEN:
622 {
623 static TString dir(".");
624 TGFileInfo fi;
625 fi.fFileTypes = gHtmlFTypes;
626 fi.SetIniDir(dir);
627 new TGFileDialog(fClient->GetRoot(), this,
628 kFDOpen, &fi);
629 dir = fi.fIniDir;
630 if (fi.fFilename) {
631 Selected(Form("file://%s",
632 gSystem->UnixPathName(fi.fFilename)));
633 }
634 }
635 break;
636
637 case kM_FILE_SAVEAS:
638 {
639 static TString sdir(".");
640 TGFileInfo fi;
641 fi.fFileTypes = gHtmlFTypes;
642 fi.SetIniDir(sdir);
643 new TGFileDialog(fClient->GetRoot(), this,
644 kFDSave, &fi);
645 sdir = fi.fIniDir;
646 if (fi.fFilename) {
647 TGText txt(fHtml->GetText());
648 txt.Save(gSystem->UnixPathName(fi.fFilename));
649 }
650 }
651 break;
652
653 case kM_FAVORITES_ADD:
654 fMenuFavorites->AddEntry(Form("%s",
655 fURL->GetText()), fNbFavorites++, 0,
656 gClient->GetPicture("htmlfile.gif"));
657 break;
658
659 case kM_TOOLS_CLEARHIST:
660 fComboBox->RemoveEntries(1,fComboBox->GetNumberOfEntries());
661 break;
662
663 case kM_FILE_BROWSE:
664 new TBrowser();
665 break;
666
667 case kM_HELP_ABOUT:
668 {
669#ifdef R__UNIX
670 TString rootx = TROOT::GetBinDir() + "/root -a &";
671 gSystem->Exec(rootx);
672#else
673#ifdef WIN32
674 new TWin32SplashThread(kTRUE);
675#else
676 char str[32];
677 snprintf(str, 32, "About ROOT %s...", gROOT->GetVersion());
678 TRootHelpDialog *hd = new TRootHelpDialog(this, str,
679 600, 400);
680 hd->SetText(gHelpAbout);
681 hd->Popup();
682#endif
683#endif
684 }
685 break;
686
687 default:
688 {
689 if (parm1 < 1000) break;
690 TGMenuEntry *entry = fMenuFavorites->GetEntry(parm1);
691 if (!entry) break;
692 const char *shortcut = entry->GetName();
693 if (shortcut)
694 Selected(shortcut);
695 }
696 break;
697 }
698 break;
699 }
700 break;
701 }
702 }
703 return kTRUE;
704}
705
kVerticalFrame
@ kVerticalFrame
Definition GuiTypes.h:381
kHorizontalFrame
@ kHorizontalFrame
Definition GuiTypes.h:382
kWatch
@ kWatch
Definition GuiTypes.h:375
kPointer
@ kPointer
Definition GuiTypes.h:375
gHelpAbout
R__EXTERN const char gHelpAbout[]
Definition HelpText.h:17
f
#define f(i)
Definition RSha256.hxx:104
h
#define h(i)
Definition RSha256.hxx:106
Ssiz_t
int Ssiz_t
Definition RtypesCore.h:67
kFALSE
const Bool_t kFALSE
Definition RtypesCore.h:92
Long_t
long Long_t
Definition RtypesCore.h:54
kTRUE
const Bool_t kTRUE
Definition RtypesCore.h:91
ClassImp
#define ClassImp(name)
Definition Rtypes.h:364
Error
void Error(const char *location, const char *msgfmt,...)
Use this function in case an error occurred.
Definition TError.cxx:187
gClient
#define gClient
Definition TGClient.h:166
kFDOpen
@ kFDOpen
Definition TGFileDialog.h:38
kFDSave
@ kFDSave
Definition TGFileDialog.h:39
kDeepCleanup
@ kDeepCleanup
Definition TGFrame.h:50
HtmlError
const char * HtmlError[]
Definition TGHtmlBrowser.cxx:66
EMyMessageTypes
EMyMessageTypes
Definition TGHtmlBrowser.cxx:50
kM_HELP_ABOUT
@ kM_HELP_ABOUT
Definition TGHtmlBrowser.cxx:57
kM_FILE_EXIT
@ kM_FILE_EXIT
Definition TGHtmlBrowser.cxx:54
kM_FAVORITES_ADD
@ kM_FAVORITES_ADD
Definition TGHtmlBrowser.cxx:55
kM_FILE_OPEN
@ kM_FILE_OPEN
Definition TGHtmlBrowser.cxx:51
kM_TOOLS_CLEARHIST
@ kM_TOOLS_CLEARHIST
Definition TGHtmlBrowser.cxx:56
kM_FILE_SAVEAS
@ kM_FILE_SAVEAS
Definition TGHtmlBrowser.cxx:52
kM_FILE_BROWSE
@ kM_FILE_BROWSE
Definition TGHtmlBrowser.cxx:53
ReadSize
Ssiz_t ReadSize(const char *url)
Read (open) remote files.
Definition TGHtmlBrowser.cxx:244
gHtmlFTypes
static const char * gHtmlFTypes[]
Definition TGHtmlBrowser.cxx:60
ReadRemote
static char * ReadRemote(const char *url)
Read (open) remote files.
Definition TGHtmlBrowser.cxx:305
kLHintsRight
@ kLHintsRight
Definition TGLayout.h:33
kLHintsExpandY
@ kLHintsExpandY
Definition TGLayout.h:38
kLHintsLeft
@ kLHintsLeft
Definition TGLayout.h:31
kLHintsCenterY
@ kLHintsCenterY
Definition TGLayout.h:35
kLHintsBottom
@ kLHintsBottom
Definition TGLayout.h:36
kLHintsTop
@ kLHintsTop
Definition TGLayout.h:34
kLHintsExpandX
@ kLHintsExpandX
Definition TGLayout.h:37
kM_HELP_ABOUT
@ kM_HELP_ABOUT
Definition TGTextEditor.cxx:202
kM_FILE_EXIT
@ kM_FILE_EXIT
Definition TGTextEditor.cxx:199
kM_FILE_OPEN
@ kM_FILE_OPEN
Definition TGTextEditor.cxx:198
kM_FILE_SAVEAS
@ kM_FILE_SAVEAS
Definition TGTextEditor.cxx:198
gROOT
#define gROOT
Definition TROOT.h:406
Form
char * Form(const char *fmt,...)
gSystem
R__EXTERN TSystem * gSystem
Definition TSystem.h:559
gVirtualX
#define gVirtualX
Definition TVirtualX.h:338
GET_MSG
Int_t GET_MSG(Long_t val)
Definition WidgetMessageTypes.h:112
kCM_MENU
@ kCM_MENU
Definition WidgetMessageTypes.h:34
kC_COMMAND
@ kC_COMMAND
Definition WidgetMessageTypes.h:33
kCM_BUTTON
@ kCM_BUTTON
Definition WidgetMessageTypes.h:36
GET_SUBMSG
Int_t GET_SUBMSG(Long_t val)
Definition WidgetMessageTypes.h:113
free
#define free
Definition civetweb.c:1539
calloc
#define calloc
Definition civetweb.c:1537
snprintf
#define snprintf
Definition civetweb.c:1540
TBrowser
Using a TBrowser one can browse all ROOT objects.
Definition TBrowser.h:37
TGButton::SetToolTipText
virtual void SetToolTipText(const char *text, Long_t delayms=400)
Set tool tip text associated with this button.
Definition TGButton.cxx:398
TGButton::SetStyle
virtual void SetStyle(UInt_t newstyle)
Set the button style (modern or classic).
Definition TGButton.cxx:224
TGClient::GetRoot
const TGWindow * GetRoot() const
Returns current root (i.e.
Definition TGClient.cxx:223
TGComboBox::GetSelectedEntry
virtual TGLBEntry * GetSelectedEntry() const
Definition TGComboBox.h:135
TGComboBox::GetTextEntry
virtual TGTextEntry * GetTextEntry() const
Definition TGComboBox.h:131
TGComboBox::AddEntry
virtual void AddEntry(TGString *s, Int_t id)
Definition TGComboBox.h:106
TGComboBox::RemoveEntries
virtual void RemoveEntries(Int_t from_ID, Int_t to_ID)
Definition TGComboBox.h:125
TGComboBox::Select
virtual void Select(Int_t id, Bool_t emit=kTRUE)
Make the selected item visible in the combo box window and emit signals according to the second param...
Definition TGComboBox.cxx:451
TGComboBox::FindEntry
virtual TGLBEntry * FindEntry(const char *s) const
Find entry by name.
Definition TGComboBox.cxx:422
TGComboBox::GetNumberOfEntries
virtual Int_t GetNumberOfEntries() const
Definition TGComboBox.h:127
TGCompositeFrame::AddFrame
virtual void AddFrame(TGFrame *f, TGLayoutHints *l=0)
Add frame to the composite frame using the specified layout hints.
Definition TGFrame.cxx:1102
TGCompositeFrame::SetCleanup
virtual void SetCleanup(Int_t mode=kLocalCleanup)
Turn on automatic cleanup of child frames in dtor.
Definition TGFrame.cxx:1057
TGCompositeFrame::GetDefaultSize
virtual TGDimension GetDefaultSize() const
std::cout << fWidth << "x" << fHeight << std::endl;
Definition TGFrame.h:352
TGCompositeFrame::MapSubwindows
virtual void MapSubwindows()
Map all sub windows that are part of the composite frame.
Definition TGFrame.cxx:1149
TGFileInfo::fFilename
char * fFilename
Definition TGFileDialog.h:63
TGFileInfo::fFileTypes
const char ** fFileTypes
Definition TGFileDialog.h:65
TGFileInfo::fIniDir
char * fIniDir
Definition TGFileDialog.h:64
TGFileInfo::SetIniDir
void SetIniDir(const char *inidir)
Set directory name.
Definition TGFileDialog.cxx:115
TGFrame::GetDefaultHeight
virtual UInt_t GetDefaultHeight() const
Definition TGFrame.h:215
TGFrame::Resize
virtual void Resize(UInt_t w=0, UInt_t h=0)
Resize the frame.
Definition TGFrame.cxx:590
TGFrame::MapWindow
virtual void MapWindow()
map window
Definition TGFrame.h:228
TGHtmlBrowser::Reload
void Reload()
Handle "Reload" navigation button.
Definition TGHtmlBrowser.cxx:572
TGHtmlBrowser::CheckAnchors
Bool_t CheckAnchors(const char *)
Check if we just change position in the page (using anchor) and return kTRUE if any anchor has been f...
Definition TGHtmlBrowser.cxx:512
TGHtmlBrowser::fURLBuf
TGTextBuffer * fURLBuf
Definition TGHtmlBrowser.h:52
TGHtmlBrowser::MouseOver
void MouseOver(const char *)
Handle "MouseOver" TGHtml signal.
Definition TGHtmlBrowser.cxx:589
TGHtmlBrowser::Back
void Back()
Handle "Back" navigation button.
Definition TGHtmlBrowser.cxx:490
TGHtmlBrowser::fVerticalFrame
TGVerticalFrame * fVerticalFrame
Definition TGHtmlBrowser.h:44
TGHtmlBrowser::TGHtmlBrowser
TGHtmlBrowser(const char *filename=nullptr, const TGWindow *p=nullptr, UInt_t w=900, UInt_t h=600)
TGHtmlBrowser constructor.
Definition TGHtmlBrowser.cxx:121
TGHtmlBrowser::fMenuHelp
TGPopupMenu * fMenuHelp
Definition TGHtmlBrowser.h:42
TGHtmlBrowser::fStop
TGPictureButton * fStop
Definition TGHtmlBrowser.h:49
TGHtmlBrowser::fMenuBar
TGMenuBar * fMenuBar
Definition TGHtmlBrowser.h:38
TGHtmlBrowser::Selected
void Selected(const char *txt)
Open (browse) selected URL.
Definition TGHtmlBrowser.cxx:359
TGHtmlBrowser::MouseDown
void MouseDown(const char *)
Handle "MouseDown" TGHtml signal.
Definition TGHtmlBrowser.cxx:597
TGHtmlBrowser::fHome
TGPictureButton * fHome
Definition TGHtmlBrowser.h:50
TGHtmlBrowser::fHorizontalFrame
TGHorizontalFrame * fHorizontalFrame
Definition TGHtmlBrowser.h:45
TGHtmlBrowser::Clicked
void Clicked(char *uri)
Definition TGHtmlBrowser.h:72
TGHtmlBrowser::fMenuFile
TGPopupMenu * fMenuFile
Definition TGHtmlBrowser.h:39
TGHtmlBrowser::fBack
TGPictureButton * fBack
Definition TGHtmlBrowser.h:46
TGHtmlBrowser::fStatusBar
TGStatusBar * fStatusBar
Definition TGHtmlBrowser.h:43
TGHtmlBrowser::fMenuFavorites
TGPopupMenu * fMenuFavorites
Definition TGHtmlBrowser.h:40
TGHtmlBrowser::fForward
TGPictureButton * fForward
Definition TGHtmlBrowser.h:47
TGHtmlBrowser::Forward
void Forward()
Handle "Forward" navigation button.
Definition TGHtmlBrowser.cxx:551
TGHtmlBrowser::Stop
void Stop()
Handle "Reload" navigation button.
Definition TGHtmlBrowser.cxx:582
TGHtmlBrowser::ProcessMessage
virtual Bool_t ProcessMessage(Long_t msg, Long_t parm1, Long_t)
Process Events.
Definition TGHtmlBrowser.cxx:605
TGHtmlBrowser::fReload
TGPictureButton * fReload
Definition TGHtmlBrowser.h:48
TGHtmlBrowser::fURL
TGTextEntry * fURL
Definition TGHtmlBrowser.h:53
TGHtmlBrowser::URLChanged
void URLChanged()
URL combobox has changed.
Definition TGHtmlBrowser.cxx:479
TGHtmlBrowser::fComboBox
TGComboBox * fComboBox
Definition TGHtmlBrowser.h:51
TGHtmlBrowser::fMenuTools
TGPopupMenu * fMenuTools
Definition TGHtmlBrowser.h:41
TGHtml::GotoAnchor
int GotoAnchor(const char *name)
Go to anchor position.
Definition TGHtml.cxx:451
TGHtml::Clear
virtual void Clear(Option_t *="")
Erase all HTML from this widget and clear the screen.
Definition TGHtml.cxx:300
TGHtml::ParseText
int ParseText(char *text, const char *index=0)
Appends (or insert at the specified position) the given HTML text to the end of any HTML text that ma...
Definition TGHtml.cxx:315
TGHtml::SetBaseUri
void SetBaseUri(const char *uri)
Sets base URI.
Definition TGHtml.cxx:441
TGHtml::GetBaseUri
const char * GetBaseUri() const
Definition TGHtml.h:906
TGHtml::GetText
const char * GetText() const
Definition TGHtml.h:961
TGLBEntry::EntryId
Int_t EntryId() const
Definition TGListBox.h:67
TGMainFrame::CloseWindow
virtual void CloseWindow()
Close and delete main frame.
Definition TGFrame.cxx:1731
TGMainFrame::SetWindowName
void SetWindowName(const char *name=0)
Set window name. This is typically done via the window manager.
Definition TGFrame.cxx:1749
TGMenuBar::AddPopup
virtual void AddPopup(TGHotString *s, TGPopupMenu *menu, TGLayoutHints *l, TGPopupMenu *before=0)
Add popup menu to menu bar.
Definition TGMenu.cxx:417
TGMenuEntry::GetName
const char * GetName() const
Returns name of object.
Definition TGMenu.h:96
TGObject::fClient
TGClient * fClient
Definition TGObject.h:37
TGObject::GetId
Handle_t GetId() const
Definition TGObject.h:47
TGPopupMenu::GetEntry
virtual TGMenuEntry * GetEntry(Int_t id)
Find entry with specified id.
Definition TGMenu.cxx:1896
TGPopupMenu::Associate
virtual void Associate(const TGWindow *w)
Definition TGMenu.h:219
TGPopupMenu::AddSeparator
virtual void AddSeparator(TGMenuEntry *before=nullptr)
Add a menu separator to the menu.
Definition TGMenu.cxx:1059
TGPopupMenu::AddEntry
virtual void AddEntry(TGHotString *s, Int_t id, void *ud=nullptr, const TGPicture *p=nullptr, TGMenuEntry *before=nullptr)
Add a menu entry.
Definition TGMenu.cxx:989
TGStatusBar::SetText
virtual void SetText(TGString *text, Int_t partidx=0)
Set text in partition partidx in status bar.
Definition TGStatusBar.cxx:144
TGStatusBar::SetParts
virtual void SetParts(Int_t npart)
Divide the status bar in npart equal sized parts.
Definition TGStatusBar.cxx:292
TGTextEntry::GetBuffer
TGTextBuffer * GetBuffer() const
Definition TGTextEntry.h:127
TGTextEntry::GetText
const char * GetText() const
Definition TGTextEntry.h:134
TGTextEntry::SetText
virtual void SetText(const char *text, Bool_t emit=kTRUE)
Sets text entry to text, clears the selection and moves the cursor to the end of the line.
Definition TGTextEntry.cxx:623
TGTextLBEntry::GetTitle
virtual const char * GetTitle() const
Returns title of object.
Definition TGListBox.h:116
TGText::Save
Bool_t Save(const char *fn)
Save text buffer to file fn.
Definition TGText.cxx:610
TGView::Layout
virtual void Layout()
layout view
Definition TGView.cxx:344
TGView::ScrollToPosition
virtual void ScrollToPosition(TGLongPosition newPos)
Scroll the canvas to pos.
Definition TGView.cxx:451
TQObject::Connect
Bool_t Connect(const char *signal, const char *receiver_class, void *receiver, const char *slot)
Non-static method is used to connect from the signal of this object to the receiver slot.
Definition TQObject.cxx:866
TROOT::GetBinDir
static const TString & GetBinDir()
Get the binary directory in the installation. Static utility function.
Definition TROOT.cxx:2917
TRootHelpDialog::SetText
void SetText(const char *helpText)
Set help text from helpText buffer in TGTextView.
Definition TRootHelpDialog.cxx:76
TRootHelpDialog::Popup
void Popup()
Show help dialog.
Definition TRootHelpDialog.cxx:68
TSocket::RecvRaw
virtual Int_t RecvRaw(void *buffer, Int_t length, ESendRecvOptions opt=kDefault)
Receive a raw buffer of specified length bytes.
Definition TSocket.cxx:898
TSocket::SendRaw
virtual Int_t SendRaw(const void *buffer, Int_t length, ESendRecvOptions opt=kDefault)
Send a raw buffer of specified length.
Definition TSocket.cxx:620
TSocket::IsValid
virtual Bool_t IsValid() const
Definition TSocket.h:132
TString
Basic string class.
Definition TString.h:136
TString::Length
Ssiz_t Length() const
Definition TString.h:410
TString::EndsWith
Bool_t EndsWith(const char *pat, ECaseCompare cmp=kExact) const
Return true if string ends with the specified string.
Definition TString.cxx:2197
TString::Data
const char * Data() const
Definition TString.h:369
TString::ReplaceAll
TString & ReplaceAll(const TString &s1, const TString &s2)
Definition TString.h:692
TString::kIgnoreCase
@ kIgnoreCase
Definition TString.h:268
TString::Last
Ssiz_t Last(char c) const
Find last occurrence of a character c.
Definition TString.cxx:912
TString::BeginsWith
Bool_t BeginsWith(const char *s, ECaseCompare cmp=kExact) const
Definition TString.h:615
TString::Prepend
TString & Prepend(const char *cs)
Definition TString.h:661
TString::Format
static TString Format(const char *fmt,...)
Static method which formats a string using a printf style format descriptor and return a TString.
Definition TString.cxx:2331
TString::Index
Ssiz_t Index(const char *pat, Ssiz_t i=0, ECaseCompare cmp=kExact) const
Definition TString.h:639
TSystem::Exec
virtual Int_t Exec(const char *shellcmd)
Execute a command.
Definition TSystem.cxx:654
TSystem::UnixPathName
virtual const char * UnixPathName(const char *unixpathname)
Convert from a local pathname to a Unix pathname.
Definition TSystem.cxx:1061
TSystem::BaseName
virtual const char * BaseName(const char *pathname)
Base name of a file name. Base name of /user/root is root.
Definition TSystem.cxx:933
TUrl
This class represents a WWW compatible URL.
Definition TUrl.h:33
TUrl::GetUrl
const char * GetUrl(Bool_t withDeflt=kFALSE) const
Return full URL.
Definition TUrl.cxx:389
TUrl::GetFile
const char * GetFile() const
Definition TUrl.h:69
TUrl::GetHost
const char * GetHost() const
Definition TUrl.h:67
TUrl::GetProtocol
const char * GetProtocol() const
Definition TUrl.h:64
TUrl::GetPort
Int_t GetPort() const
Definition TUrl.h:78