upon further inspection, we will need to get rid of XCOMM since sed allows
comments for some reason, I could work around it but I'm too lazy, here is the
new patches
Thank you for your time,
-Chase
‐‐‐‐‐‐‐ Original Message ‐‐‐‐‐‐‐
On Friday, January 31, 2020 8:44 PM, Chase via cdesktopenv-devel
<cdesktopenv-devel@lists.sourceforge.net> wrote:
> So I think that, if gcc -E isnt functioning in the way we want it anymore, we
> should work towards moving them to sed scripts, as maintaining our own forked
> cpp is clunky, from now on I will be using sed scripts to build scripts and
> datafiles.
>
> Thank you for your time,
> -Chase
From 371e7dad673f3ea934ee45b8d22991dc1e69582a Mon Sep 17 00:00:00 2001
From: Chase <nicetry...@protonmail.ch>
Date: Fri, 31 Jan 2020 20:17:51 -0600
Subject: [PATCH 1/2] dtksh/examples: add automake file
---
cde/programs/dtksh/examples/Makefile.am | 92 +++++++++++++++++++++++++
1 file changed, 92 insertions(+)
create mode 100644 cde/programs/dtksh/examples/Makefile.am
diff --git a/cde/programs/dtksh/examples/Makefile.am b/cde/programs/dtksh/examples/Makefile.am
new file mode 100644
index 00000000..a87df473
--- /dev/null
+++ b/cde/programs/dtksh/examples/Makefile.am
@@ -0,0 +1,92 @@
+noinst_SCRIPTS = CallDataTest4 CallbackTest2 DtCursorTest2 DtWsTest1 \
+ EventHandlerTest ListBounds1 ListItemPos1 ListPosSel1 \
+ PipeTest PopupTest SelBoxResTest SessionTest TextCutBuf1 \
+ TextDisp1 TextFXYPos1 TransEventTest TransTest1 WorkProcTest1 \
+ XCursorTest1 XdrawTest crMovesText1
+
+do_subst = sed -e 's/XCOMM/#/g' \
+ -e 's/CDE_INSTALLATION_TOP/$(CDE_INSTALLATION_TOP)/g'
+
+CallDataTest4: CallDataTest4.src
+ $(do_subst) $< > $@
+ chmod +x $@
+
+CallbackTest2: CallbackTest2.src
+ $(do_subst) $< > $@
+ chmod +x $@
+
+DtCursorTest2: DtCursorTest2.src
+ $(do_subst) $< > $@
+ chmod +x $@
+
+DtWsTest1: DtWsTest1.src
+ $(do_subst) $< > $@
+ chmod +x $@
+
+EventHandlerTest: EventHandlerTest.src
+ $(do_subst) $< > $@
+ chmod +x $@
+
+ListBounds1: ListBounds1.src
+ $(do_subst) $< > $@
+ chmod +x $@
+
+ListItemPos1: ListItemPos1.src
+ $(do_subst) $< > $@
+ chmod +x $@
+
+ListPosSel1: ListPosSel1.src
+ $(do_subst) $< > $@
+ chmod +x $@
+
+PipeTest: PipeTest.src
+ $(do_subst) $< > $@
+ chmod +x $@
+
+PopupTest: PopupTest.src
+ $(do_subst) $< > $@
+ chmod +x $@
+
+SelBoxResTest: SelBoxResTest
+ $(do_subst) $< > $@
+ chmod +x $@
+
+SessionTest: SessionTest.src
+ $(do_subst) $< > $@
+ chmod +x $@
+
+TextCutBuf1: TextCutBuf1.src
+ $(do_subst) $< > $@
+ chmod +x $@
+
+TextDisp1: TextDisp1.src
+ $(do_subst) $< > $@
+ chmod +x $@
+
+TextFXYPos1: TextFXYPos1.src
+ $(do_subst) $< > $@
+ chmod +x $@
+
+TransEventTest: TransEventTest.src
+ $(do_subst) $< > $@
+ chmod +x $@
+
+TransTest1: TransTest1.src
+ $(do_subst) $< > $@
+ chmod +x $@
+
+WorkProcTest1: WorkProcTest1.src
+ $(do_subst) $< > $@
+ chmod +x $@
+
+XCursorTest1: XCursorTest1.src
+ $(do_subst) $< > $@
+ chmod +x $@
+
+XdrawTest: XdrawTest.src
+ $(do_subst) $< > $@
+ chmod +x $@
+
+crMovesText1: crMovesText1.src
+ $(do_subst) $< > $@
+ chmod +x $@
--
2.17.1
From 6119a5efe2973bb55444fcc843d9ca4b8b96910a Mon Sep 17 00:00:00 2001
From: Chase <nicetry...@protonmail.ch>
Date: Sat, 1 Feb 2020 12:45:20 -0600
Subject: [PATCH 2/2] dtksh/examples: make it build properly
---
cde/programs/dtksh/examples/CallDataTest4.src | 38 ++++-----
cde/programs/dtksh/examples/CallbackTest2.src | 40 +++++-----
cde/programs/dtksh/examples/DtCursorTest2.src | 32 ++++----
cde/programs/dtksh/examples/DtWsTest1.src | 80 +++++++++----------
.../dtksh/examples/EventHandlerTest.src | 48 +++++------
cde/programs/dtksh/examples/ListBounds1.src | 32 ++++----
cde/programs/dtksh/examples/ListItemPos1.src | 44 +++++-----
cde/programs/dtksh/examples/ListPosSel1.src | 32 ++++----
cde/programs/dtksh/examples/Makefile.am | 3 +-
cde/programs/dtksh/examples/PipeTest.src | 38 ++++-----
cde/programs/dtksh/examples/PopupTest.src | 34 ++++----
cde/programs/dtksh/examples/SelBoxResTest.src | 32 ++++----
cde/programs/dtksh/examples/SessionTest.src | 80 +++++++++----------
cde/programs/dtksh/examples/TextCutBuf1.src | 36 ++++-----
cde/programs/dtksh/examples/TextDisp1.src | 48 +++++------
cde/programs/dtksh/examples/TextFXYPos1.src | 34 ++++----
.../dtksh/examples/TransEventTest.src | 50 ++++++------
cde/programs/dtksh/examples/TransTest1.src | 32 ++++----
cde/programs/dtksh/examples/WorkProcTest1.src | 30 +++----
cde/programs/dtksh/examples/XCursorTest1.src | 36 ++++-----
cde/programs/dtksh/examples/XdrawTest.src | 28 +++----
cde/programs/dtksh/examples/crMovesText1.src | 68 ++++++++--------
22 files changed, 447 insertions(+), 448 deletions(-)
diff --git a/cde/programs/dtksh/examples/CallDataTest4.src b/cde/programs/dtksh/examples/CallDataTest4.src
index 724b6f65..f7e94daa 100755
--- a/cde/programs/dtksh/examples/CallDataTest4.src
+++ b/cde/programs/dtksh/examples/CallDataTest4.src
@@ -1,34 +1,34 @@
-XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: CallDataTest4.src /main/3 1996/04/23 20:17:51 drk $
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: CallDataTest4.src /main/3 1996/04/23 20:17:51 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 #########################################################################
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
-XCOMM
-XCOMM This sample shell script demonstrates how the CB_WIDGET and CB_CALL_DATA
-XCOMM convenience environment variables can be referenced within a callback
-XCOMM function.
-XCOMM
+#
+# This sample shell script demonstrates how the CB_WIDGET and CB_CALL_DATA
+# convenience environment variables can be referenced within a callback
+# function.
+#
-XCOMM PushButton Callback: Forces the scale to reset to the origin
+# PushButton Callback: Forces the scale to reset to the origin
ResetScale()
{
XmScaleSetValue $SCALE 0
}
-XCOMM PushButton Callback: Forces the scale to its minimum value
+# PushButton Callback: Forces the scale to its minimum value
SetScaleMin()
{
XmScaleSetValue $SCALE -200
}
-XCOMM PushButton Callback: Forces the scale to its maximum value
+# PushButton Callback: Forces the scale to its maximum value
SetScaleMax()
{
XmScaleSetValue $SCALE 200
@@ -57,7 +57,7 @@ SetScaleMax()
}
-XCOMM Scale Callback: Invoked when the user interactively modified the scale value
+# Scale Callback: Invoked when the user interactively modified the scale value
ScaleValueChanged()
{
XmScaleGetValue $CB_WIDGET VALUE
@@ -73,7 +73,7 @@ ScaleValueChanged()
echo
}
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL command1 Command1 "$0" "$@"
diff --git a/cde/programs/dtksh/examples/CallbackTest2.src b/cde/programs/dtksh/examples/CallbackTest2.src
index 036d1cca..b431a7d6 100755
--- a/cde/programs/dtksh/examples/CallbackTest2.src
+++ b/cde/programs/dtksh/examples/CallbackTest2.src
@@ -1,35 +1,35 @@
-XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: CallbackTest2.src /main/3 1996/04/23 20:17:57 drk $
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: CallbackTest2.src /main/3 1996/04/23 20:17:57 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 #########################################################################
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
-XCOMM
-XCOMM This sample shell script demonstrates how widget callbacks can be
-XCOMM added and removed. It adds callbacks both using XtAddCallback and
-XCOMM by specifying a callback as a resource, when the test pushbutton
-XCOMM is created.
-XCOMM
+#
+# This sample shell script demonstrates how widget callbacks can be
+# added and removed. It adds callbacks both using XtAddCallback and
+# by specifying a callback as a resource, when the test pushbutton
+# is created.
+#
-XCOMM The activate callback which can be dynamically added and removed
+# The activate callback which can be dynamically added and removed
ActivateCallback1()
{
echo "activateCallback1 invoked"
}
-XCOMM The activate callback which is added when the widget was created
+# The activate callback which is added when the widget was created
ActivateCallback2()
{
echo "activateCallback2 invoked"
}
-XCOMM Pushbutton Callback: Adds an activate callback to the test pushbutton
+# Pushbutton Callback: Adds an activate callback to the test pushbutton
AddCallback1()
{
XtAddCallback $TESTPB activateCallback ActivateCallback1
@@ -37,7 +37,7 @@ AddCallback1()
echo "Callback list = "$AC
}
-XCOMM Pushbutton Callback: Removes an activate callback from the test pushbutton
+# Pushbutton Callback: Removes an activate callback from the test pushbutton
DeleteCallback1()
{
XtRemoveCallback $TESTPB activateCallback ActivateCallback1
@@ -45,7 +45,7 @@ DeleteCallback1()
echo "Callback list = "$AC2
}
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL callbackTest CallbackTest "$0" "$@"
diff --git a/cde/programs/dtksh/examples/DtCursorTest2.src b/cde/programs/dtksh/examples/DtCursorTest2.src
index fcf31873..56a3e4df 100755
--- a/cde/programs/dtksh/examples/DtCursorTest2.src
+++ b/cde/programs/dtksh/examples/DtCursorTest2.src
@@ -1,33 +1,33 @@
-XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: DtCursorTest2.src /main/3 1996/04/23 20:18:02 drk $
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: DtCursorTest2.src /main/3 1996/04/23 20:18:02 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 #########################################################################
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
-XCOMM
-XCOMM This sample shell script demonstrates how a cursor can be defined or
-XCOMM undefined for an X window.
-XCOMM
+#
+# This sample shell script demonstrates how a cursor can be defined or
+# undefined for an X window.
+#
-XCOMM Pushbutton Callback: set the busy cursor for the toplevel window
+# Pushbutton Callback: set the busy cursor for the toplevel window
DefineCursor()
{
XDefineCursor $(XtDisplay "-" $TOPLEVEL) $(XtWindow "-" $TOPLEVEL) $CURSOR
}
-XCOMM Pushbutton Callback: remove the busy cursor from the toplevel window
+# Pushbutton Callback: remove the busy cursor from the toplevel window
UndefineCursor()
{
XUndefineCursor $(XtDisplay "-" $TOPLEVEL) $(XtWindow "-" $TOPLEVEL)
}
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL dtCursorTest2 DtCursorTest2 "$0" "$@"
XtSetValues $TOPLEVEL allowShellResize:True
diff --git a/cde/programs/dtksh/examples/DtWsTest1.src b/cde/programs/dtksh/examples/DtWsTest1.src
index 59019560..1f57432d 100755
--- a/cde/programs/dtksh/examples/DtWsTest1.src
+++ b/cde/programs/dtksh/examples/DtWsTest1.src
@@ -1,34 +1,34 @@
-XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: DtWsTest1.src /main/3 1996/04/23 20:18:06 drk $
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: DtWsTest1.src /main/3 1996/04/23 20:18:06 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 #########################################################################
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
-XCOMM
-XCOMM This sample shell script demonstrates how to interact with the workspace
-XCOMM manager. It demonstrates the following capabilities:
-XCOMM
-XCOMM 1) How to query which workspaces the widgets currently reside it.
-XCOMM 2) How to set the current workspace.
-XCOMM 3) How to be notified when the current workspace changes.
-XCOMM
+#
+# This sample shell script demonstrates how to interact with the workspace
+# manager. It demonstrates the following capabilities:
+#
+# 1) How to query which workspaces the widgets currently reside it.
+# 2) How to set the current workspace.
+# 3) How to be notified when the current workspace changes.
+#
integer wsCount
-XCOMM Pushbutton Callback: This function asks the workspace manager to change
-XCOMM to the workspace indicated by $1; $1 is an X atom
-XCOMM which identifies the new workspace. At some point
-XCOMM after our request to the workspace manager, the
-XCOMM workspace manager will activate our WsCB function,
-XCOMM letting us know that the change has actually taken
-XCOMM place.
+# Pushbutton Callback: This function asks the workspace manager to change
+# to the workspace indicated by $1; $1 is an X atom
+# which identifies the new workspace. At some point
+# after our request to the workspace manager, the
+# workspace manager will activate our WsCB function,
+# letting us know that the change has actually taken
+# place.
SetWorkspace()
{
echo
@@ -40,10 +40,10 @@ SetWorkspace()
fi
}
-XCOMM Workspace Changed Callback: This function is invoked whenever the workspace
-XCOMM manager changes workspaces. It will simply
-XCOMM query the 'name' of the new workspace, and
-XCOMM echo it outl
+# Workspace Changed Callback: This function is invoked whenever the workspace
+# manager changes workspaces. It will simply
+# query the 'name' of the new workspace, and
+# echo it outl
WsCB()
{
DtWsmGetCurrentWorkspace $(XtDisplay "-" $TOPLEVEL) \
@@ -53,7 +53,7 @@ WsCB()
echo "Change to workspace complete " $NAME "("$NEW_ATOM")"
}
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL dtWsTest DtWsTest "$0" "$@"
XtSetValues $TOPLEVEL allowShellResize:True
@@ -70,9 +70,9 @@ XtCreateManagedWidget RC rc XmRowColumn $TOPLEVEL2 \
orientation:HORIZONTAL \
packing:PACK_COLUMN
-XCOMM Get a list of all of the workspaces, and create a pushbutton for each one.
-XCOMM When a pushbutton is activated, it will ask the workspace manager to
-XCOMM change to the indicated workspace.
+# Get a list of all of the workspaces, and create a pushbutton for each one.
+# When a pushbutton is activated, it will ask the workspace manager to
+# change to the indicated workspace.
oldIF=$IFS
if DtWsmGetWorkspaceList $(XtDisplay "-" $TOPLEVEL) \
$(XRootWindowOfScreen "-" $(XtScreen "-" $TOPLEVEL)) \
@@ -99,12 +99,12 @@ XtSetValues $RC numColumns:$wsCount
XtRealizeWidget $TOPLEVEL2
XSync $(XtDisplay "-" $TOPLEVEL) False
-XCOMM The following block queries the initial set of workspaces occupied by
-XCOMM this shell script; this list is printed out. Next, it will ask the
-XCOMM workspace manager to move the shell script windows into all workspaces.
-XCOMM Lastly, it will again ask the workspace manager for the list of
-XCOMM workspaces occupied by the shell script windows, and will again print
-XCOMM out the list.
+# The following block queries the initial set of workspaces occupied by
+# this shell script; this list is printed out. Next, it will ask the
+# workspace manager to move the shell script windows into all workspaces.
+# Lastly, it will again ask the workspace manager for the list of
+# workspaces occupied by the shell script windows, and will again print
+# out the list.
if DtWsmGetWorkspacesOccupied $(XtDisplay "-" $TOPLEVEL) \
$(XtWindow "-" $TOPLEVEL) \
CURRENT_WS_LIST ;
@@ -134,7 +134,7 @@ fi
XSync $(XtDisplay "-" $TOPLEVEL) False
-XCOMM Print the new list of workspaces occupied
+# Print the new list of workspaces occupied
DtWsmGetWorkspacesOccupied $(XtDisplay "-" $TOPLEVEL) \
$(XtWindow "-" $TOPLEVEL) \
CURRENT_WS_LIST
@@ -149,7 +149,7 @@ done
IFS=$oldIFS
echo ""
-XCOMM Add a callback to be notified whenever the workspace changes.
+# Add a callback to be notified whenever the workspace changes.
DtWsmAddCurrentWorkspaceCallback HANDLE1 $TOPLEVEL WsCB
XtMainLoop
diff --git a/cde/programs/dtksh/examples/EventHandlerTest.src b/cde/programs/dtksh/examples/EventHandlerTest.src
index 2d5596e1..114e3541 100755
--- a/cde/programs/dtksh/examples/EventHandlerTest.src
+++ b/cde/programs/dtksh/examples/EventHandlerTest.src
@@ -1,20 +1,20 @@
-XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: EventHandlerTest.src /main/3 1996/04/23 20:18:10 drk $
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: EventHandlerTest.src /main/3 1996/04/23 20:18:10 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 #########################################################################
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
-XCOMM
-XCOMM This sample shell script demonstrates how event handlers can be added
-XCOMM and removed. It also demonstrates how the EH_WIDGET and EH_EVENT
-XCOMM convenience environment variables can be referenced.
-XCOMM
+#
+# This sample shell script demonstrates how event handlers can be added
+# and removed. It also demonstrates how the EH_WIDGET and EH_EVENT
+# convenience environment variables can be referenced.
+#
EventHandler1()
@@ -33,55 +33,55 @@ EventHandler2()
echo "event handler 1 invoked ("$1")"
}
-XCOMM PushbuttonCallback: Adds an event handler to the form widget
+# PushbuttonCallback: Adds an event handler to the form widget
AddMaskableEventHandler1()
{
XtAddEventHandler $FORM2 "Button2MotionMask" False \
"EventHandler1 1"
}
-XCOMM PushbuttonCallback: Adds an event handler to the form widget
+# PushbuttonCallback: Adds an event handler to the form widget
AddMaskableEventHandler2()
{
XtAddEventHandler $FORM2 "ButtonPressMask|ButtonReleaseMask" False \
"EventHandler1 1"
}
-XCOMM PushbuttonCallback: Adds an event handler to the form widget
+# PushbuttonCallback: Adds an event handler to the form widget
AddMaskableEventHandler3()
{
XtAddEventHandler $FORM2 "Button2MotionMask" False \
"EventHandler1 2"
}
-XCOMM PushbuttonCallback: Adds an event handler to the form widget
+# PushbuttonCallback: Adds an event handler to the form widget
AddNonmaskableEventHandler()
{
XtAddEventHandler $FORM2 "NoEventMask" True "EventHandler2 1"
}
-XCOMM PushbuttonCallback: Adds an event handler to the form widget.
-XCOMM Should report a bad event mask.
+# PushbuttonCallback: Adds an event handler to the form widget.
+# Should report a bad event mask.
AddBadEventHandler()
{
XtAddEventHandler $FORM2 "fooMask" False "EventHandler2 1"
}
-XCOMM PushbuttonCallback: Removes an event handler to the form widget
+# PushbuttonCallback: Removes an event handler to the form widget
RemoveEventHandler1()
{
XtRemoveEventHandler $FORM2 "Button2MotionMask" False \
"EventHandler1 1"
}
-XCOMM PushbuttonCallback: Removes an event handler to the form widget
+# PushbuttonCallback: Removes an event handler to the form widget
RemoveEventHandler2()
{
XtRemoveEventHandler $FORM2 "ButtonPressMask|ButtonReleaseMask" False \
"EventHandler1 1"
}
-XCOMM PushbuttonCallback: Removes an event handler to the form widget
+# PushbuttonCallback: Removes an event handler to the form widget
RemoveEventHandler1and2()
{
XtRemoveEventHandler $FORM2 "XtAllEvents" True "EventHandler1 1"
@@ -89,7 +89,7 @@ RemoveEventHandler1and2()
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL eventHandlerTest EventHandlerTest "$0" "$@"
diff --git a/cde/programs/dtksh/examples/ListBounds1.src b/cde/programs/dtksh/examples/ListBounds1.src
index ad1f415e..1d05c55f 100755
--- a/cde/programs/dtksh/examples/ListBounds1.src
+++ b/cde/programs/dtksh/examples/ListBounds1.src
@@ -1,23 +1,23 @@
-XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: ListBounds1.src /main/3 1996/04/23 20:18:16 drk $
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: ListBounds1.src /main/3 1996/04/23 20:18:16 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 #########################################################################
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
-XCOMM
-XCOMM This sample shell script demonstrates how to create a list widget, and
-XCOMM also how to query the bounds for each of the list items.
-XCOMM
+#
+# This sample shell script demonstrates how to create a list widget, and
+# also how to query the bounds for each of the list items.
+#
integer i
-XCOMM Pushbutton Callback: Query the bound for each list item
+# Pushbutton Callback: Query the bound for each list item
GetBounds()
{
i=1
@@ -28,13 +28,13 @@ GetBounds()
done
}
-XCOMM Pushbutton Callback: Delete the first list item
+# Pushbutton Callback: Delete the first list item
DelFirst()
{
XmListDeletePos $LIST 1
}
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL listKbd1 ListKbd1 "$0" "$@"
XtSetValues $TOPLEVEL allowShellResize:True
diff --git a/cde/programs/dtksh/examples/ListItemPos1.src b/cde/programs/dtksh/examples/ListItemPos1.src
index 99e1d44d..184013c2 100755
--- a/cde/programs/dtksh/examples/ListItemPos1.src
+++ b/cde/programs/dtksh/examples/ListItemPos1.src
@@ -1,40 +1,40 @@
-XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: ListItemPos1.src /main/3 1996/04/23 20:18:21 drk $
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: ListItemPos1.src /main/3 1996/04/23 20:18:21 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 #########################################################################
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
-XCOMM
-XCOMM This sample shell script demonstrates how to create a list widget, and
-XCOMM verifies that the XmListItemPos command operates correctly. The list
-XCOMM contains multiple items with the label "item4"; XmListItemPos will
-XCOMM return the position of the first occurrence. By selecting the push
-XCOMM button labeled "Delete First Item", you can delete the first item
-XCOMM labeled "item4"; the next call to XmListItemPos should now return
-XCOMM the position of the next item labeled "item4".
-XCOMM
+#
+# This sample shell script demonstrates how to create a list widget, and
+# verifies that the XmListItemPos command operates correctly. The list
+# contains multiple items with the label "item4"; XmListItemPos will
+# return the position of the first occurrence. By selecting the push
+# button labeled "Delete First Item", you can delete the first item
+# labeled "item4"; the next call to XmListItemPos should now return
+# the position of the next item labeled "item4".
+#
-XCOMM Pushbutton Callback: prints the position occupied by the first occurrence
-XCOMM of the "item4" label.
+# Pushbutton Callback: prints the position occupied by the first occurrence
+# of the "item4" label.
GetItemPosition()
{
XmListItemPos POS $LIST "item4"
echo "First position for item4 is: "$POS
}
-XCOMM Pushbutton Callback: deletes the first item in the list.
+# Pushbutton Callback: deletes the first item in the list.
DelFirstItem()
{
XmListDeletePos $LIST 1
}
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL listItemPos1 ListItemPos1 "$0" "$@"
XtSetValues $TOPLEVEL allowShellResize:True
diff --git a/cde/programs/dtksh/examples/ListPosSel1.src b/cde/programs/dtksh/examples/ListPosSel1.src
index 010f55ea..c23652d5 100755
--- a/cde/programs/dtksh/examples/ListPosSel1.src
+++ b/cde/programs/dtksh/examples/ListPosSel1.src
@@ -1,24 +1,24 @@
-XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: ListPosSel1.src /main/3 1996/04/23 20:18:25 drk $
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: ListPosSel1.src /main/3 1996/04/23 20:18:25 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 #########################################################################
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
-XCOMM
-XCOMM This sample shell script demonstrates how to create a list widget, and
-XCOMM also verifies that the XmListPosSelected command works; this command
-XCOMM returns information about whether an indicated list item is selected.
-XCOMM
+#
+# This sample shell script demonstrates how to create a list widget, and
+# also verifies that the XmListPosSelected command works; this command
+# returns information about whether an indicated list item is selected.
+#
integer i
-XCOMM Pushbutton Callback: print the selection state of each list item.
+# Pushbutton Callback: print the selection state of each list item.
GetSelectionStatus()
{
i=1
@@ -33,7 +33,7 @@ GetSelectionStatus()
done
}
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL listPosSel1 ListPosSel1 "$0" "$@"
XtSetValues $TOPLEVEL allowShellResize:True
diff --git a/cde/programs/dtksh/examples/Makefile.am b/cde/programs/dtksh/examples/Makefile.am
index a87df473..f7e637f9 100644
--- a/cde/programs/dtksh/examples/Makefile.am
+++ b/cde/programs/dtksh/examples/Makefile.am
@@ -4,8 +4,7 @@ noinst_SCRIPTS = CallDataTest4 CallbackTest2 DtCursorTest2 DtWsTest1 \
TextDisp1 TextFXYPos1 TransEventTest TransTest1 WorkProcTest1 \
XCursorTest1 XdrawTest crMovesText1
-do_subst = sed -e 's/XCOMM/#/g' \
- -e 's/CDE_INSTALLATION_TOP/$(CDE_INSTALLATION_TOP)/g'
+do_subst = sed -e 's+CDE_INSTALLATION_TOP+$(CDE_INSTALLATION_TOP)+g'
CallDataTest4: CallDataTest4.src
$(do_subst) $< > $@
diff --git a/cde/programs/dtksh/examples/PipeTest.src b/cde/programs/dtksh/examples/PipeTest.src
index 06e5bcd3..6e22a3e6 100755
--- a/cde/programs/dtksh/examples/PipeTest.src
+++ b/cde/programs/dtksh/examples/PipeTest.src
@@ -1,38 +1,38 @@
-XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: PipeTest.src /main/3 1996/04/23 20:18:30 drk $
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: PipeTest.src /main/3 1996/04/23 20:18:30 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 #########################################################################
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
-XCOMM
-XCOMM This sample shell script demonstrates some of the more advanced features
-XCOMM of dtksh. It shows how a structure can be defined and accessed, and
-XCOMM how a C library function can be called.
-XCOMM
+#
+# This sample shell script demonstrates some of the more advanced features
+# of dtksh. It shows how a structure can be defined and accessed, and
+# how a C library function can be called.
+#
-XCOMM Define a structure made up of 2 integer fields: pipe_in and pipe_out
+# Define a structure made up of 2 integer fields: pipe_in and pipe_out
struct pipe_fds pipe_in:int pipe_out:int
typedef 'struct pipe_fds *' pipe_fds_ptr
echo "Test 1"
-XCOMM Malloc space for the structure, and initialize the fields
+# Malloc space for the structure, and initialize the fields
call -F nop '@pipe_fds_ptr:{0,0}'
PIPE_FDS=$RET
-XCOMM Call the pipe(2) kernel intrinsic
+# Call the pipe(2) kernel intrinsic
call pipe $PIPE_FDS
RESULT=$RET
-XCOMM Print the values of the fields in the structure
+# Print the values of the fields in the structure
call strprint pipe_fds_ptr $PIPE_FDS
echo RESULT = $RESULT
echo
-XCOMM Repeat the test, to make sure we get different file descriptors
+# Repeat the test, to make sure we get different file descriptors
echo "Test 2"
call -F nop '@pipe_fds_ptr:{0,0}'
PIPE_FDS=$RET
diff --git a/cde/programs/dtksh/examples/PopupTest.src b/cde/programs/dtksh/examples/PopupTest.src
index 979d0c10..dd81d9f4 100755
--- a/cde/programs/dtksh/examples/PopupTest.src
+++ b/cde/programs/dtksh/examples/PopupTest.src
@@ -1,23 +1,23 @@
-XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: PopupTest.src /main/3 1996/04/23 20:18:36 drk $
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: PopupTest.src /main/3 1996/04/23 20:18:36 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 #########################################################################
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
-XCOMM
-XCOMM This sample shell script demonstrates the steps necessary to create and
-XCOMM manage a popup menu.
-XCOMM
+#
+# This sample shell script demonstrates the steps necessary to create and
+# manage a popup menu.
+#
-XCOMM This event handler positions the menu at the point where the button event
-XCOMM occurred, and then posts the popup menu.
+# This event handler positions the menu at the point where the button event
+# occurred, and then posts the popup menu.
EventHandler()
{
XmMenuPosition $POPUP $EH_EVENT
@@ -25,7 +25,7 @@ EventHandler()
}
-XCOMM Menu button callback
+# Menu button callback
MenuActivated()
{
echo "Menu Activated: "$1
@@ -34,7 +34,7 @@ MenuActivated()
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL popupTest PopupTest "$0" "$@"
diff --git a/cde/programs/dtksh/examples/SelBoxResTest.src b/cde/programs/dtksh/examples/SelBoxResTest.src
index 70a8e441..b25e9af4 100755
--- a/cde/programs/dtksh/examples/SelBoxResTest.src
+++ b/cde/programs/dtksh/examples/SelBoxResTest.src
@@ -1,21 +1,21 @@
-XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: SelBoxResTest.src /main/3 1996/04/23 20:18:42 drk $
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: SelBoxResTest.src /main/3 1996/04/23 20:18:42 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 #########################################################################
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
-XCOMM
-XCOMM This sample shell script verifies that the selection box properly
-XCOMM interprets the 'childPlacement' resource. Using a timer, it will
-XCOMM set the resource to a particular value, verify it is correct, and
-XCOMM then repeat for the next setting.
-XCOMM
+#
+# This sample shell script verifies that the selection box properly
+# interprets the 'childPlacement' resource. Using a timer, it will
+# set the resource to a particular value, verify it is correct, and
+# then repeat for the next setting.
+#
Timeout3()
{
@@ -46,7 +46,7 @@ Timeout1()
}
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL selectionBoxTest SelectionBoxTest "$0" "$@"
diff --git a/cde/programs/dtksh/examples/SessionTest.src b/cde/programs/dtksh/examples/SessionTest.src
index 740b7f2e..e296702e 100755
--- a/cde/programs/dtksh/examples/SessionTest.src
+++ b/cde/programs/dtksh/examples/SessionTest.src
@@ -1,41 +1,41 @@
-XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: SessionTest.src /main/6 1996/04/23 20:18:46 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 demonstrates the steps necessary for tying into
-XCOMM session management. To run, simply run this script, and then save the
-XCOMM current session. When the session is restored, this script should again
-XCOMM restore to its previous state.
-XCOMM
-
-
-XCOMM This function is invoked when the user attempts to save the current session.
-XCOMM It will save off its state information (whether it is iconified, and the
-XCOMM list of workspaces it occupies) into a session file, and then tell the
-XCOMM session manager how to reinvoke it when the session is restored.
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: SessionTest.src /main/6 1996/04/23 20:18:46 drk $
+
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
+
+
+#
+# This sample shell script demonstrates the steps necessary for tying into
+# session management. To run, simply run this script, and then save the
+# current session. When the session is restored, this script should again
+# restore to its previous state.
+#
+
+
+# This function is invoked when the user attempts to save the current session.
+# It will save off its state information (whether it is iconified, and the
+# list of workspaces it occupies) into a session file, and then tell the
+# session manager how to reinvoke it when the session is restored.
SessionCallback()
{
-XCOMM Get the name of our session file
+# Get the name of our session file
if DtSessionSavePath $TOPLEVEL PATH SAVEFILE; then
exec 9>$PATH
-XCOMM Save our iconification state
+# Save our iconification state
if DtShellIsIconified $TOPLEVEL ; then
print -u9 'Iconified'
else
print -u9 'Deiconified'
fi
-XCOMM Save the list of workspace we occupy
+# Save the list of workspace we occupy
if DtWsmGetWorkspacesOccupied $(XtDisplay "-" $TOPLEVEL) \
$(XtWindow "-" $TOPLEVEL) \
CURRENT_WS_LIST ;
@@ -52,7 +52,7 @@ XCOMM Save the list of workspace we occupy
exec 9<&-
-XCOMM Tell the session manager how to restart us
+# Tell the session manager how to restart us
DtSetStartupCommand $TOPLEVEL \
"/usr/dt/share/examples/dtksh/SessionTest $SAVEFILE"
else
@@ -62,24 +62,24 @@ XCOMM Tell the session manager how to restart us
}
-XCOMM This function is invoked when we are restarted at session restore time.
-XCOMM It is passed the name of the session file as $1. It will extract our
-XCOMM session information from the session file, and will restore our state
-XCOMM accordingly.
+# This function is invoked when we are restarted at session restore time.
+# It is passed the name of the session file as $1. It will extract our
+# session information from the session file, and will restore our state
+# accordingly.
RestoreSession()
{
-XCOMM Get the full path of our session file
+# Get the full path of our session file
if DtSessionRestorePath $TOPLEVEL PATH $1; then
exec 9<$PATH
read -u9 ICONIFY
-XCOMM Restore our iconification state
+# Restore our iconification state
case $ICONIFY in
Iconified) DtSetIconifyHint $TOPLEVEL True;;
*) DtSetIconifyHint $TOPLEVEL False;;
esac
-XCOMM Place us into the indicated set of workspaces
+# Place us into the indicated set of workspaces
WS_LIST=""
while read -u9 NAME
do
@@ -104,7 +104,7 @@ XCOMM Place us into the indicated set of workspaces
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL wmProtTest WmProtTest "$0" "$@"
@@ -114,9 +114,9 @@ XtSetValues $DA height:200 width:200
XmInternAtom SAVE_SESSION_ATOM $(XtDisplay "-" $TOPLEVEL) "WM_SAVE_YOURSELF" False
-XCOMM If we are invoked with any command line parameters, then we will assume
-XCOMM that it is the name of our session file, and will restore to the indicated
-XCOMM state.
+# If we are invoked with any command line parameters, then we will assume
+# that it is the name of our session file, and will restore to the indicated
+# state.
if (( $# > 0))
then
XtSetValues $TOPLEVEL mappedWhenManaged:False
@@ -130,7 +130,7 @@ else
XSync $(XtDisplay "-" $TOPLEVEL) False
fi
-XCOMM Register our interest in participating in session management.
+# Register our interest in participating in session management.
XmAddWMProtocols $TOPLEVEL $SAVE_SESSION_ATOM
XmAddWMProtocolCallback $TOPLEVEL $SAVE_SESSION_ATOM SessionCallback
diff --git a/cde/programs/dtksh/examples/TextCutBuf1.src b/cde/programs/dtksh/examples/TextCutBuf1.src
index 50dab350..80a393ef 100755
--- a/cde/programs/dtksh/examples/TextCutBuf1.src
+++ b/cde/programs/dtksh/examples/TextCutBuf1.src
@@ -1,21 +1,21 @@
-XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: TextCutBuf1.src /main/3 1996/04/23 20:18:52 drk $
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: TextCutBuf1.src /main/3 1996/04/23 20:18:52 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 #########################################################################
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
-XCOMM
-XCOMM This sample shell script demonstrates how the Text cut, copy and paste
-XCOMM facilities work.
-XCOMM
+#
+# This sample shell script demonstrates how the Text cut, copy and paste
+# facilities work.
+#
-XCOMM Pushbutton Callback: cut the currently select text
+# Pushbutton Callback: cut the currently select text
Cut()
{
if XmTextCut $TEXT $(XtLastTimestampProcessed "-" $(XtDisplay "-" $TEXT));
@@ -26,7 +26,7 @@ Cut()
fi
}
-XCOMM Pushbutton Callback: copy the currently select text
+# Pushbutton Callback: copy the currently select text
Copy()
{
if XmTextCopy $TEXT $(XtLastTimestampProcessed "-" $(XtDisplay "-" $TEXT));
@@ -37,13 +37,13 @@ Copy()
fi
}
-XCOMM Pushbutton Callback: clear the text selection
+# Pushbutton Callback: clear the text selection
ClearSelection()
{
XmTextClearSelection $TEXT $(XtLastTimestampProcessed "-" $(XtDisplay "-" $TEXT))
}
-XCOMM Pushbutton Callback: paste the cut buffer at the current insertion position
+# Pushbutton Callback: paste the cut buffer at the current insertion position
Paste()
{
if XmTextPaste $TEXT; then
@@ -54,7 +54,7 @@ Paste()
}
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL textCutBuf1 TextCutBuf1 "$0" "$@"
XtSetValues $TOPLEVEL allowShellResize:True
diff --git a/cde/programs/dtksh/examples/TextDisp1.src b/cde/programs/dtksh/examples/TextDisp1.src
index dd1d5426..00df7668 100755
--- a/cde/programs/dtksh/examples/TextDisp1.src
+++ b/cde/programs/dtksh/examples/TextDisp1.src
@@ -1,35 +1,35 @@
-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
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: TextDisp1.src /main/3 1996/04/23 20:18:56 drk $
+
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
+
+
+#
+# This sample shell script exercises the commands which enable and disable
+# updating in a text widget. If the update is disabled, and the value of
+# the text field is then changed, the text field will not update what is
+# shown, until update is again enabled.
+#
+
+# Pushbutton Callback: enable update in the text widget
EnableUpdate()
{
XmTextEnableRedisplay $TEXT
}
-XCOMM Pushbutton Callback: disable update in the text widget
+# Pushbutton Callback: disable update in the text widget
DisableUpdate()
{
XmTextDisableRedisplay $TEXT
}
-XCOMM Pushbutton Callback: changes the text value
+# Pushbutton Callback: changes the text value
ChangeValue1()
{
XmTextSetString $TEXT "line A
@@ -41,7 +41,7 @@ line F
line G"
}
-XCOMM Pushbutton Callback: changes the text value
+# Pushbutton Callback: changes the text value
ChangeValue2()
{
XmTextSetString $TEXT "line a
@@ -54,7 +54,7 @@ line g"
}
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL textDisp1 TextDisp1 "$0" "$@"
XtSetValues $TOPLEVEL allowShellResize:True
diff --git a/cde/programs/dtksh/examples/TextFXYPos1.src b/cde/programs/dtksh/examples/TextFXYPos1.src
index 83557e78..4cb57f7c 100755
--- a/cde/programs/dtksh/examples/TextFXYPos1.src
+++ b/cde/programs/dtksh/examples/TextFXYPos1.src
@@ -1,31 +1,31 @@
-XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: TextFXYPos1.src /main/3 1996/04/23 20:19:01 drk $
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: TextFXYPos1.src /main/3 1996/04/23 20:19:01 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 #########################################################################
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
-XCOMM
-XCOMM This sample shell script verifies that the XmTextFieldPosToXY command
-XCOMM functions correctly.
-XCOMM
+#
+# This sample shell script verifies that the XmTextFieldPosToXY command
+# functions correctly.
+#
-XCOMM Pushbutton Callback: exercise the Text functions
+# Pushbutton Callback: exercise the Text functions
RunTests()
{
-XCOMM This position should not be visible
+# This position should not be visible
if XmTextFieldPosToXY $TEXT 90 X Y; then
echo "Text position 90 is at point ("$X","$Y")"
else
echo "Text position 90 is not currently visible"
fi
-XCOMM This position should be visible
+# This position should be visible
if XmTextFieldPosToXY $TEXT 3 X Y; then
echo "Text position 3 is at point ("$X","$Y")"
else
@@ -37,7 +37,7 @@ XCOMM This position should be visible
}
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL textFXYPos1 TextFXYPos1 "$0" "$@"
XtSetValues $TOPLEVEL allowShellResize:True
diff --git a/cde/programs/dtksh/examples/TransEventTest.src b/cde/programs/dtksh/examples/TransEventTest.src
index f509f505..1261e19f 100755
--- a/cde/programs/dtksh/examples/TransEventTest.src
+++ b/cde/programs/dtksh/examples/TransEventTest.src
@@ -1,28 +1,28 @@
-XCOMM!CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: TransEventTest.src /main/3 1996/04/23 20:19:07 drk $
+#!CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: TransEventTest.src /main/3 1996/04/23 20:19:07 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 #########################################################################
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
-XCOMM
-XCOMM This sample shell script verifies that the augment and override
-XCOMM capabilities for translations work as expected. Since augmenting
-XCOMM a translation does not replace an existing translation, the first
-XCOMM pushbutton should only use our button3 translation. Since overriding
-XCOMM a translation replaces an existing translation, the second pushbutton
-XCOMM should use both our Enter and button1 translations.
-XCOMM
-XCOMM It also demonstrates access to the TRANSLATION_EVENT convenience
-XCOMM environment variable.
-XCOMM
+#
+# This sample shell script verifies that the augment and override
+# capabilities for translations work as expected. Since augmenting
+# a translation does not replace an existing translation, the first
+# pushbutton should only use our button3 translation. Since overriding
+# a translation replaces an existing translation, the second pushbutton
+# should use both our Enter and button1 translations.
+#
+# It also demonstrates access to the TRANSLATION_EVENT convenience
+# environment variable.
+#
-XCOMM EnterNotify handler
+# EnterNotify handler
Enter()
{
echo EnterNotify
@@ -31,7 +31,7 @@ Enter()
echo "Event.xany.window = "${TRANSLATION_EVENT.XANY.WINDOW}
}
-XCOMM ButtonDown handler; $1 indicates which button
+# ButtonDown handler; $1 indicates which button
BtnDown()
{
echo "ButtonDown ("$1")"
@@ -42,15 +42,15 @@ BtnDown()
echo "Event.xbutton.y = "${TRANSLATION_EVENT.XBUTTON.Y}
}
-XCOMM Default activate callback for the pushbuttons; should only get called
-XCOMM for the first pushbutton (augmented one).
+# Default activate callback for the pushbuttons; should only get called
+# for the first pushbutton (augmented one).
Activate()
{
echo "Activate ("$1")"
}
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL transEventTest TransEventTest "$0" "$@"
XtSetValues $TOPLEVEL allowShellResize:True
diff --git a/cde/programs/dtksh/examples/TransTest1.src b/cde/programs/dtksh/examples/TransTest1.src
index 1ba3ac20..136270d7 100755
--- a/cde/programs/dtksh/examples/TransTest1.src
+++ b/cde/programs/dtksh/examples/TransTest1.src
@@ -1,21 +1,21 @@
-XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: TransTest1.src /main/3 1996/04/23 20:19:11 drk $
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: TransTest1.src /main/3 1996/04/23 20:19:11 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 #########################################################################
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
-XCOMM
-XCOMM This sample shell script demonstrates the operation of augmented and
-XCOMM overridden translations. If the translations are cleared, then both
-XCOMM overriding and augmenting the translations will cause all of the new
-XCOMM translations to take effect.
-XCOMM
+#
+# This sample shell script demonstrates the operation of augmented and
+# overridden translations. If the translations are cleared, then both
+# overriding and augmenting the translations will cause all of the new
+# translations to take effect.
+#
Enter()
{
@@ -53,7 +53,7 @@ Uninstall()
}
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL transTest1 TransTest1 "$0" "$@"
XtSetValues $TOPLEVEL allowShellResize:True
diff --git a/cde/programs/dtksh/examples/WorkProcTest1.src b/cde/programs/dtksh/examples/WorkProcTest1.src
index f81267a9..bcf36153 100755
--- a/cde/programs/dtksh/examples/WorkProcTest1.src
+++ b/cde/programs/dtksh/examples/WorkProcTest1.src
@@ -1,23 +1,23 @@
-XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: WorkProcTest1.src /main/3 1996/04/23 20:19:16 drk $
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: WorkProcTest1.src /main/3 1996/04/23 20:19:16 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 #########################################################################
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
-XCOMM
-XCOMM This sample shell script demonstrates the usage of an Xt workproc
-XCOMM
+#
+# This sample shell script demonstrates the usage of an Xt workproc
+#
integer count=5
-XCOMM The work proc will be called five time, at which point it will return
-XCOMM '1', which will cause it to be automatically unregistered.
+# The work proc will be called five time, at which point it will return
+# '1', which will cause it to be automatically unregistered.
function WorkProc1
{
count=$count-1
@@ -31,7 +31,7 @@ function WorkProc1
}
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL workProcTest1 WorkProcTest1 "$0" "$@"
diff --git a/cde/programs/dtksh/examples/XCursorTest1.src b/cde/programs/dtksh/examples/XCursorTest1.src
index 622d8e37..b7ee122e 100755
--- a/cde/programs/dtksh/examples/XCursorTest1.src
+++ b/cde/programs/dtksh/examples/XCursorTest1.src
@@ -1,34 +1,34 @@
-XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: XCursorTest1.src /main/3 1996/04/23 20:19:21 drk $
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: XCursorTest1.src /main/3 1996/04/23 20:19:21 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 #########################################################################
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
-XCOMM
-XCOMM This sample shell script demonstrates how the 'call' command can be used
-XCOMM to obtain an 'X' cursor, and then how that cursor can be set for a
-XCOMM widget hierarchy.
-XCOMM
+#
+# This sample shell script demonstrates how the 'call' command can be used
+# to obtain an 'X' cursor, and then how that cursor can be set for a
+# widget hierarchy.
+#
-XCOMM Pushbutton Callback: set the cursor for the widget hierarchy
+# Pushbutton Callback: set the cursor for the widget hierarchy
DefineCursor()
{
XDefineCursor $(XtDisplay "-" $TOPLEVEL) $(XtWindow "-" $TOPLEVEL) $CURSOR
}
-XCOMM Pushbutton Callback: unset the cursor for the widget hierarchy
+# Pushbutton Callback: unset the cursor for the widget hierarchy
UndefineCursor()
{
XUndefineCursor $(XtDisplay "-" $TOPLEVEL) $(XtWindow "-" $TOPLEVEL)
}
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL xCursorTest XCursorTest "$0" "$@"
XtSetValues $TOPLEVEL allowShellResize:True
@@ -53,7 +53,7 @@ XtCreateManagedWidget PB2 pb2 XmPushButton $RC \
labelString:"Undefine Cursor"
XtAddCallback $PB2 activateCallback "UndefineCursor"
-XCOMM Call the X function for getting a cursor
+# Call the X function for getting a cursor
call XCreateFontCursor $(XtDisplay "-" $TOPLEVEL) 10
CURSOR=$RET
echo "Cursor = "$CURSOR
diff --git a/cde/programs/dtksh/examples/XdrawTest.src b/cde/programs/dtksh/examples/XdrawTest.src
index b40c98e6..20e8b69f 100755
--- a/cde/programs/dtksh/examples/XdrawTest.src
+++ b/cde/programs/dtksh/examples/XdrawTest.src
@@ -1,19 +1,19 @@
-XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: XdrawTest.src /main/3 1996/04/23 20:19:28 drk $
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: XdrawTest.src /main/3 1996/04/23 20:19:28 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 #########################################################################
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
-XCOMM
-XCOMM This sample shell script demonstrates the calling sequence for most of
-XCOMM the X drawing commands.
-XCOMM
+#
+# This sample shell script demonstrates the calling sequence for most of
+# the X drawing commands.
+#
ExposeCallback()
{
@@ -80,7 +80,7 @@ ClearWindow()
}
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL drawingArea DrawingArea "$0" "$@"
diff --git a/cde/programs/dtksh/examples/crMovesText1.src b/cde/programs/dtksh/examples/crMovesText1.src
index 0da70784..191f3b8e 100644
--- a/cde/programs/dtksh/examples/crMovesText1.src
+++ b/cde/programs/dtksh/examples/crMovesText1.src
@@ -1,28 +1,28 @@
-XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
-XCOMM $XConsortium: crMovesText1.src /main/3 1996/04/23 20:19:33 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 advanced shell script demonstrates the code necessary for forcing
-XCOMM the Return key to move the focus to the next text field in a dialog,
-XCOMM instead of causing the default pushbutton to be activated. When the
-XCOMM focus has moved to the last text field, then the Return key will activate
-XCOMM the default pushbutton.
-XCOMM
-
-XCOMM This function modifies the text field indicated by $1, so that when
-XCOMM the text field receives the focus, it clears the default button; when
-XCOMM it loses the focus, it will reenable the default button. It also adds
-XCOMM some translations for catching the Return key, so that it can force
-XCOMM the focus to the next text widget, which is indicated by $2
+#! CDE_INSTALLATION_TOP/bin/dtksh
+# $XConsortium: crMovesText1.src /main/3 1996/04/23 20:19:33 drk $
+
+# #########################################################################
+# (c) Copyright 1993, 1994 Hewlett-Packard Company
+# (c) Copyright 1993, 1994 International Business Machines Corp.
+# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
+# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
+# Novell, Inc.
+# #########################################################################
+
+
+#
+# This advanced shell script demonstrates the code necessary for forcing
+# the Return key to move the focus to the next text field in a dialog,
+# instead of causing the default pushbutton to be activated. When the
+# focus has moved to the last text field, then the Return key will activate
+# the default pushbutton.
+#
+
+# This function modifies the text field indicated by $1, so that when
+# the text field receives the focus, it clears the default button; when
+# it loses the focus, it will reenable the default button. It also adds
+# some translations for catching the Return key, so that it can force
+# the focus to the next text widget, which is indicated by $2
SetCrControls()
{
XtAddCallback $1 focusCallback "ClearDftButton"
@@ -33,20 +33,20 @@ SetCrControls()
<Key>Return:ksh_eval(\"XmProcessTraversal $2 TRAVERSE_CURRENT\")"
}
-XCOMM FocusOut Callback: reenables the default button
+# FocusOut Callback: reenables the default button
SetDftButton()
{
XtSetValues $FORM defaultButton:$OK
}
-XCOMM FocusIn Callback: disables the default button
+# FocusIn Callback: disables the default button
ClearDftButton()
{
XtSetValues $FORM defaultButton:NULL
}
-XCOMM If the 'Ok' button is activated, but the 'Name' field is empty, then
-XCOMM this function will display an error dialog.
+# If the 'Ok' button is activated, but the 'Name' field is empty, then
+# this function will display an error dialog.
EmptyNameError()
{
XmCreateErrorDialog ERROR_DIALOG $TOPLEVEL noName \
@@ -61,14 +61,14 @@ EmptyNameError()
XtManageChildren $ERROR_DIALOG
}
-XCOMM Pushbutton Callback: attached to the 'Cancel' pushbutton
+# Pushbutton Callback: attached to the 'Cancel' pushbutton
QuitCB()
{
exit 0
}
-XCOMM Pushbutton Callback: attached to the default pushbutton. It extracts the
-XCOMM fields within the dialog, and does some validation.
+# Pushbutton Callback: attached to the default pushbutton. It extracts the
+# fields within the dialog, and does some validation.
CheckActionValues()
{
XtGetValues $LARGEICON value:LARGEICON_VALUE
@@ -94,7 +94,7 @@ CheckActionValues()
fi
}
-XCOMM ###################### Create the Main UI ###############################
+# ###################### Create the Main UI ###############################
XtInitialize TOPLEVEL createAction CreateAction "$0" "$@"
XtCreateManagedWidget FORM form XmForm $TOPLEVEL
@@ -317,7 +317,7 @@ XtSetValues $FORM \
navigationType:EXCLUSIVE_TAB_GROUP \
initialFocus:$NAME
-XCOMM Set up proper behavior for the Return key
+# Set up proper behavior for the Return key
SetCrControls $NAME $COMMANDLINE
SetCrControls $COMMANDLINE $PROMPT
SetCrControls $PROMPT $LARGEICON
--
2.17.1
_______________________________________________
cdesktopenv-devel mailing list
cdesktopenv-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/cdesktopenv-devel
