+++ /dev/null
-import "ecere"
-import "ede"
-
-class FileSystemBoxTestWindow : Window
-{
- text = "FileSystemBox Test Window";
- background = activeBorder;
- borderStyle = sizable;
- hasMaximize = true;
- hasMinimize = true;
- hasClose = true;
- size = { 840, 480 };
-
- TabControl tabControl { this, background = activeBorder, anchor = { left = 4, top = 4, right = 4, bottom = 4 } };
-
- FileListTab fileListTab { tabControl };
- FolderListTab folderListTab { tabControl };
- FileTreeTab fileTreeTab { tabControl };
- FolderTreeTab folderTreeTab { tabControl };
- FileDetails fileDetails { tabControl };
- FilteredList filteredList { tabControl };
- FilteredTree filteredTree { tabControl };
- RootList rootList { tabControl };
- RootTree rootTree { tabControl };
-}
-
-FileSystemBoxTestWindow testWindow { };
-
-class TestTab : Tab
-{
- background = activeBorder;
-}
-
-class FileListTab : TestTab
-{
- text = "FileList";
-
- FileSystemBox box
- {
- this;
- anchor = { left = 4, top = 4, right = 4, bottom = 4 };
- };
-}
-
-class FolderListTab : TestTab
-{
- text = "FolderList";
-
- FileSystemBox box
- {
- this;
- foldersOnly = true;
- anchor = { left = 4, top = 4, right = 4, bottom = 4 };
- };
-}
-
-class FileTreeTab : TestTab
-{
- text = "FileTree";
-
- FileSystemBox box
- {
- this;
- treeBranches = true;
- anchor = { left = 4, top = 4, right = 4, bottom = 4 };
- };
-}
-
-class FolderTreeTab : TestTab
-{
- text = "FolderTree";
-
- FileSystemBox box
- {
- this;
- treeBranches = true;
- foldersOnly = true;
- anchor = { left = 4, top = 4, right = 4, bottom = 4 };
- };
-}
-
-class FileDetails : TestTab
-{
- text = "FileDetails";
-
- FileSystemBox box
- {
- this;
- details = true; // TODO: figure out why commented out (see FileSystemBox) code crashes the form designer
- anchor = { left = 4, top = 4, right = 4, bottom = 4 };
- };
-}
-
-class FilteredList : TestTab
-{
- text = "FilteredList";
-
- FileSystemBox box
- {
- this;
- extensions = "epj, ec";
- anchor = { left = 4, top = 4, right = 4, bottom = 4 };
- };
-}
-
-class FilteredTree : TestTab
-{
- text = "FilteredTree";
-
- FileSystemBox box
- {
- this;
- anchor = { left = 4, top = 4, right = 4, bottom = 4 };
-
- extensions = "txt, text, nfo, info";
- treeBranches = true;
- };
-}
-
-class RootList : TestTab
-{
- text = "RootList";
-
- FileSystemBox box
- {
- this;
- path = "/";
- anchor = { left = 4, top = 4, right = 4, bottom = 4 };
- };
-}
-
-class RootTree : TestTab
-{
- text = "RootTree";
-
- FileSystemBox box
- {
- this;
- path = "/";
- anchor = { left = 4, top = 4, right = 4, bottom = 4 };
-
- treeBranches = true;
- };
-}
-
-class FileSystemBoxTestApp : GuiApplication
-{
-}