зеркало из https://github.com/mozilla/pjs.git
296 строки
7.7 KiB
C
296 строки
7.7 KiB
C
/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*-
|
|
*
|
|
* The contents of this file are subject to the Netscape Public License
|
|
* Version 1.0 (the "NPL"); you may not use this file except in
|
|
* compliance with the NPL. You may obtain a copy of the NPL at
|
|
* http://www.mozilla.org/NPL/
|
|
*
|
|
* Software distributed under the NPL is distributed on an "AS IS" basis,
|
|
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
|
|
* for the specific language governing rights and limitations under the
|
|
* NPL.
|
|
*
|
|
* The Initial Developer of this code under the NPL is Netscape
|
|
* Communications Corporation. Portions created by Netscape are
|
|
* Copyright (C) 1998 Netscape Communications Corporation. All Rights
|
|
* Reserved.
|
|
*/
|
|
|
|
/*
|
|
* The following source code is part of the Microline Widget Library.
|
|
* The Microline widget library is made available to Mozilla developers
|
|
* under the Netscape Public License (NPL) by Neuron Data. To learn
|
|
* more about Neuron Data, please visit the Neuron Data Home Page at
|
|
* http://www.neurondata.com.
|
|
*/
|
|
|
|
|
|
#include <Xm/Xm.h>
|
|
#include <Xm/Form.h>
|
|
#include <XmL/Grid.h>
|
|
#include <XmL/Tree.h>
|
|
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
#include <dirent.h>
|
|
|
|
void rowExpand();
|
|
void rowCollapse();
|
|
void rowDelete();
|
|
void cellSelect();
|
|
|
|
Widget grid;
|
|
|
|
main(argc, argv)
|
|
int argc;
|
|
char *argv[];
|
|
{
|
|
XtAppContext app;
|
|
Widget shell, form, tree;
|
|
XmString str;
|
|
|
|
shell = XtAppInitialize(&app, "Tree4", NULL, 0,
|
|
&argc, argv, NULL, NULL, 0);
|
|
|
|
form = XtVaCreateManagedWidget("form",
|
|
xmFormWidgetClass, shell,
|
|
XtVaTypedArg, XmNbackground, XmRString, "#C0C0C0", 8,
|
|
XmNshadowThickness, 0,
|
|
NULL);
|
|
|
|
/* Add Tree to left of Form */
|
|
tree = XtVaCreateManagedWidget("tree",
|
|
xmlTreeWidgetClass, form,
|
|
XmNhorizontalSizePolicy, XmCONSTANT,
|
|
XmNautoSelect, False,
|
|
XtVaTypedArg, XmNbackground, XmRString, "#C0C0C0", 8,
|
|
XtVaTypedArg, XmNforeground, XmRString, "black", 6,
|
|
XtVaTypedArg, XmNblankBackground, XmRString, "white", 6,
|
|
XtVaTypedArg, XmNselectBackground, XmRString, "#000080", 8,
|
|
XtVaTypedArg, XmNselectForeground, XmRString, "white", 6,
|
|
XtVaTypedArg, XmNconnectingLineColor, XmRString, "#808080", 8,
|
|
XmNleftAttachment, XmATTACH_FORM,
|
|
XmNtopAttachment, XmATTACH_FORM,
|
|
XmNbottomAttachment, XmATTACH_FORM,
|
|
XmNrightAttachment, XmATTACH_POSITION,
|
|
XmNrightPosition, 45,
|
|
NULL);
|
|
XtVaSetValues(tree,
|
|
XmNcellDefaults, True,
|
|
XtVaTypedArg, XmNcellBackground, XmRString, "white", 6,
|
|
NULL);
|
|
|
|
/* Add a single row containing the root path to the Tree */
|
|
str = XmStringCreateSimple("/");
|
|
XmLTreeAddRow(tree, 1, True, False, 0,
|
|
XmUNSPECIFIED_PIXMAP, XmUNSPECIFIED_PIXMAP, str);
|
|
XmStringFree(str);
|
|
XtVaSetValues(tree,
|
|
XmNrow, 0,
|
|
XmNrowUserData, strdup("/"),
|
|
NULL);
|
|
|
|
XtAddCallback(tree, XmNexpandCallback, rowExpand, NULL);
|
|
XtAddCallback(tree, XmNcollapseCallback, rowCollapse, NULL);
|
|
XtAddCallback(tree, XmNdeleteCallback, rowDelete, NULL);
|
|
XtAddCallback(tree, XmNselectCallback, cellSelect, NULL);
|
|
|
|
/* Add a Grid to the right of the Form and set cell defaults */
|
|
grid = XtVaCreateManagedWidget("grid",
|
|
xmlGridWidgetClass, form,
|
|
XtVaTypedArg, XmNbackground, XmRString, "#C0C0C0", 8,
|
|
XtVaTypedArg, XmNforeground, XmRString, "black", 6,
|
|
XtVaTypedArg, XmNblankBackground, XmRString, "white", 6,
|
|
XtVaTypedArg, XmNselectBackground, XmRString, "#000080", 8,
|
|
XtVaTypedArg, XmNselectForeground, XmRString, "white", 6,
|
|
XmNcolumns, 3,
|
|
XmNsimpleWidths, "24c 12c 10c",
|
|
XmNsimpleHeadings, "Name|Type|Size",
|
|
XmNvisibleColumns, 6,
|
|
XmNallowColumnResize, True,
|
|
XmNheadingRows, 1,
|
|
XmNvisibleRows, 16,
|
|
XmNhighlightRowMode, True,
|
|
XmNleftAttachment, XmATTACH_POSITION,
|
|
XmNleftPosition, 46,
|
|
XmNtopAttachment, XmATTACH_FORM,
|
|
XmNbottomAttachment, XmATTACH_FORM,
|
|
XmNrightAttachment, XmATTACH_FORM,
|
|
NULL);
|
|
XtVaSetValues(grid,
|
|
XmNcellDefaults, True,
|
|
XtVaTypedArg, XmNcellBackground, XmRString, "white", 6,
|
|
XmNcellTopBorderType, XmBORDER_NONE,
|
|
XmNcellBottomBorderType, XmBORDER_NONE,
|
|
XmNcellRightBorderType, XmBORDER_NONE,
|
|
XmNcellLeftBorderType, XmBORDER_NONE,
|
|
XmNcellAlignment, XmALIGNMENT_LEFT,
|
|
NULL);
|
|
XtVaSetValues(grid,
|
|
XmNcellDefaults, True,
|
|
XmNcolumn, 2,
|
|
XmNcellAlignment, XmALIGNMENT_RIGHT,
|
|
NULL);
|
|
|
|
/* Invoke the select callback for the first row in the Tree */
|
|
/* to fill the Grid with the data for the root path */
|
|
XmLGridSelectRow(tree, 0, True);
|
|
|
|
XtRealizeWidget(shell);
|
|
XtAppMainLoop(app);
|
|
}
|
|
|
|
void rowExpand(w, clientData, callData)
|
|
Widget w;
|
|
XtPointer clientData, callData;
|
|
{
|
|
XmLGridCallbackStruct *cbs;
|
|
XmLGridRow row;
|
|
int level, pos;
|
|
DIR *dir;
|
|
struct dirent *d;
|
|
struct stat s;
|
|
char *path, fullpath[1024];
|
|
XmString str;
|
|
|
|
/* Retrieve the path of the directory expanded. This is kept */
|
|
/* in the row's rowUserData */
|
|
cbs = (XmLGridCallbackStruct *)callData;
|
|
row = XmLGridGetRow(w, XmCONTENT, cbs->row);
|
|
XtVaGetValues(w,
|
|
XmNrowPtr, row,
|
|
XmNrowUserData, &path,
|
|
XmNrowLevel, &level,
|
|
NULL);
|
|
pos = cbs->row + 1;
|
|
dir = opendir(path);
|
|
if (!dir)
|
|
return;
|
|
|
|
/* Add the subdirectories of the directory expanded to the Tree */
|
|
XtVaSetValues(w,
|
|
XmNlayoutFrozen, True,
|
|
NULL);
|
|
while (d = readdir(dir))
|
|
{
|
|
if (!strcmp(d->d_name, ".") || !strcmp(d->d_name, ".."))
|
|
continue;
|
|
sprintf(fullpath, "%s/%s", path, d->d_name);
|
|
if (lstat(fullpath, &s) == -1)
|
|
continue;
|
|
if (!S_ISDIR(s.st_mode))
|
|
continue;
|
|
str = XmStringCreateSimple(d->d_name);
|
|
XmLTreeAddRow(w, level + 1, True, False, pos,
|
|
XmUNSPECIFIED_PIXMAP, XmUNSPECIFIED_PIXMAP, str);
|
|
XmStringFree(str);
|
|
XtVaSetValues(w,
|
|
XmNrow, pos,
|
|
XmNrowUserData, strdup(fullpath),
|
|
NULL);
|
|
pos++;
|
|
}
|
|
closedir(dir);
|
|
XtVaSetValues(w,
|
|
XmNlayoutFrozen, False,
|
|
NULL);
|
|
}
|
|
|
|
void rowCollapse(w, clientData, callData)
|
|
Widget w;
|
|
XtPointer clientData, callData;
|
|
{
|
|
XmLGridCallbackStruct *cbs;
|
|
XmLGridRow row;
|
|
char *path;
|
|
int i, j, level, rows;
|
|
|
|
/* Collapse the row by deleting the rows in the tree which */
|
|
/* are children of the collapsed row. */
|
|
cbs = (XmLGridCallbackStruct *)callData;
|
|
|
|
XmLTreeDeleteChildren(w, cbs->row);
|
|
}
|
|
|
|
void rowDelete(w, clientData, callData)
|
|
Widget w;
|
|
XtPointer clientData, callData;
|
|
{
|
|
/* Free the path contained in the rowUserData of the rows deleted */
|
|
|
|
XmLGridCallbackStruct *cbs;
|
|
XmLGridRow row;
|
|
char *path;
|
|
|
|
cbs = (XmLGridCallbackStruct *)callData;
|
|
|
|
if (cbs->rowType != XmCONTENT || cbs->reason != XmCR_DELETE_ROW)
|
|
return;
|
|
|
|
row = XmLGridGetRow(w, XmCONTENT, cbs->row);
|
|
|
|
XtVaGetValues(w,
|
|
XmNrowPtr, row,
|
|
XmNrowUserData, &path,
|
|
NULL);
|
|
|
|
if (path)
|
|
free(path);
|
|
}
|
|
|
|
void cellSelect(w, clientData, callData)
|
|
Widget w;
|
|
XtPointer clientData, callData;
|
|
{
|
|
XmLGridCallbackStruct *cbs;
|
|
XmLGridRow row;
|
|
DIR *dir;
|
|
struct stat s;
|
|
struct dirent *d;
|
|
char *path, fullpath[1024], buf[256];
|
|
int pos;
|
|
|
|
/* Retrieve the directory selected */
|
|
cbs = (XmLGridCallbackStruct *)callData;
|
|
if (cbs->rowType != XmCONTENT)
|
|
return;
|
|
row = XmLGridGetRow(w, XmCONTENT, cbs->row);
|
|
XtVaGetValues(w,
|
|
XmNrowPtr, row,
|
|
XmNrowUserData, &path,
|
|
NULL);
|
|
dir = opendir(path);
|
|
if (!dir)
|
|
return;
|
|
|
|
/* Add a row for each file in the directory to the Grid */
|
|
pos = 0;
|
|
XtVaSetValues(grid,
|
|
XmNlayoutFrozen, True,
|
|
NULL);
|
|
XmLGridDeleteAllRows(grid, XmCONTENT);
|
|
while (d = readdir(dir))
|
|
{
|
|
sprintf(fullpath, "%s/%s", path, d->d_name);
|
|
if (lstat(fullpath, &s) == -1)
|
|
continue;
|
|
XmLGridAddRows(grid, XmCONTENT, pos, 1);
|
|
XmLGridSetStringsPos(grid, XmCONTENT, pos, XmCONTENT, 0, d->d_name);
|
|
if (S_ISDIR(s.st_mode))
|
|
sprintf(buf, "Directory");
|
|
else if (S_ISLNK(s.st_mode))
|
|
sprintf(buf, "Link");
|
|
else
|
|
sprintf(buf, "File");
|
|
XmLGridSetStringsPos(grid, XmCONTENT, pos, XmCONTENT, 1, buf);
|
|
sprintf(buf, "%d", (int)s.st_size);
|
|
XmLGridSetStringsPos(grid, XmCONTENT, pos, XmCONTENT, 2, buf);
|
|
pos++;
|
|
}
|
|
closedir(dir);
|
|
XtVaSetValues(grid,
|
|
XmNlayoutFrozen, False,
|
|
NULL);
|
|
}
|
|
|