Changeset 2805 for trunk/MagicSoft/Mars/mbase/MStatusDisplay.cc

Timestamp:

01/14/04 18:06:11 (21 years ago)

Author:

tbretz

Message:

*** empty log message ***

File:

• trunk/MagicSoft/Mars/mbase/MStatusDisplay.cc (modified) (6 diffs)

trunk/MagicSoft/Mars/mbase/MStatusDisplay.cc

@@ -190 +190 @@
     filemenu->AddEntry("Save As status.&root", kFileSaveAsRoot);
     filemenu->AddSeparator();
+    filemenu->AddEntry("&Open...",             kFileOpen);
     filemenu->AddEntry("Save &As...",          kFileSaveAs);
     filemenu->AddSeparator();
@@ -1088 +1089 @@
         return kTRUE;
 
+    case kFileOpen:
+        Open();
+        return kTRUE;
+
     case kFileSaveAs:
         SaveAs();
@@ -1725 +1730 @@
 {
     const TString newstr("%%DocumentPaperSizes: a4\n%%Orientation: Landscape\n");
-    const Int_t   l = newstr.Length();
+
+    ifstream fin(name);
+    ofstream fout(name+".$$$");
+
+    char c;
+
+    TString str;
+    fin >> str >> c;                // Read "%!PS-Adobe-2.0\n"
+    fout << str << endl << newstr;
+
+    // Doing it in blocks seems not to gain much for small (MB) files
+    while (fin)
+    {
+        fin.read(&c, 1);
+        fout.write(&c, 1);
+    }
+
+    gSystem->Unlink(name);
+    gSystem->Rename(name+".$$$", name);
+/*
+    //
+    // Old style algorithm. Shifts blocks inside a single file --- SLOW!
+    //
+    const Int_t l = newstr.Length();
 
     Long_t t[4]; // { id, size, flags, modtime }
@@ -1768 +1796 @@
     delete c[1];
     delete c[0];
+*/
 }
 
@@ -2155 +2184 @@
     {
         "PostScript",   "*.ps",
-        // "Encapsulated PostScript", "*.eps",
         "Gif files",    "*.gif",
         "Macro files",  "*.C",
@@ -2186 +2214 @@
     Warning("MStatusDisplay::SaveAs", "Unknown Extension: %s", fi.fFilename);
     return 0;
+}
+
+// --------------------------------------------------------------------------
+//
+//  Open contents of a MStatusDisplay with key name from file fname.
+//
+Int_t MStatusDisplay::Open(TString fname, const char *name)
+{
+    TFile file(fname, "READ");
+    if (file.IsZombie())
+    {
+        gLog << warn << "WARNING - Cannot open file " << fname << endl;
+        return 0;
+    }
+
+    return Read(name);
+}
+
+// --------------------------------------------------------------------------
+//
+//  Opens an open dialog
+//
+Int_t MStatusDisplay::Open()
+{
+    static const char *gOpenTypes[] =
+    {
+        "ROOT files", "*.root",
+        "All files",  "*",
+        NULL,           NULL
+    };
+
+    static TString dir(".");
+
+    TGFileInfo fi; // fFileName and fIniDir deleted in ~TGFileInfo
+
+    fi.fFileTypes = (const char**)gOpenTypes;
+    fi.fIniDir    = StrDup(dir);
+
+    new TGFileDialog(fClient->GetRoot(), this, kFDSave, &fi);
+
+    if (!fi.fFilename)
+        return 0;
+
+    dir = fi.fIniDir;
+
+    return Open(fi.fFilename);
 }