OZ++ Sample: FileBrowser

/******************************************************************************  *  * Copyright (c) 2015 Antillia.com TOSHIYUKI ARAI. ALL RIGHTS RESERVED.  *  * Redistribution and use in source and binary forms, with or without  * modification, are permitted provided that the following conditions  * are met:  * 1. Redistributions of source code must retain the above copyright  *    notice, this list of conditions, and the following disclaimer.  *  * 2. The name of the author may not be used to endorse or promote products  *    derived from this software without specific prior written permission.  *  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,  * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;  * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,  * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR  * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF  * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.  *  *  *  FileBrowser.cpp  *  *****************************************************************************/ #include <oz++/DirectoryScanner.h> #include <oz++/SmartPtrs.h> #include <oz++/SmartArray.h> #include <oz++/motif/ApplicationView.h> #include <oz++/motif/RowColumn.h> #include <oz++/motif/SashlessPanedWindow.h> #include <oz++/motif/PanedWindow.h> #include <oz++/motif/Form.h> #include <oz++/motif/ScrolledListBox.h> #include <oz++/motif/PushButton.h> #include <oz++/motif/TextField.h> #include <oz++/motif/Label.h> #include <oz++/motif/Color.h> #include <oz++/motif/DropdownComboBox.h> #include <oz++/motif/ScrolledText.h> #include <oz++/FileAttributes.h> namespace OZ { class MainView :public ApplicationView { private:   SmartPtr<PanedWindow>     vpanedWindow;   SmartPtr<PanedWindow>     panedWindow;   SmartPtr<Form>            form;   SmartPtr<TextField>       textField;   SmartPtr<ScrolledListBox> dirScrolledListBox;   CharString       currentDir;   SmartPtr<ScrolledListBox> fileScrolledListBox;   SmartPtr<TextField>       fileFullpath;   SmartPtr<ScrolledText>    scrolledText;   void   enter(Action& action)   {     char* string = textField -> getString();     try {        updateListBoxes(string);     } catch (Exception& ex) {       caught(ex);     }     XtFree(string);   }   void   updateListBoxes(const char* string)   {     try {       dirScrolledListBox -> clear();       fileScrolledListBox -> clear();       FileAttributes attr(string);       if (attr.isDirectory()) {         addDirectories(dirScrolledListBox, string);         addFiles(fileScrolledListBox, string);       } else {         printf("Invalid %s\n", string);       }     } catch (Exception& ex) {       caught(ex);     }   }   void browseDir(Action& action)   {     XmListCallbackStruct* cbs =        (XmListCallbackStruct*)action.getCallData();     CompoundString cs(cbs->item);     char* item = cs.unparse();     char* rname = item;     char path[PATH_MAX];     if ((item[0] == '+' || item[0] == '-' || item[0] == '.') &&          (item[1] == ' ' || item[1] == '.') ) {       rname = item + 2;      }         char* string = textField -> getString();     if (item[0] == '.' && item[1] == '.') {        char* slash = strrchr(string, '/');        if (slash) {          *slash = '\0';           const char* dir = string;          if (strlen(dir) == 0) {             dir = "/";           }          currentDir = string;          printf("browseDir update textField %s\n", dir);          textField -> set(XmNvalue, dir);          updateListBoxes(dir);         XtFree(string);         XtFree(item);         return;        }       }     if (__endsWith(string, '/')) {        sprintf(path, "%s%s", string, rname);       } else {       sprintf(path, "%s/%s", string, rname);       }     currentDir = rname;     printf("Mainview::browseDir item: %s path:%s\n", rname, path);     addDirectories(fileScrolledListBox, path);     addFiles(fileScrolledListBox, path);     XtFree(string);      XtFree(item);   }    void browseFile(Action& action)   {     XmListCallbackStruct* cbs =        (XmListCallbackStruct*)action.getCallData();     CompoundString cs(cbs->item);     char* item = cs.unparse();     char* rname = item;     char path[PATH_MAX];     if ((item[0] == '+' || item[0] == ' ') && item[1] == ' ') {       rname = item + 2;     }        char* string = textField -> getString();     if (item[0] == '+') {       if (__endsWith(string, '/')) {         sprintf(path, "%s%s/%s", string, (const char*)currentDir, rname);        } else {         sprintf(path, "%s/%s/%s", string, (const char*)currentDir, rname);        }       printf("Mainview::browseFile item: %s path:%s\n", rname, path);              addDirectories(dirScrolledListBox, path);       textField -> set(XmNvalue, path);        fileScrolledListBox -> getList() -> deleteAllItems();        addFiles(fileScrolledListBox, path);     } else {      int* pos=NULL;      int num = 0;      dirScrolledListBox -> getList()                          -> getSelectedPos(&pos, &num);      if (num > 0) {         XtFree((char*)pos);        if (__endsWith(string, '/')) {          sprintf(path, "%s%s/%s", string, (const char*)currentDir, rname);         } else {          sprintf(path, "%s/%s/%s", string, (const char*)currentDir, rname);         }      } else {        if (__endsWith(string, '/')) {          sprintf(path, "%s%s", string, rname);         } else {          sprintf(path, "%s/%s", string, rname);         }      }       printf("load [%s]\n", path);       scrolledText -> getText() -> load(path);       fileFullpath -> set(XmNvalue, path);     }     XtFree(string);     XtFree(item);   }   void addDirectories(ScrolledListBox* scrolledListBox, const char* dir)   {     ListBox* listb= scrolledListBox -> getList();     listb -> deleteAllItems();     if (scrolledListBox == dirScrolledListBox) {       CompoundString cs("..");       listb -> addItemUnselected(cs);      }     try {       listb -> listupDirectories(dir, '+');     } catch (Exception& ex) {       caught(ex);     }   }   void addFiles(ScrolledListBox* scrolledListBox, const char* dir)   {     ListBox* listb= scrolledListBox -> getList();     //listb -> deleteAllItems();     try {       listb -> listupFiles(dir, ' ');     } catch (Exception& ex) {       caught(ex);     }   } public:   MainView(Application& applet, const char* name, Args& args)   :ApplicationView(applet, name, args),    currentDir("")   {     Args ar;     ar.reset();     ar.set(XmNorientation, XmVERTICAL);     ar.set(XmNseparatorOn, False);     ar.set(XmNspacing, 0);     vpanedWindow = new SashlessPanedWindow(this, "panedw", ar);     ar.reset();     ar.set(XmNeditable, False);     textField = new TextField(vpanedWindow, "", ar);     textField -> addCallback(XmNactivateCallback, this,               (Callback)&MainView::enter, NULL);     ar.set(XmNorientation, XmHORIZONTAL);     panedWindow = new PanedWindow(vpanedWindow, "panedw", ar);     const char* dir = "/";     ar.reset();     ar.set(XmNtopAttachment, XmATTACH_WIDGET);     ar.set(XmNtopWidget, textField);      ar.set(XmNleftAttachment, XmATTACH_FORM);     ar.set(XmNrightAttachment, XmATTACH_FORM);      ar.set(XmNbottomAttachment, XmATTACH_FORM);      ar.set(XmNvisibleItemCount, 10);     dirScrolledListBox = new ScrolledListBox(panedWindow, "", ar);     ListBox* dirlistb = dirScrolledListBox -> getList();      dirlistb -> set(XmNselectionPolicy, XmBROWSE_SELECT);     dirlistb -> addCallback(XmNbrowseSelectionCallback, this,                        (Callback)&MainView::browseDir, NULL);                           textField -> setString((char*)dir);     ar.reset();     fileScrolledListBox = new ScrolledListBox(panedWindow, "", ar);     ListBox* filelistb = fileScrolledListBox -> getList();     filelistb -> set(XmNselectionPolicy, XmBROWSE_SELECT);      filelistb -> addCallback(XmNbrowseSelectionCallback, this,                        (Callback)&MainView::browseFile, NULL);                          updateListBoxes(dir);    ar.reset();    ar.set(XmNeditable, False);    fileFullpath = new TextField(vpanedWindow, "", ar);    ar.reset();    scrolledText = new ScrolledText(vpanedWindow, "", ar);   }   ~MainView()   {   } }; } // int main(int argc, char** argv) {   const char*  appclass = argv[0];   Application applet(appclass, argc, argv);   try {     Args args;     args.set(XmNgeometry, "600x600");     MainView view(applet, argv[0], args);     view.realize();     applet.run();   } catch (Exception& ex) {      caught(ex);   }   return 0; }