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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
/*-----------------------------------------------------------------------------------*/
/* Allan CORNET INRIA 2005 */
/* UImenu interface */
/*-----------------------------------------------------------------------------------*/
#include <stdio.h>
#include <string.h>
/*-----------------------------------------------------------------------------------*/
#ifdef WIN32
#include "../os_specific/win_mem_alloc.h" /* MALLOC */
#else
#include "../os_specific/sci_mem_alloc.h" /* MALLOC */
#endif
#include "intcommongraphics.h"
#include "../graphics/ObjectStructure.h"
/*-----------------------------------------------------------------------------------*/
extern void *sciGetPointerToFeature (sciPointObj * pobj); /* GET */
extern sciPointObj *sciGetCurrentFigure ();
extern sciPointObj *sciGetPointerFromHandle (long handle);
extern sciEntityType sciGetEntityType (sciPointObj * pobj);
extern long sciGetHandle (sciPointObj * pobj);
extern sciPointObj * ConstructUimenu (sciPointObj * pparentfigure, char *label,char *callback,BOOL handle_visible);
extern int version_flag();
/*-----------------------------------------------------------------------------------*/
int intUImenu(char *fname,unsigned long fname_len)
{
int numrow,numcol,outindex;
int m1,n1,l1;
int m2,n2,l2;
int m3,n3,l3;
char *labelmenu=NULL;
char *callbackmenu=NULL;
sciPointObj *pParent=NULL;
unsigned long GraphicHandle=0;
CheckRhs(2,3);
CheckLhs(0,1);
if (version_flag()!=0)
{
Scierror(999,"Not valid under old graphics mode.");
return 0;
}
if (Rhs == 2)
{
if ( (VarType(1) == sci_strings) && (VarType(2) == sci_strings) )
{
SciWin();
pParent= (sciPointObj *) sciGetCurrentFigure();
GetRhsVar(1,"c",&m1,&n1,&l1);
labelmenu = cstk(l1);
GetRhsVar(2,"c",&m2,&n2,&l2);
callbackmenu = cstk(l2);
}
else
{
Scierror(999,"Incorrect parameter(s)");
return 0;
}
}
else
{
/* Rhs == 3 */
if ( (VarType(1) == sci_handles) && (VarType(2) == sci_strings) && (VarType(3) == sci_strings) )
{
GetRhsVar(1,"h",&m1,&n1,&l1);
pParent=sciGetPointerFromHandle((long)*hstk(l1));
if ( (sciGetEntityType (pParent) != SCI_FIGURE) && (sciGetEntityType (pParent) != SCI_UIMENU) )
{
Scierror(999,"Must be a figure or a uimenu parent.");
return 0;
}
GetRhsVar(2,"c",&m2,&n2,&l2);
labelmenu = cstk(l2);
GetRhsVar(3,"c",&m3,&n3,&l3);
callbackmenu = cstk(l3);
}
else
{
Scierror(999,"Incorrect parameter(s)");
return 0;
}
}
sciprint("%s %s\n",labelmenu,callbackmenu);
GraphicHandle=sciGetHandle(ConstructUimenu (pParent,labelmenu,callbackmenu,TRUE));
numrow = 1;
numcol = 1;
CreateVar(Rhs+1,"h",&numrow,&numcol,&outindex);
*hstk(outindex) = GraphicHandle;
LhsVar(1)=Rhs+1;
return 0;
}
/*-----------------------------------------------------------------------------------*/
|
