The Ecere SDK - ede/blob - tests/libede/fileSystemBoxTestApp/FileSystemBoxTestApp.ec

   1 import "ecere"
   2 import "EDE"
   3
   4 class FileSystemBoxTestWindow : Window
   5 {
   6    text = "FileSystemBox Test Window";
   7    background = activeBorder;
   8    borderStyle = sizable;
   9    hasMaximize = true;
  10    hasMinimize = true;
  11    hasClose = true;
  12    size = { 840, 480 };
  13
  14    TabControl tabControl { this, background = activeBorder, anchor = { left = 4, top = 4, right = 4, bottom = 4 } };
  15
  16    FileListTab fileListTab { tabControl };
  17    JustFilesTab justFilesTab { tabControl };
  18    FolderListTab folderListTab { tabControl };
  19    FileTreeTab fileTreeTab { tabControl };
  20    FolderTreeTab folderTreeTab { tabControl };
  21    FileDetails fileDetails { tabControl };
  22    FilteredList filteredList { tabControl };
  23    FilteredTree filteredTree { tabControl };
  24    RootList rootList { tabControl };
  25    RootTree rootTree { tabControl };
  26 }
  27
  28 FileSystemBoxTestWindow testWindow { };
  29
  30 class TestTab : Tab
  31 {
  32    background = activeBorder;
  33 }
  34
  35 class FileListTab : TestTab
  36 {
  37    text = "FileList";
  38
  39    FileSystemBox box
  40    {
  41       this;
  42       anchor = { left = 4, top = 4, right = 4, bottom = 4 };
  43    };
  44 }
  45
  46 class JustFilesTab : TestTab
  47 {
  48    text = "JustFiles";
  49
  50    FileSystemBox box
  51    {
  52       this;
  53       filesOnly = true;
  54       anchor = { left = 4, top = 4, right = 4, bottom = 4 };
  55    };
  56 }
  57
  58 class FolderListTab : TestTab
  59 {
  60    text = "FolderList";
  61
  62    FileSystemBox box
  63    {
  64       this;
  65       foldersOnly = true;
  66       anchor = { left = 4, top = 4, right = 4, bottom = 4 };
  67    };
  68 }
  69
  70 class FileTreeTab : TestTab
  71 {
  72    text = "FileTree";
  73
  74    FileSystemBox box
  75    {
  76       this;
  77       treeBranches = true;
  78       anchor = { left = 4, top = 4, right = 4, bottom = 4 };
  79    };
  80 }
  81
  82 class FolderTreeTab : TestTab
  83 {
  84    text = "FolderTree";
  85
  86    FileSystemBox box
  87    {
  88       this;
  89       treeBranches = true;
  90       foldersOnly = true;
  91       anchor = { left = 4, top = 4, right = 4, bottom = 4 };
  92    };
  93 }
  94
  95 class FileDetails : TestTab
  96 {
  97    text = "FileDetails";
  98
  99    FileSystemBox box
 100    {
 101       this;
 102       details = true; // TODO: figure out why commented out (see FileSystemBox) code crashes the form designer
 103       anchor = { left = 4, top = 4, right = 4, bottom = 4 };
 104    };
 105 }
 106
 107 class FilteredList : TestTab
 108 {
 109    text = "FilteredList";
 110
 111    FileSystemBox box
 112    {
 113       this;
 114       extensions = "epj, ec";
 115       anchor = { left = 4, top = 4, right = 4, bottom = 4 };
 116    };
 117 }
 118
 119 class FilteredTree : TestTab
 120 {
 121    text = "FilteredTree";
 122
 123    FileSystemBox box
 124    {
 125       this;
 126       anchor = { left = 4, top = 4, right = 4, bottom = 4 };
 127
 128       extensions = "txt, text, nfo, info";
 129       treeBranches = true;
 130    };
 131 }
 132
 133 class RootList : TestTab
 134 {
 135    text = "RootList";
 136
 137    FileSystemBox box
 138    {
 139       this;
 140       path = "/";
 141       anchor = { left = 4, top = 4, right = 4, bottom = 4 };
 142    };
 143 }
 144
 145 class RootTree : TestTab
 146 {
 147    text = "RootTree";
 148
 149    FileSystemBox box
 150    {
 151       this;
 152       path = "/";
 153       anchor = { left = 4, top = 4, right = 4, bottom = 4 };
 154
 155       treeBranches = true;
 156    };
 157 }
 158
 159 class FileSystemBoxTestApp : GuiApplication
 160 {
 161 }