KevinBlast/common/ui/LoadFileDlg.gui

120 lines
3.0 KiB
Plaintext

//--- OBJECT WRITE BEGIN ---
new GuiControl(LoadFileDlg) {
profile = "GuiDefaultProfile";
horizSizing = "right";
vertSizing = "bottom";
position = "0 0";
extent = "640 480";
minExtent = "8 8";
visible = "1";
helpTag = "0";
new GuiWindowCtrl() {
profile = "GuiWindowProfile";
horizSizing = "right";
vertSizing = "bottom";
position = "137 78";
extent = "378 326";
minExtent = "8 8";
visible = "1";
helpTag = "0";
text = "Load File...";
maxLength = "255";
resizeWidth = "1";
resizeHeight = "1";
canMove = "1";
canClose = "1";
canMinimize = "1";
canMaximize = "1";
minSize = "50 50";
closeCommand = "Canvas.popDialog(LoadFileDlg);";
new GuiScrollCtrl() {
profile = "GuiScrollProfile";
horizSizing = "right";
vertSizing = "bottom";
position = "9 26";
extent = "282 289";
minExtent = "8 8";
visible = "1";
helpTag = "0";
willFirstRespond = "1";
hScrollBar = "dynamic";
vScrollBar = "alwaysOn";
constantThumbHeight = "0";
defaultLineHeight = "15";
childMargin = "0 0";
new GuiTextListCtrl(loadFileList) {
profile = "GuiTextArrayProfile";
horizSizing = "right";
vertSizing = "bottom";
position = "0 0";
extent = "161 8";
minExtent = "8 8";
visible = "1";
altCommand = "eval($loadFileCommand); Canvas.popDialog(LoadFileDlg);";
helpTag = "0";
enumerate = "0";
resizeCell = "1";
columns = "0";
fitParentWidth = "1";
clipColumnText = "0";
noDuplicates = "false";
};
};
new GuiButtonCtrl() {
profile = "GuiButtonProfile";
horizSizing = "right";
vertSizing = "bottom";
position = "303 268";
extent = "60 20";
minExtent = "8 8";
visible = "1";
command = "eval($loadFileCommand); Canvas.popDialog(LoadFileDlg);";
helpTag = "0";
text = "Load";
};
new GuiButtonCtrl() {
profile = "GuiButtonProfile";
horizSizing = "right";
vertSizing = "bottom";
position = "303 294";
extent = "60 20";
minExtent = "8 8";
visible = "1";
command = "Canvas.popDialog(LoadFileDlg);";
helpTag = "0";
text = "Cancel";
};
};
};
//--- OBJECT WRITE END ---
function fillFileList(%filespec, %ctrl)
{
%ctrl.clear();
%i = 0;
%f = 0;
for(%fld = getField(%filespec, 0); %fld !$= ""; %fld = getField(%filespec, %f++))
{
for(%file = findFirstFile(%fld); %file !$= ""; %file = findNextFile(%fld))
if (getSubStr(%file, 0, 4) !$= "CVS/")
%ctrl.addRow(%i++, %file);
}
%ctrl.sort(0);
}
//------------------------------------------------------------------------------
// ex: getLoadFilename("stuff\*.*", loadStuff);
// -- calls 'loadStuff(%filename)' on dblclick or ok
//------------------------------------------------------------------------------
function getLoadFilename(%filespec, %callback)
{
$loadFileCommand = "if(loadFileList.getSelectedId() >= 0)" @ %callback @ "(loadFileList.getValue());";
Canvas.pushDialog(LoadFileDlg, 99);
fillFileList(%filespec, loadFileList);
}