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
|
/* Copyright ENPC */
#ifdef WIN32
#include "wmen_scilab.h"
#else
#include "men_scilab.h"
#endif
SciMess ScilabMessage;
/*************************************************
* Test function
**********************************************************/
int TestMessage(n)
int n;
{
int rep;
static char* description = "Message \ntest";
static char* buttonname[] = {
"Label1",
"Label2",
NULL
};
ScilabMessage.nb= n;
ScilabMessage.pButName = buttonname;
ScilabMessage.string = description;
rep= ExposeMessageWindow();
sciprint("reponse[%d] \n",rep);
return(rep);
}
/*************************************************
* Scilab Interface
**********************************************************/
void C2F(xmsg)(basstrings,ptrstrings,nstring,btn,ptrbtn,nb,nrep,ierr)
int *basstrings,*nstring,*ptrstrings,*btn,*nb,*ptrbtn,*nrep,*ierr;
{
int i,rep;;
*ierr=0;
ScilabMStr2C(basstrings,nstring,ptrstrings,&(ScilabMessage.string),ierr);
if ( *ierr == 1) return;
ScilabMStr2CM(btn,nb,ptrbtn,&(ScilabMessage.pButName),ierr);
if ( *ierr == 1) return;
ScilabMessage.nb = *nb;
rep = ExposeMessageWindow();
FREE(ScilabMessage.string);
for (i=0 ; i < *nb ; i++ )FREE(ScilabMessage.pButName[i]);
FREE(ScilabMessage.pButName);
*nrep= rep;
}
/*************************************************
* Scilab Interface for modeless message
**********************************************************/
void C2F(xmsg1)(basstrings,ptrstrings,nstring,btn,ptrbtn,nb,ierr)
int *basstrings,*nstring,*ptrstrings,*btn,*nb,*ptrbtn,*ierr;
{
int i,rep;;
*ierr=0;
ScilabMStr2C(basstrings,nstring,ptrstrings,&(ScilabMessage.string),ierr);
if ( *ierr == 1) return;
ScilabMStr2CM(btn,nb,ptrbtn,&(ScilabMessage.pButName),ierr);
if ( *ierr == 1) return;
ScilabMessage.nb = *nb;
ExposeMessageWindow1();
FREE(ScilabMessage.string);
for (i=0 ; i < *nb ; i++ )FREE(ScilabMessage.pButName[i]);
FREE(ScilabMessage.pButName);
}
|
