#pragma implementation
#include <string.h>
#include <misc.h>
#include <dialog.h>
#include <diajava.h>
#include <tlmplib.h>
#include <tlmpdia.h>
#include <framework.h>
#include "tledit.h"
#include "tledit.m"

#define TLKID_VERSION "1.0"

<mod>
int main (int argc, char *argv[])
{
	<glocal>
	</glocal>
	int ret = <call tlmpprogram>(argc, argv,"tlmpwork");
		<f showerror>
			xconf_error(msg);
		</f>
		<f usage>
			char buf[1000];
			snprintf (buf,sizeof(buf)-1,MSG_U(N_USAGE,"tlkid version %s\n\nUsage: tlkid fichier")
				,TLEDIT_VERSION);
			xconf_notice (buf);
		</f>
		<f main>
			<glocal>
				int argc;
				char **argv;
				PRIVATE_MESSAGE msg;
			</glocal>
			glocal.argc = argc;
			glocal.argv = argv;
			if (argc != 1){
				usage();
			}else{
				<obj FRAMEWORK frame>(MSG_U(T_TLKID,"TLKID 1.0"),glocal.msg);
					<f about>
						xconf_notice (MSG_U(I_ABOUT
							,"tlkid version %s\n"
							 "Experimental TLMP programming game\n"
							 "Written by Jacques Gélinas\n"
							 "jack@solucorp.qc.ca")
							,TLKID_VERSION);
					</f>
					<f helpindex>
					</f>
					<f menubar>
						topmenu (MSG_U(M_FILE,"File"));
						menuentry (2,MSG_U(M_SAVE,"Save"));
						menuentry (2,MSG_U(M_SAVEAS,"Save as"));
						menuentry (99,MSG_U(M_QUIT,"Quit"));
						endmenu();
						topmenu (MSG_U(M_OPTIONS,"Options"));
						menuentry (901,MSG_U(M_PREFER,"Preferences"));
						endmenu();
						helpmenu();
						endmenu();
					</f>
					<f menudo>
						if (id == 99){
							end();
						}
					</f>
					<f taskbar>
					</f>
					<f taskdo>
					</f>
					<f document>
						DIALOG dia;
						SSTRING tmp;
						glocal.mainnode->gettext (tmp);
						dia.newf_textarea (NULL,tmp,60,20);
						int nof = 0;
						while (1){
							dia.edit (MSG_U(T_SOURCEFILE,"Full text"),"",help_nil,nof,0);
						}
					</f>
				</obj>
				frame.newdocument();
				frame.loop();
			}
			return 0;
		</f>
	</call>
	return ret;
}
</mod>