зеркало из https://github.com/mozilla/pjs.git
203 строки
6.0 KiB
C
203 строки
6.0 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 <XmL/Grid.h>
|
|
|
|
#define TITLEFONT "-*-helvetica-bold-r-*--*-140-*-*-*-*-iso8859-1"
|
|
#define BOLDFONT "-*-helvetica-bold-r-*--*-120-*-*-*-*-iso8859-1"
|
|
#define TEXTFONT "-*-helvetica-medium-r-*--*-100-*-*-*-*-iso8859-1"
|
|
|
|
static char *data =
|
|
"|1996 Income Summary\n\
|
|
|Shampoo|Conditioner|Soap|Total\n\
|
|
Revenues:\n\
|
|
Sales|$ 1,600,000|$ 1,000,000|$ 800,000|$ 3,400,000\n\
|
|
Less Discounts|(16,000)|(10,000)|(8,000)|(34,000)\n\
|
|
Less Return Allowance|(8,000)|(5,000)|(4,000)|(17,000)\n\
|
|
Net Revenue|1,576,000|985,000|792,000|3,349,000\n\
|
|
\n\
|
|
Less Expenses:\n\
|
|
Cost of Goods Sold|(640,000)|(330,000)|(264,000)|(1,234,000)\n\
|
|
Salary Expense|(380,000)|(280,000)|(180,000)|(840,000)\n\
|
|
Marketing Expense|(157,600)|(98,500)|(79,200)|(335,300)\n\
|
|
Rent Expense|(36,000)|(36,000)|(36,000)|(108,000)\n\
|
|
Misc. Other Expense|(36,408)|(22,335)|(16,776)|(75,519)\n\
|
|
Total Expenses|(1,250,008)|(766,835)|(575,976)|(2,592,819)\n\
|
|
\n\
|
|
Income Tax Expense|(130,397)|(87,266)|(86,410)|(304,072)\n\
|
|
Net Income|195,595|130,899|129,614|456,109";
|
|
|
|
main(argc, argv)
|
|
int argc;
|
|
char *argv[];
|
|
{
|
|
XtAppContext app;
|
|
Widget shell, grid;
|
|
int i, r;
|
|
|
|
shell = XtAppInitialize(&app, "Grid5", NULL, 0,
|
|
&argc, argv, NULL, NULL, 0);
|
|
|
|
grid = XtVaCreateManagedWidget("grid",
|
|
xmlGridWidgetClass, shell,
|
|
XtVaTypedArg, XmNbackground, XmRString, "#C0C0C0", 8,
|
|
XtVaTypedArg, XmNforeground, XmRString, "black", 6,
|
|
XmNheadingColumns, 1,
|
|
XmNcolumns, 3,
|
|
XmNfooterColumns, 1,
|
|
XmNsimpleWidths, "24c 11c 11c 11c 11c",
|
|
XmNvisibleColumns, 10,
|
|
XmNvisibleRows, 14,
|
|
XtVaTypedArg, XmNfontList, XmRString, TEXTFONT,
|
|
strlen(TEXTFONT) + 1,
|
|
XmNselectionPolicy, XmSELECT_NONE,
|
|
NULL);
|
|
|
|
XtVaSetValues(grid,
|
|
XmNlayoutFrozen, True,
|
|
NULL);
|
|
|
|
/* Add 'Income Summary' heading row with yellow background */
|
|
XtVaSetValues(grid,
|
|
XmNcellDefaults, True,
|
|
XtVaTypedArg, XmNcellBackground, XmRString, "#FFFF00", 8,
|
|
XtVaTypedArg, XmNcellForeground, XmRString, "#000080", 8,
|
|
XmNcellLeftBorderType, XmBORDER_NONE,
|
|
XmNcellRightBorderType, XmBORDER_NONE,
|
|
XmNcellTopBorderType, XmBORDER_NONE,
|
|
XtVaTypedArg, XmNcellBottomBorderColor, XmRString, "black", 6,
|
|
XmNcellAlignment, XmALIGNMENT_CENTER,
|
|
NULL);
|
|
XmLGridAddRows(grid, XmHEADING, -1, 1);
|
|
|
|
/* Set span on '1996 Income Summary' cell in heading row */
|
|
XtVaSetValues(grid,
|
|
XmNrowType, XmHEADING,
|
|
XmNrow, 0,
|
|
XmNcolumn, 0,
|
|
XmNcellColumnSpan, 2,
|
|
XtVaTypedArg, XmNcellFontList, XmRString, TITLEFONT,
|
|
strlen(TITLEFONT) + 1,
|
|
NULL);
|
|
|
|
/* Add 'Shampoo Conditioner Soap' heading row with white background */
|
|
XtVaSetValues(grid,
|
|
XmNcellDefaults, True,
|
|
XtVaTypedArg, XmNcellFontList, XmRString, BOLDFONT,
|
|
strlen(BOLDFONT) + 1,
|
|
XtVaTypedArg, XmNcellBackground, XmRString, "white", 6,
|
|
XtVaTypedArg, XmNcellForeground, XmRString, "black", 6,
|
|
XmNcellBottomBorderType, XmBORDER_NONE,
|
|
NULL);
|
|
XmLGridAddRows(grid, XmHEADING, -1, 1);
|
|
|
|
/* Add content and footer rows with heading column 0 left justified */
|
|
XtVaSetValues(grid,
|
|
XmNcellDefaults, True,
|
|
XmNcellAlignment, XmALIGNMENT_RIGHT,
|
|
XtVaTypedArg, XmNcellFontList, XmRString, TEXTFONT,
|
|
strlen(TEXTFONT) + 1,
|
|
NULL);
|
|
XtVaSetValues(grid,
|
|
XmNcellDefaults, True,
|
|
XmNcolumnType, XmHEADING,
|
|
XmNcolumn, 0,
|
|
XmNcellAlignment, XmALIGNMENT_LEFT,
|
|
NULL);
|
|
XmLGridAddRows(grid, XmCONTENT, -1, 15);
|
|
|
|
/* Add footer row with blue background */
|
|
XtVaSetValues(grid,
|
|
XmNcellDefaults, True,
|
|
XtVaTypedArg, XmNcellForeground, XmRString, "white", 6,
|
|
XtVaTypedArg, XmNcellBackground, XmRString, "#000080", 8,
|
|
XtVaTypedArg, XmNcellFontList, XmRString, BOLDFONT,
|
|
strlen(BOLDFONT) + 1,
|
|
NULL);
|
|
XmLGridAddRows(grid, XmFOOTER, -1, 1);
|
|
|
|
/* Bold 'Revenues' cell */
|
|
XtVaSetValues(grid,
|
|
XmNcolumnType, XmHEADING,
|
|
XmNcolumn, 0,
|
|
XmNrow, 0,
|
|
XtVaTypedArg, XmNcellFontList, XmRString, BOLDFONT,
|
|
strlen(BOLDFONT) + 1,
|
|
NULL);
|
|
|
|
/* Bold 'Less Expenses' cell */
|
|
XtVaSetValues(grid,
|
|
XmNcolumnType, XmHEADING,
|
|
XmNcolumn, 0,
|
|
XmNrow, 6,
|
|
XtVaTypedArg, XmNcellFontList, XmRString, BOLDFONT,
|
|
strlen(BOLDFONT) + 1,
|
|
NULL);
|
|
|
|
/* Grey middle and footer content column */
|
|
XtVaSetValues(grid,
|
|
XmNcolumnType, XmALL_TYPES,
|
|
XmNcolumnRangeStart, 2,
|
|
XmNcolumnRangeEnd, 4,
|
|
XmNcolumnStep, 2,
|
|
XtVaTypedArg, XmNcellBackground, XmRString, "#E8E8E8", 8,
|
|
NULL);
|
|
|
|
/* Grey 'Conditioner' and 'Total' cell in heading row 1 */
|
|
XtVaSetValues(grid,
|
|
XmNrowType, XmHEADING,
|
|
XmNrow, 1,
|
|
XmNcolumnType, XmALL_TYPES,
|
|
XmNcolumnRangeStart, 2,
|
|
XmNcolumnRangeEnd, 4,
|
|
XmNcolumnStep, 2,
|
|
XtVaTypedArg, XmNcellBackground, XmRString, "#E8E8E8", 8,
|
|
NULL);
|
|
|
|
/* Blue and bold 'Net Revenue' and 'Total Expenses' rows */
|
|
XtVaSetValues(grid,
|
|
XmNrowRangeStart, 4,
|
|
XmNrowRangeEnd, 12,
|
|
XmNrowStep, 8,
|
|
XmNcolumnType, XmALL_TYPES,
|
|
XtVaTypedArg, XmNcellForeground, XmRString, "white", 6,
|
|
XtVaTypedArg, XmNcellBackground, XmRString, "#000080", 8,
|
|
XtVaTypedArg, XmNcellFontList, XmRString, BOLDFONT,
|
|
strlen(BOLDFONT) + 1,
|
|
NULL);
|
|
|
|
XtVaSetValues(grid,
|
|
XmNlayoutFrozen, False,
|
|
NULL);
|
|
|
|
XmLGridSetStrings(grid, data);
|
|
|
|
XtRealizeWidget(shell);
|
|
XtAppMainLoop(app);
|
|
}
|