1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
/* try out Snd as a mere widget in some grander context */
#include "snd.h"
static int snd_running = 0;
Widget form,shell,label,snd;
XtAppContext app;
snd_state *ss;
int n;
Arg args[20];
static void Snd_Callback(Widget w,XtPointer clientData,XtPointer callData)
{
if (!snd_running)
{
n = 0;
XtSetArg(args[n],XmNtopAttachment,XmATTACH_WIDGET); n++;
XtSetArg(args[n],XmNtopWidget,label); n++;
XtSetArg(args[n],XmNbottomAttachment,XmATTACH_FORM); n++;
XtSetArg(args[n],XmNleftAttachment,XmATTACH_FORM); n++;
XtSetArg(args[n],XmNrightAttachment,XmATTACH_FORM); n++;
XtSetArg(args[n],XmNallowResize,TRUE); n++;
snd_as_widget(0,NULL,app,form,args,n);
snd_open_file("~/cl/oboe.snd",get_global_state());
snd_running = 1;
}
}
int main (int argc,char **argv )
{
shell = XtVaAppInitialize (&app,"Snd-as-widget",NULL,0,&argc,argv,NULL,
XmNminWidth,200,
XmNminHeight,40,
XmNallowResize,TRUE,
NULL);
form = XtCreateManagedWidget("form",xmFormWidgetClass,shell,NULL,0);
n = 0;
XtSetArg(args[n],XmNtopAttachment,XmATTACH_FORM); n++;
XtSetArg(args[n],XmNbottomAttachment,XmATTACH_NONE); n++;
XtSetArg(args[n],XmNleftAttachment,XmATTACH_FORM); n++;
XtSetArg(args[n],XmNrightAttachment,XmATTACH_FORM); n++;
label = XtCreateManagedWidget("push for Snd",xmPushButtonWidgetClass,form,args,n);
XtAddCallback(label,XmNactivateCallback,Snd_Callback,NULL);
XtRealizeWidget(shell);
XtAppMainLoop(app);
}
/* here's a sample makefile:
CC = gcc
CFLAGS = -g -DLINUX -DUSR_LIB_OSS=1 -I/usr/X11R6/include -DSND_AS_WIDGET
LIBS = /usr/X11R6/lib/libMrm.a /usr/X11R6/lib/libXm.a /usr/X11R6/lib/libXp.a /usr/X11R6/lib/libXpm.a /usr/X11R6/lib/libXext.a /usr/X11R6/lib/libXt.a /usr/X11R6/lib/libSM.a /usr/X11R6/lib/libICE.a /usr/X11R6/lib/libFS.a /usr/X11R6/lib/libX11.a -lm
include makesnd.files
saw: $(SNDLIB_HEADERS) $(SND_HEADERS) $(SND_X_HEADERS) $(SNDLIB_O_FILES) $(O_FILES) $(X_O_FILES) saw.o
$(CC) $(SNDLIB_O_FILES) $(O_FILES) $(X_O_FILES) saw.o -o saw $(LIBS)
include makesnd.back
*/
/*
if anyone uses this feature, and Snd doesn't do what you want, or you
need more hooks into Snd, send me (bil@ccrma.stanford.edu) a description
of the problem and so on.
if you're including Guile, remember that it needs to be the top-level,
so we'd use something like:
void saw_main(int argc,char **argv )
...
in place of the current "main", and then
int main (int argc,char **argv )
{
gh_enter(argc,argv,saw_main);
return(0);
}
as our new main program. Also, include -lguile in the LIBS statement above,
and (if not using configure), -DHAVE_GUILE in the CFLAGS statement.
*/
|
