CSC-473---Assignment-2--Particle-System/animTcl.h at master · nslaba/CSC-473---Assignment-2--Particle-System · GitHub

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

#ifndef	_ANIMTCL_H_
#define	_ANIMTCL_H_ 1

//#include <shared/GlobalResourceManager.h>

#ifdef __APPLE__
#include <TCL/tcl.h>
#include <Tk/tk.h>
#else
#include <tcl83/tcl.h>
#include <tcl83/tk.h>
#endif

#include <shared/defs.h>

#include <stdarg.h>

#ifdef __APPLE__
#define myCONST_SPEC const
#else
#define myCONST_SPEC
#endif

typedef	struct {
		char name[STRLEN];
		int type;
		char *ptr;
} SETVAR;


class animTcl {
	private:

	static Tcl_Interp * m_interpreter;
    static int UsingTk;
	static SETVAR setlist[];

	static void appendMessage(Tcl_Interp *interp, char *message);

	public:

	// Utility routines
	static void checkEvents(void);
    static void ExecuteCommand(char *command) ;
	static void OutputMessage(char *format, ...);
	static void OutputResult(char *format, ...);
	static void OutputListElement(char *format, ...);


	// Initialization routines
	static void InitTclTk(int argc,	char **argv);
	static int Tcl_AppInit(Tcl_Interp *interp);
	static void InitUserTclCommands(Tcl_Interp *interp);
	static void LinkUserVariables(Tcl_Interp *interp);

	static int Command(ClientData clientData, Tcl_Interp *interp, int argc,	myCONST_SPEC char **argv);
	static int quit(ClientData clientData, Tcl_Interp *interp, int argc, myCONST_SPEC char **argv);
	static int startGlut(ClientData clientData, Tcl_Interp *interp, int argc, myCONST_SPEC char **argv);

};
#endif