File: intshowalluimenushandles.c

package info (click to toggle)
scilab 4.0-12
  • links: PTS
  • area: non-free
  • in suites: etch, etch-m68k
  • size: 100,640 kB
  • ctags: 57,333
  • sloc: ansic: 377,889; fortran: 242,862; xml: 179,819; tcl: 42,062; sh: 10,593; ml: 9,441; makefile: 4,377; cpp: 1,354; java: 621; csh: 260; yacc: 247; perl: 130; lex: 126; asm: 72; lisp: 30
file content (69 lines) | stat: -rw-r--r-- 1,959 bytes parent folder | download | duplicates (2)
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
/*-----------------------------------------------------------------------------------*/
/* INRIA 2005 */
/* Allan CORNET */
/*-----------------------------------------------------------------------------------*/
#include "intshowalluimenushandles.h"
/*-----------------------------------------------------------------------------------*/
extern int version_flag();
extern sciPointObj *sciGetPointerFromHandle (long handle);
extern sciEntityType sciGetEntityType (sciPointObj * pobj);
extern sciSons *sciGetLastSons (sciPointObj * pobj);
/*-----------------------------------------------------------------------------------*/
int SciShowAllUimenus(sciPointObj* pparent);
/*-----------------------------------------------------------------------------------*/
int intshowalluimenushandles(char *fname,unsigned long fname_len)
{
	CheckRhs(1,1);
	CheckLhs(1,1);
	
	if (version_flag()!=0)
	{
		Scierror(999,"Not valid under old graphics mode.");
		return 0;
	}

	if (VarType(1) == sci_handles)
	{
		sciPointObj *pParent=NULL;
		int m1,n1,l1;

		GetRhsVar(1,"h",&m1,&n1,&l1);
		pParent=sciGetPointerFromHandle((long)*hstk(l1));

		if (sciGetEntityType (pParent) != SCI_FIGURE ) 
		{
			Scierror(999,"Invalid parameter. must be a Figure handle");
			return 0;
		}
		else
		{
			SciShowAllUimenus(pParent);
		}
	}
	else
	{
		Scierror(999,"Invalid parameter. must be a Figure handle");
		return 0;
	}
	LhsVar(1)=0;
  return 0;
}
/*-----------------------------------------------------------------------------------*/
int SciShowAllUimenus(sciPointObj* pparent)
{
	sciSons *psonstmp;
	psonstmp = sciGetLastSons(pparent);

	while(psonstmp != (sciSons *) NULL)
	{   
		if(sciGetEntityType (psonstmp->pointobj) == SCI_UIMENU)
		{
			pUIMENU_FEATURE(psonstmp->pointobj)->handle_visible=TRUE;
			SciShowAllUimenus(psonstmp->pointobj);
		}

		psonstmp = psonstmp->pprev;
	}
	return 0;
}
/*-----------------------------------------------------------------------------------*/