994772518a
This commit does three thing: 1. Sets appropriate bits on source files 2. Tells imake to build them as script files, not data files 3. Remove broken examples based on unused code
101 lines
2.4 KiB
Plaintext
101 lines
2.4 KiB
Plaintext
XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
|
|
XCOMM $XConsortium: TextDisp1.src /main/3 1996/04/23 20:18:56 drk $
|
|
|
|
XCOMM #########################################################################
|
|
XCOMM (c) Copyright 1993, 1994 Hewlett-Packard Company
|
|
XCOMM (c) Copyright 1993, 1994 International Business Machines Corp.
|
|
XCOMM (c) Copyright 1993, 1994 Sun Microsystems, Inc.
|
|
XCOMM (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
|
|
XCOMM Novell, Inc.
|
|
XCOMM #########################################################################
|
|
|
|
|
|
XCOMM
|
|
XCOMM This sample shell script exercises the commands which enable and disable
|
|
XCOMM updating in a text widget. If the update is disabled, and the value of
|
|
XCOMM the text field is then changed, the text field will not update what is
|
|
XCOMM shown, until update is again enabled.
|
|
XCOMM
|
|
|
|
XCOMM Pushbutton Callback: enable update in the text widget
|
|
EnableUpdate()
|
|
{
|
|
XmTextEnableRedisplay $TEXT
|
|
}
|
|
|
|
XCOMM Pushbutton Callback: disable update in the text widget
|
|
DisableUpdate()
|
|
{
|
|
XmTextDisableRedisplay $TEXT
|
|
}
|
|
|
|
XCOMM Pushbutton Callback: changes the text value
|
|
ChangeValue1()
|
|
{
|
|
XmTextSetString $TEXT "line A
|
|
line B
|
|
line C
|
|
line D
|
|
line E
|
|
line F
|
|
line G"
|
|
}
|
|
|
|
XCOMM Pushbutton Callback: changes the text value
|
|
ChangeValue2()
|
|
{
|
|
XmTextSetString $TEXT "line a
|
|
line b
|
|
line c
|
|
line d
|
|
line e
|
|
line f
|
|
line g"
|
|
}
|
|
|
|
|
|
XCOMM ###################### Create the Main UI ###############################
|
|
|
|
XtInitialize TOPLEVEL textDisp1 TextDisp1 "$0" "$@"
|
|
XtSetValues $TOPLEVEL allowShellResize:True
|
|
|
|
XmCreateScrolledText TEXT $TOPLEVEL text \
|
|
columns:20 \
|
|
rows:5 \
|
|
editMode:MULTI_LINE_EDIT \
|
|
value:\
|
|
"line 1
|
|
line 2
|
|
line 3
|
|
line 4"
|
|
XtManageChild $TEXT
|
|
|
|
XtRealizeWidget $TOPLEVEL
|
|
|
|
XtCreateApplicationShell TOPLEVEL2 textDisp1a TopLevelShell
|
|
|
|
XtCreateManagedWidget RC rc XmRowColumn $TOPLEVEL2 \
|
|
orientation:HORIZONTAL \
|
|
numColumns:2 \
|
|
packing:PACK_COLUMN
|
|
|
|
XtCreateManagedWidget PB1 pb1 XmPushButton $RC \
|
|
labelString:"Disable Update"
|
|
XtAddCallback $PB1 activateCallback "DisableUpdate"
|
|
|
|
XtCreateManagedWidget PB2 pb2 XmPushButton $RC \
|
|
labelString:"Enable Update"
|
|
XtAddCallback $PB2 activateCallback "EnableUpdate"
|
|
|
|
XtCreateManagedWidget PB3 pb3 XmPushButton $RC \
|
|
labelString:"Change Value 1"
|
|
XtAddCallback $PB3 activateCallback "ChangeValue1"
|
|
|
|
XtCreateManagedWidget PB4 pb4 XmPushButton $RC \
|
|
labelString:"Change Value 2"
|
|
XtAddCallback $PB4 activateCallback "ChangeValue2"
|
|
|
|
XtRealizeWidget $TOPLEVEL2
|
|
|
|
XtMainLoop
|