Initial import of the CDE 2.1.30 sources from the Open Group.
This commit is contained in:
52
cde/examples/motif/clipboard/Makefile.hp
Normal file
52
cde/examples/motif/clipboard/Makefile.hp
Normal file
@@ -0,0 +1,52 @@
|
||||
# $XConsortium: Makefile.hp /main/2 1996/05/13 11:55:06 drk $
|
||||
##########################################################################
|
||||
#
|
||||
# Makefile for Motif clipboard examples (HP)
|
||||
#
|
||||
# (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 Novell, Inc.
|
||||
#
|
||||
##########################################################################
|
||||
|
||||
CC = cc
|
||||
RM = rm -f
|
||||
UIL = /usr/dt/bin/uil
|
||||
|
||||
PROGRAM = cutpaste
|
||||
SOURCES = cutpaste.c
|
||||
OBJECTS = cutpaste.o
|
||||
UID = cutpaste.uid
|
||||
UILSOURCE = cutpaste.uil
|
||||
|
||||
DEFINES =
|
||||
CDEBUGFLAGS = -O
|
||||
CFLAGS = -Aa -z $(DEFINES) $(CDEBUGFLAGS)
|
||||
|
||||
DTINCLUDE = -I/usr/dt/include
|
||||
X11INCLUDE = -I/usr/include/X11R5
|
||||
|
||||
INCLUDES = $(DTINCLUDE) $(X11INCLUDE)
|
||||
|
||||
DTLIBS = -L/usr/dt/lib -lMrm -lXm
|
||||
X11LIBS = -L/usr/lib/X11R5 -lXt -lX11
|
||||
SYSLIBS =
|
||||
|
||||
LIBRARIES = $(DTLIBS) $(X11LIBS) $(SYSLIBS)
|
||||
LDFLAGS =
|
||||
|
||||
.c.o:
|
||||
${CC} -c $(CFLAGS) $(INCLUDES) $<
|
||||
|
||||
all:: $(PROGRAM) $(UID)
|
||||
|
||||
$(PROGRAM):: $(OBJECTS)
|
||||
$(CC) -o $(PROGRAM) $(LDFLAGS) $(OBJECTS) $(LIBRARIES)
|
||||
|
||||
$(UID):: $(UILSOURCE)
|
||||
$(UIL) -o $(UID) $(UILSOURCE)
|
||||
|
||||
clean::
|
||||
$(RM) $(PROGRAM) $(OBJECTS) $(UID)
|
||||
|
||||
51
cde/examples/motif/clipboard/Makefile.ibm
Normal file
51
cde/examples/motif/clipboard/Makefile.ibm
Normal file
@@ -0,0 +1,51 @@
|
||||
# $XConsortium: Makefile.ibm /main/2 1996/05/13 11:55:26 drk $
|
||||
##########################################################################
|
||||
#
|
||||
# Makefile for Motif clipboard examples (IBM)
|
||||
#
|
||||
# (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 Novell, Inc.
|
||||
#
|
||||
##########################################################################
|
||||
|
||||
CC = cc
|
||||
RM = rm -f
|
||||
UIL = /usr/dt/bin/uil
|
||||
|
||||
PROGRAM = cutpaste
|
||||
SOURCES = cutpaste.c
|
||||
OBJECTS = cutpaste.o
|
||||
UID = cutpaste.uid
|
||||
UILSOURCE = cutpaste.uil
|
||||
|
||||
DEFINES =
|
||||
CDEBUGFLAGS = -O
|
||||
CFLAGS = $(DEFINES) $(CDEBUGFLAGS)
|
||||
|
||||
DTINCLUDE = -I/usr/dt/include
|
||||
X11INCLUDE = -I/usr/include
|
||||
|
||||
INCLUDES = $(DTINCLUDE) $(X11INCLUDE)
|
||||
|
||||
DTLIBS = -L/usr/dt/lib -lMrm -lXm
|
||||
X11LIBS = -L/usr/lib -lXt -lX11
|
||||
SYSLIBS =
|
||||
|
||||
LIBRARIES = $(DTLIBS) $(X11LIBS) $(SYSLIBS)
|
||||
LDFLAGS =
|
||||
|
||||
.c.o:
|
||||
$(CC) -c $(CFLAGS) $(INCLUDES) $<
|
||||
|
||||
all:: $(PROGRAM) $(UID)
|
||||
|
||||
$(PROGRAM):: $(OBJECTS)
|
||||
$(CC) -o $(PROGRAM) $(LDFLAGS) $(OBJECTS) $(LIBRARIES)
|
||||
|
||||
$(UID):: $(UILSOURCE)
|
||||
$(UIL) -o $(UID) $(UILSOURCE)
|
||||
|
||||
clean::
|
||||
$(RM) $(PROGRAM) $(OBJECTS) $(UID)
|
||||
52
cde/examples/motif/clipboard/Makefile.novell
Normal file
52
cde/examples/motif/clipboard/Makefile.novell
Normal file
@@ -0,0 +1,52 @@
|
||||
# $XConsortium: Makefile.novell /main/2 1996/05/13 11:55:41 drk $
|
||||
##########################################################################
|
||||
#
|
||||
# Makefile for Motif clipboard examples (Novell)
|
||||
#
|
||||
# (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 Novell, Inc.
|
||||
#
|
||||
##########################################################################
|
||||
|
||||
CC = cc
|
||||
RM = rm -f
|
||||
UIL = /usr/dt/bin/uil
|
||||
|
||||
PROGRAM = cutpaste
|
||||
SOURCES = cutpaste.c
|
||||
OBJECTS = cutpaste.o
|
||||
UID = cutpaste.uid
|
||||
UILSOURCE = cutpaste.uil
|
||||
|
||||
DEFINES =
|
||||
CDEBUGFLAGS = -O
|
||||
CFLAGS = -Xc $(DEFINES) $(CDEBUGFLAGS)
|
||||
|
||||
DTINCLUDE = -I/usr/dt/include
|
||||
X11INCLUDE = -I/usr/X/include
|
||||
|
||||
INCLUDES = $(DTINCLUDE) $(X11INCLUDE)
|
||||
|
||||
DTLIBS = -L/usr/dt/lib -lMrm -lXm
|
||||
X11LIBS = -L/usr/X/lib -lXt -lX11
|
||||
SYSLIBS = -lw -lgen -lnsl -lresolv -lsocket -lXIM
|
||||
|
||||
LIBRARIES = $(DTLIBS) $(X11LIBS) $(SYSLIBS)
|
||||
LDFLAGS =
|
||||
|
||||
.c.o:
|
||||
$(CC) -c $(CFLAGS) $(INCLUDES) $<
|
||||
|
||||
all:: $(PROGRAM) $(UID)
|
||||
|
||||
$(PROGRAM):: $(OBJECTS)
|
||||
$(CC) -o $(PROGRAM) $(LDFLAGS) $(OBJECTS) $(LIBRARIES)
|
||||
|
||||
$(UID):: $(UILSOURCE)
|
||||
$(UIL) -o $(UID) $(UILSOURCE)
|
||||
|
||||
clean::
|
||||
$(RM) $(PROGRAM) $(OBJECTS) $(UID)
|
||||
|
||||
51
cde/examples/motif/clipboard/Makefile.sun
Normal file
51
cde/examples/motif/clipboard/Makefile.sun
Normal file
@@ -0,0 +1,51 @@
|
||||
# $XConsortium: Makefile.sun /main/2 1996/05/13 11:55:58 drk $
|
||||
##########################################################################
|
||||
#
|
||||
# Makefile for Motif clipboard examples (SUN)
|
||||
#
|
||||
# (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 Novell, Inc.
|
||||
#
|
||||
##########################################################################
|
||||
|
||||
CC = cc
|
||||
RM = rm -f
|
||||
UIL = /usr/dt/bin/uil
|
||||
|
||||
PROGRAM = cutpaste
|
||||
SOURCES = cutpaste.c
|
||||
OBJECTS = cutpaste.o
|
||||
UID = cutpaste.uid
|
||||
UILSOURCE = cutpaste.uil
|
||||
|
||||
DEFINES =
|
||||
CDEBUGFLAGS = -O
|
||||
CFLAGS = $(DEFINES) $(CDEBUGFLAGS)
|
||||
|
||||
DTINCLUDE = -I/usr/dt/include
|
||||
X11INCLUDE = -I/usr/openwin/include
|
||||
|
||||
INCLUDES = $(DTINCLUDE) $(X11INCLUDE)
|
||||
|
||||
DTLIBS = -L/usr/dt/lib -lMrm -lXm
|
||||
X11LIBS = -L/usr/openwin/lib -lXt -lX11
|
||||
SYSLIBS = -ldl -lw -lgen
|
||||
|
||||
LIBRARIES = $(DTLIBS) $(X11LIBS) $(SYSLIBS)
|
||||
LDFLAGS = -R/usr/dt/lib:/usr/openwin/lib
|
||||
|
||||
.c.o:
|
||||
$(CC) -c $(CFLAGS) $(INCLUDES) $<
|
||||
|
||||
all:: $(PROGRAM) $(UID)
|
||||
|
||||
$(PROGRAM):: $(OBJECTS)
|
||||
$(CC) -o $(PROGRAM) $(LDFLAGS) $(OBJECTS) $(LIBRARIES)
|
||||
|
||||
$(UID):: $(UILSOURCE)
|
||||
$(UIL) -o $(UID) $(UILSOURCE)
|
||||
|
||||
clean::
|
||||
$(RM) $(PROGRAM) $(OBJECTS) $(UID)
|
||||
53
cde/examples/motif/clipboard/Makefile.uxp
Normal file
53
cde/examples/motif/clipboard/Makefile.uxp
Normal file
@@ -0,0 +1,53 @@
|
||||
# $XConsortium: Makefile.uxp /main/2 1996/05/13 11:56:16 drk $
|
||||
##########################################################################
|
||||
#
|
||||
# Makefile for Motif clipboard examples (UXP)
|
||||
#
|
||||
# (Fujitsu.patch applied)
|
||||
#
|
||||
# (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 Novell, Inc.
|
||||
#
|
||||
##########################################################################
|
||||
|
||||
CC = cc
|
||||
RM = rm -f
|
||||
UIL = /usr/dt/bin/uil
|
||||
|
||||
PROGRAM = cutpaste
|
||||
SOURCES = cutpaste.c
|
||||
OBJECTS = cutpaste.o
|
||||
UID = cutpaste.uid
|
||||
UILSOURCE = cutpaste.uil
|
||||
|
||||
DEFINES =
|
||||
CDEBUGFLAGS = -O
|
||||
CFLAGS = -Xc $(DEFINES) $(CDEBUGFLAGS)
|
||||
|
||||
DTINCLUDE = -I/usr/dt/include
|
||||
|
||||
INCLUDES = $(DTINCLUDE)
|
||||
|
||||
DTLIBS = -L/usr/dt/lib -lMrm -lXm
|
||||
X11LIBS = -lXt -lX11
|
||||
SYSLIBS = -lw -lgen -lnsl -lresolv -lsocket
|
||||
|
||||
LIBRARIES = $(DTLIBS) $(X11LIBS) $(SYSLIBS)
|
||||
LDFLAGS =
|
||||
|
||||
.c.o:
|
||||
$(CC) -c $(CFLAGS) $(INCLUDES) $<
|
||||
|
||||
all:: $(PROGRAM) $(UID)
|
||||
|
||||
$(PROGRAM):: $(OBJECTS)
|
||||
$(CC) -o $(PROGRAM) $(LDFLAGS) $(OBJECTS) $(LIBRARIES)
|
||||
|
||||
$(UID):: $(UILSOURCE)
|
||||
$(UIL) -o $(UID) $(UILSOURCE)
|
||||
|
||||
clean::
|
||||
$(RM) $(PROGRAM) $(OBJECTS) $(UID)
|
||||
|
||||
9
cde/examples/motif/clipboard/README
Normal file
9
cde/examples/motif/clipboard/README
Normal file
@@ -0,0 +1,9 @@
|
||||
/* $XConsortium: README /main/2 1996/07/15 14:03:37 drk $ */
|
||||
|
||||
This directory contains demonstrations of the Motif Clipboard.
|
||||
|
||||
cutpaste - Examples of cutting and pasting application defined
|
||||
data formats using the XmClipboard API.
|
||||
|
||||
Run two cutpaste clients, and transfer graph values
|
||||
using the pulldown and popup menus.
|
||||
306
cde/examples/motif/clipboard/cutpaste.c
Normal file
306
cde/examples/motif/clipboard/cutpaste.c
Normal file
@@ -0,0 +1,306 @@
|
||||
/* $XConsortium: cutpaste.c /main/4 1995/10/27 10:41:39 rswiston $ */
|
||||
/*
|
||||
* (c) Copyright 1989, 1990, 1991, 1992 OPEN SOFTWARE FOUNDATION, INC.
|
||||
* ALL RIGHTS RESERVED
|
||||
*/
|
||||
/*
|
||||
* Motif Release 1.2
|
||||
*/
|
||||
|
||||
/******************************************************************************
|
||||
* cutpaste.c
|
||||
*
|
||||
*
|
||||
*****************************************************************************/
|
||||
|
||||
#include <stdio.h>
|
||||
#include <Xm/Xm.h>
|
||||
#include <Xm/CutPaste.h>
|
||||
#include <Mrm/MrmPublic.h>
|
||||
|
||||
|
||||
static Boolean CopyToClipboard(
|
||||
Time time);
|
||||
static Boolean PasteClipboard(
|
||||
Time time );
|
||||
static void PopupHandler(
|
||||
Widget w,
|
||||
Widget pw,
|
||||
XEvent *event,
|
||||
Boolean *ctd );
|
||||
static void ManageCb(
|
||||
Widget w,
|
||||
String id,
|
||||
XtPointer cb );
|
||||
static void InitPopupCb(
|
||||
Widget w,
|
||||
String id,
|
||||
XtPointer cb );
|
||||
static void CutCb(
|
||||
Widget w,
|
||||
XtPointer cd,
|
||||
XmPushButtonCallbackStruct *cb );
|
||||
static void CopyCb(
|
||||
Widget w,
|
||||
XtPointer cd,
|
||||
XmPushButtonCallbackStruct *cb );
|
||||
static void PasteCb(
|
||||
Widget w,
|
||||
XtPointer cd,
|
||||
XmPushButtonCallbackStruct *cb );
|
||||
static void ExitCb(
|
||||
Widget w,
|
||||
XtPointer cd,
|
||||
XtPointer cb );
|
||||
|
||||
|
||||
static MrmHierarchy mrm_id;
|
||||
static char *mrm_vec[]={"cutpaste.uid"};
|
||||
static MrmCode mrm_class;
|
||||
static MRMRegisterArg mrm_names[] = {
|
||||
{"InitPopupCb", (XtPointer)InitPopupCb },
|
||||
{"ManageCb", (XtPointer)ManageCb },
|
||||
{"CutCb", (XtPointer)CutCb },
|
||||
{"CopyCb", (XtPointer)CopyCb },
|
||||
{"PasteCb", (XtPointer)PasteCb },
|
||||
{"ExitCb", (XtPointer)ExitCb }
|
||||
};
|
||||
|
||||
#define GraphFormat "MY_GRAPH_DATA"
|
||||
|
||||
#define MIN(x,y) ((x) > (y) ? (y) : (x))
|
||||
|
||||
static XtAppContext appContext;
|
||||
static Widget shell;
|
||||
static Widget *bars;
|
||||
static Cardinal nbars;
|
||||
|
||||
int
|
||||
main(
|
||||
int argc,
|
||||
char *argv[] )
|
||||
{
|
||||
Widget app_main;
|
||||
Display *display;
|
||||
Arg args[2];
|
||||
Widget *children;
|
||||
|
||||
XtToolkitInitialize();
|
||||
MrmInitialize ();
|
||||
appContext = XtCreateApplicationContext();
|
||||
display = XtOpenDisplay(appContext, NULL, argv[0], "Cutpaste",
|
||||
NULL, 0, &argc, argv);
|
||||
if (display == NULL) {
|
||||
fprintf(stderr, "%s: Can't open display\n", argv[0]);
|
||||
exit(1);
|
||||
}
|
||||
shell = XtAppCreateShell(argv[0], NULL, applicationShellWidgetClass,
|
||||
display, NULL, 0);
|
||||
if (MrmOpenHierarchy (1, mrm_vec, NULL, &mrm_id) != MrmSUCCESS) exit(0);
|
||||
MrmRegisterNames(mrm_names, XtNumber(mrm_names));
|
||||
MrmFetchWidget (mrm_id, "appMain", shell, &app_main, &mrm_class);
|
||||
XtManageChild(app_main);
|
||||
|
||||
/* define graph data format */
|
||||
|
||||
while (XmClipboardRegisterFormat (display, GraphFormat, 32) ==
|
||||
XmClipboardLocked) { }
|
||||
|
||||
XtSetArg (args[0], XmNchildren, &children);
|
||||
XtSetArg (args[1], XmNnumChildren, &nbars);
|
||||
XtGetValues (XtNameToWidget (shell, "*graphForm"), args, 2);
|
||||
bars = (Widget *) XtMalloc (nbars * sizeof(Widget));
|
||||
memcpy (bars, children, nbars * sizeof(Widget));
|
||||
|
||||
XtRealizeWidget(shell);
|
||||
|
||||
XtAppMainLoop(appContext);
|
||||
}
|
||||
|
||||
static void
|
||||
ManageCb(
|
||||
Widget w,
|
||||
String id,
|
||||
XtPointer cb )
|
||||
|
||||
{
|
||||
XtManageChild (XtNameToWidget (shell, id));
|
||||
}
|
||||
|
||||
static void
|
||||
ExitCb(
|
||||
Widget w,
|
||||
XtPointer cd,
|
||||
XtPointer cb )
|
||||
{
|
||||
exit(0);
|
||||
}
|
||||
|
||||
/*****************************************************************
|
||||
*
|
||||
* PopupMenu support
|
||||
*
|
||||
*****************************************************************/
|
||||
|
||||
static void
|
||||
InitPopupCb(
|
||||
Widget w,
|
||||
String id,
|
||||
XtPointer cb )
|
||||
{
|
||||
Widget popupWindow = XtNameToWidget (shell, id);
|
||||
|
||||
XtAddEventHandler (popupWindow, ButtonPressMask, False,
|
||||
(XtEventHandler)PopupHandler, (XtPointer) w);
|
||||
}
|
||||
|
||||
static void
|
||||
PopupHandler (
|
||||
Widget w,
|
||||
Widget pw,
|
||||
XEvent *event,
|
||||
Boolean *ctd )
|
||||
{
|
||||
if (((XButtonEvent *)event)->button != Button3) return;
|
||||
|
||||
XmMenuPosition((Widget) pw, (XButtonEvent *)event);
|
||||
XtManageChild ((Widget) pw);
|
||||
}
|
||||
|
||||
/*****************************************************************
|
||||
*
|
||||
* Clipboard support
|
||||
*
|
||||
*****************************************************************/
|
||||
|
||||
static void
|
||||
CutCb(
|
||||
Widget w,
|
||||
XtPointer cd,
|
||||
XmPushButtonCallbackStruct *cb )
|
||||
{
|
||||
XButtonEvent *be = (XButtonEvent *)cb->event;
|
||||
Arg args[1];
|
||||
int i;
|
||||
|
||||
if (CopyToClipboard(be->time) == True) {
|
||||
|
||||
/* clear graph data */
|
||||
|
||||
XtSetArg (args[0], XmNvalue, 0);
|
||||
for (i=0; i < nbars; i++)
|
||||
XtSetValues (bars[i], args, 1);
|
||||
}
|
||||
else {
|
||||
XBell (XtDisplay(w), 0);
|
||||
}
|
||||
}
|
||||
|
||||
static void
|
||||
CopyCb(
|
||||
Widget w,
|
||||
XtPointer cd,
|
||||
XmPushButtonCallbackStruct *cb )
|
||||
{
|
||||
XButtonEvent *be = (XButtonEvent *)cb->event;
|
||||
|
||||
if (CopyToClipboard(be->time) != True) {
|
||||
XBell (XtDisplay(w), 0);
|
||||
}
|
||||
}
|
||||
|
||||
static void
|
||||
PasteCb(
|
||||
Widget w,
|
||||
XtPointer cd,
|
||||
XmPushButtonCallbackStruct *cb )
|
||||
{
|
||||
XButtonEvent *be = (XButtonEvent *)cb->event;
|
||||
|
||||
if (PasteClipboard(be->time) != True) {
|
||||
XBell (XtDisplay(w), 0);
|
||||
}
|
||||
}
|
||||
|
||||
static Boolean
|
||||
CopyToClipboard(
|
||||
Time time )
|
||||
{
|
||||
Display *dpy = XtDisplay (shell);
|
||||
Window window = XtWindow (shell);
|
||||
long itemId = 0;
|
||||
XmString clipLabel;
|
||||
long *graphData;
|
||||
int value;
|
||||
int i;
|
||||
Arg args[1];
|
||||
|
||||
if (XmClipboardLock (dpy, window) == XmClipboardLocked)
|
||||
return (False);
|
||||
|
||||
clipLabel = XmStringCreateLtoR ("cutpaste", XmFONTLIST_DEFAULT_TAG);
|
||||
|
||||
XmClipboardStartCopy ( dpy, window, clipLabel, time, NULL, NULL, &itemId);
|
||||
|
||||
/* copy graph data */
|
||||
|
||||
graphData = (long *)XtMalloc (nbars * sizeof (long));
|
||||
XtSetArg (args[0], XmNvalue, &value);
|
||||
for (i=0; i < nbars; i++) {
|
||||
XtGetValues (bars[i], args, 1);
|
||||
graphData[i] = (long)value;
|
||||
}
|
||||
|
||||
XmClipboardCopy (dpy, window, itemId, GraphFormat, (XtPointer)graphData,
|
||||
(nbars * sizeof(long)), 0, NULL);
|
||||
|
||||
XmClipboardEndCopy (dpy, window, itemId);
|
||||
|
||||
XmClipboardUnlock (dpy, window, False);
|
||||
|
||||
XtFree ((char *)clipLabel);
|
||||
XtFree ((char *)graphData);
|
||||
|
||||
return (True);
|
||||
}
|
||||
|
||||
static Boolean
|
||||
PasteClipboard(
|
||||
Time time )
|
||||
{
|
||||
Display *dpy = XtDisplay (shell);
|
||||
Window window = XtWindow (shell);
|
||||
unsigned long length = 0;
|
||||
long *graphData;
|
||||
int i;
|
||||
int setBars;
|
||||
Arg args[1];
|
||||
|
||||
if (XmClipboardStartRetrieve (dpy, window, time) == XmClipboardLocked)
|
||||
return (False);
|
||||
|
||||
XmClipboardInquireLength(dpy, window, GraphFormat, &length);
|
||||
|
||||
if (length == 0) {
|
||||
XmClipboardEndRetrieve (dpy, window);
|
||||
return (False);
|
||||
}
|
||||
|
||||
graphData = (long *)XtMalloc (length * sizeof (long));
|
||||
|
||||
XmClipboardRetrieve(dpy, window, GraphFormat, graphData, length,
|
||||
NULL, NULL);
|
||||
|
||||
XmClipboardEndRetrieve(dpy, window);
|
||||
|
||||
setBars = MIN (nbars, length);
|
||||
for (i = 0; i < setBars; i++) {
|
||||
XtSetArg (args[0], XmNvalue, graphData[i]);
|
||||
XtSetValues (bars[i], args, 1);
|
||||
}
|
||||
|
||||
XtFree ((char *)graphData);
|
||||
|
||||
return (True);
|
||||
}
|
||||
|
||||
293
cde/examples/motif/clipboard/cutpaste.uil
Normal file
293
cde/examples/motif/clipboard/cutpaste.uil
Normal file
@@ -0,0 +1,293 @@
|
||||
! (c) Copyright 1989, 1990, 1991, 1992, 1993 OPEN SOFTWARE FOUNDATION, INC.
|
||||
! ALL RIGHTS RESERVED
|
||||
!
|
||||
! Motif Release 1.2.2
|
||||
|
||||
|
||||
module cutpaste
|
||||
version = 'v1.2'
|
||||
names = case_sensitive
|
||||
character_set=iso_latin1
|
||||
objects = {
|
||||
XmLabel = widget;
|
||||
XmPushButton = widget;
|
||||
XmToggleButton = widget;
|
||||
XmCascadeButton = widget;
|
||||
XmSeparator = widget;
|
||||
}
|
||||
|
||||
include file ("cutpaste_local.uil");
|
||||
|
||||
procedure
|
||||
InitPopupCb(string);
|
||||
ManageCb(string);
|
||||
CutCb();
|
||||
CopyCb();
|
||||
PasteCb();
|
||||
ExitCb();
|
||||
|
||||
list scrollArgs : arguments {
|
||||
XmNleftAttachment = XmATTACH_POSITION;
|
||||
XmNrightAttachment = XmATTACH_POSITION;
|
||||
XmNtopAttachment = XmATTACH_FORM;
|
||||
XmNbottomAttachment = XmATTACH_FORM;
|
||||
XmNshowArrows = false;
|
||||
XmNsliderSize = 5;
|
||||
XmNtraversalOn = true;
|
||||
XmNhighlightThickness = 1;
|
||||
XmNprocessingDirection = XmMAX_ON_TOP;
|
||||
};
|
||||
|
||||
|
||||
!
|
||||
! Main window
|
||||
!
|
||||
object appMain : XmMainWindow {
|
||||
arguments {
|
||||
XmNmenuBar = XmMenuBar menuBar;
|
||||
};
|
||||
controls {
|
||||
XmMenuBar menuBar;
|
||||
XmFrame workArea;
|
||||
unmanaged XmInformationDialog helpDialog;
|
||||
};
|
||||
};
|
||||
|
||||
|
||||
|
||||
|
||||
!
|
||||
! Menu bar and pulldown menus
|
||||
!
|
||||
|
||||
object menuBar : XmMenuBar {
|
||||
arguments {
|
||||
XmNmenuHelpWidget = XmCascadeButton helpCascade;
|
||||
};
|
||||
controls {
|
||||
XmCascadeButton fileCascade;
|
||||
XmCascadeButton editCascade;
|
||||
XmCascadeButton helpCascade;
|
||||
};
|
||||
};
|
||||
|
||||
object fileCascade : XmCascadeButton {
|
||||
arguments {
|
||||
XmNlabelString = fileCascadeText;
|
||||
XmNmnemonic = keysym(fileCascadeMnem);
|
||||
};
|
||||
controls { XmPulldownMenu {
|
||||
! arguments { XmNtearOffModel = XmTEAR_OFF_ENABLED; };
|
||||
controls {
|
||||
XmPushButton exitButton;
|
||||
}; };
|
||||
};
|
||||
};
|
||||
|
||||
object exitButton : XmPushButton {
|
||||
arguments {
|
||||
XmNlabelString = exitButtonText;
|
||||
XmNmnemonic = keysym(exitButtonMnem);
|
||||
};
|
||||
callbacks { XmNactivateCallback = procedure ExitCb(); };
|
||||
};
|
||||
object editCascade : XmCascadeButton {
|
||||
arguments {
|
||||
XmNlabelString = editCascadeText;
|
||||
XmNmnemonic = keysym(editCascadeMnem);
|
||||
};
|
||||
controls { XmPulldownMenu {
|
||||
arguments { XmNtearOffModel = XmTEAR_OFF_ENABLED; };
|
||||
controls {
|
||||
XmPushButton cutButton;
|
||||
XmPushButton copyButton;
|
||||
XmPushButton pasteButton;
|
||||
}; };
|
||||
};
|
||||
};
|
||||
|
||||
object helpCascade : XmCascadeButton {
|
||||
arguments {
|
||||
XmNlabelString = helpCascadeText;
|
||||
XmNmnemonic = keysym(helpCascadeMnem);
|
||||
};
|
||||
controls { XmPulldownMenu {
|
||||
arguments { XmNtearOffModel = XmTEAR_OFF_ENABLED; };
|
||||
controls {
|
||||
XmPushButton helpButton;
|
||||
}; };
|
||||
};
|
||||
};
|
||||
object helpButton : XmPushButton {
|
||||
arguments {
|
||||
XmNlabelString = helpButtonText;
|
||||
XmNmnemonic = keysym(helpButtonMnem);
|
||||
};
|
||||
callbacks { XmNactivateCallback = procedure ManageCb("*helpDialog"); };
|
||||
};
|
||||
|
||||
|
||||
|
||||
|
||||
!
|
||||
! Popup menu
|
||||
!
|
||||
|
||||
object popupMenu : XmPopupMenu {
|
||||
arguments { XmNtearOffModel = XmTEAR_OFF_ENABLED; };
|
||||
controls {
|
||||
XmLabel { arguments { XmNlabelString = popupTitleText; }; };
|
||||
XmSeparator { arguments { XmNseparatorType = XmDOUBLE_LINE; }; };
|
||||
XmPushButton cutButton;
|
||||
XmPushButton copyButton;
|
||||
XmPushButton pasteButton;
|
||||
};
|
||||
callbacks {
|
||||
MrmNcreateCallback = procedure InitPopupCb("*displayArea");
|
||||
};
|
||||
};
|
||||
|
||||
object cutButton : XmPushButton {
|
||||
arguments {
|
||||
XmNlabelString = menuCutText;
|
||||
XmNmnemonic = keysym(menuCutMnem);
|
||||
};
|
||||
callbacks { XmNactivateCallback = procedure CutCb(); };
|
||||
};
|
||||
object copyButton : XmPushButton {
|
||||
arguments {
|
||||
XmNlabelString = menuCopyText;
|
||||
XmNmnemonic = keysym(menuCopyMnem);
|
||||
};
|
||||
callbacks { XmNactivateCallback = procedure CopyCb(); };
|
||||
};
|
||||
object pasteButton : XmPushButton {
|
||||
arguments {
|
||||
XmNlabelString = menuPasteText;
|
||||
XmNmnemonic = keysym(menuPasteMnem);
|
||||
};
|
||||
callbacks { XmNactivateCallback = procedure PasteCb(); };
|
||||
};
|
||||
|
||||
|
||||
!
|
||||
! Work area
|
||||
!
|
||||
|
||||
object workArea : XmFrame {
|
||||
arguments {
|
||||
XmNmarginWidth = 20;
|
||||
XmNmarginHeight = 20;
|
||||
};
|
||||
controls { XmFrame displayArea; };
|
||||
};
|
||||
|
||||
object displayArea : XmFrame {
|
||||
arguments {
|
||||
XmNmarginWidth = 10;
|
||||
XmNmarginHeight = 10;
|
||||
XmNshadowType = XmSHADOW_OUT;
|
||||
XmNshadowThickness = 1;
|
||||
};
|
||||
controls {
|
||||
XmLabel graphLabel;
|
||||
XmForm graphForm;
|
||||
unmanaged XmPopupMenu popupMenu;
|
||||
};
|
||||
};
|
||||
|
||||
object graphLabel : XmLabel {
|
||||
arguments {
|
||||
XmNchildType = XmFRAME_TITLE_CHILD;
|
||||
XmNchildHorizontalAlignment = XmALIGNMENT_END;
|
||||
XmNlabelString = graphLabelText;
|
||||
};
|
||||
};
|
||||
|
||||
object graphForm : XmForm {
|
||||
arguments {
|
||||
XmNfractionBase = 15;
|
||||
};
|
||||
controls {
|
||||
XmScrollBar { arguments {
|
||||
arguments scrollArgs;
|
||||
XmNleftPosition = 0; XmNrightPosition = 1;
|
||||
}; };
|
||||
XmScrollBar { arguments {
|
||||
arguments scrollArgs;
|
||||
XmNleftPosition = 1; XmNrightPosition = 2;
|
||||
}; };
|
||||
XmScrollBar { arguments {
|
||||
arguments scrollArgs;
|
||||
XmNleftPosition = 2; XmNrightPosition = 3;
|
||||
}; };
|
||||
XmScrollBar { arguments {
|
||||
arguments scrollArgs;
|
||||
XmNleftPosition = 3; XmNrightPosition = 4;
|
||||
}; };
|
||||
XmScrollBar { arguments {
|
||||
arguments scrollArgs;
|
||||
XmNleftPosition = 4; XmNrightPosition = 5;
|
||||
}; };
|
||||
XmScrollBar { arguments {
|
||||
arguments scrollArgs;
|
||||
XmNleftPosition = 5; XmNrightPosition = 6;
|
||||
}; };
|
||||
XmScrollBar { arguments {
|
||||
arguments scrollArgs;
|
||||
XmNleftPosition = 6; XmNrightPosition = 7;
|
||||
}; };
|
||||
XmScrollBar { arguments {
|
||||
arguments scrollArgs;
|
||||
XmNleftPosition = 7; XmNrightPosition = 8;
|
||||
}; };
|
||||
XmScrollBar { arguments {
|
||||
arguments scrollArgs;
|
||||
XmNleftPosition = 8; XmNrightPosition = 9;
|
||||
}; };
|
||||
XmScrollBar { arguments {
|
||||
arguments scrollArgs;
|
||||
XmNleftPosition = 9; XmNrightPosition = 10;
|
||||
}; };
|
||||
XmScrollBar { arguments {
|
||||
arguments scrollArgs;
|
||||
XmNleftPosition = 10; XmNrightPosition = 11;
|
||||
}; };
|
||||
XmScrollBar { arguments {
|
||||
arguments scrollArgs;
|
||||
XmNleftPosition = 11; XmNrightPosition = 12;
|
||||
}; };
|
||||
XmScrollBar { arguments {
|
||||
arguments scrollArgs;
|
||||
XmNleftPosition = 12; XmNrightPosition = 13;
|
||||
}; };
|
||||
XmScrollBar { arguments {
|
||||
arguments scrollArgs;
|
||||
XmNleftPosition = 13; XmNrightPosition = 14;
|
||||
}; };
|
||||
XmScrollBar { arguments {
|
||||
arguments scrollArgs;
|
||||
XmNleftPosition = 14; XmNrightPosition = 15;
|
||||
}; };
|
||||
};
|
||||
};
|
||||
|
||||
!
|
||||
! Help dialog
|
||||
!
|
||||
|
||||
object helpDialog : XmInformationDialog {
|
||||
arguments {
|
||||
XmNdialogTitle = helpTitleText;
|
||||
XmNcancelLabelString = helpCancelText;
|
||||
XmNmessageString = helpMessageText;
|
||||
};
|
||||
controls {
|
||||
Xm_OK unmanaged { };
|
||||
Xm_Help unmanaged { };
|
||||
};
|
||||
};
|
||||
|
||||
|
||||
|
||||
end module;
|
||||
62
cde/examples/motif/clipboard/cutpaste_local.uil
Normal file
62
cde/examples/motif/clipboard/cutpaste_local.uil
Normal file
@@ -0,0 +1,62 @@
|
||||
! (c) Copyright 1989, 1990, 1991, 1992 OPEN SOFTWARE FOUNDATION, INC.
|
||||
! ALL RIGHTS RESERVED
|
||||
!
|
||||
! Motif Release 1.2
|
||||
|
||||
! Main Window
|
||||
|
||||
! Menu bar
|
||||
|
||||
value
|
||||
|
||||
fileCascadeText : "File";
|
||||
fileCascadeMnem : "F";
|
||||
exitButtonText : "Exit";
|
||||
exitButtonMnem : "E";
|
||||
|
||||
editCascadeText : "Edit";
|
||||
editCascadeMnem : "E";
|
||||
|
||||
menuCutText : "Cut";
|
||||
menuCutMnem : "t";
|
||||
menuCopyText : "Copy";
|
||||
menuCopyMnem : "C";
|
||||
menuPasteText : "Paste";
|
||||
menuPasteMnem : "P";
|
||||
|
||||
helpCascadeText : "Help";
|
||||
helpCascadeMnem : "H";
|
||||
helpButtonText : "Overiew";
|
||||
helpButtonMnem : "O";
|
||||
|
||||
! work area
|
||||
|
||||
graphLabelText : "Distribution";
|
||||
|
||||
! Help dialog
|
||||
|
||||
helpTitleText : "cutpaste";
|
||||
helpCancelText : "Dismiss";
|
||||
helpMessageText :
|
||||
compound_string ("cutpaste", separate=true) &
|
||||
compound_string ("", separate=true) &
|
||||
compound_string ("Set graph slider values.", separate=true) &
|
||||
compound_string ("", separate=true) &
|
||||
compound_string ("Copy graph values between ") &
|
||||
compound_string ("cutpaste clients", separate=true) &
|
||||
compound_string ("using popup and pulldown menu commands.") &
|
||||
compound_string ("", separate=true) &
|
||||
compound_string ("");
|
||||
|
||||
! Popup menu
|
||||
|
||||
popupTitleText : "Edit";
|
||||
popupCutText : "Cut";
|
||||
popupCutMnem : "t";
|
||||
popupCopyText : "Copy";
|
||||
popupCopyMnem : "C";
|
||||
popupPasteText : "Paste";
|
||||
popupPasteMnem : "P";
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user