wgmenu.c File Reference

#include "wgmenu.h"
#include "Messages.h"
#include "Warnings.h"
#include "Errors.h"
#include "WindowList.h"
#include "Actions.h"
#include "periScreen.h"
#include "MALLOC.h"

Include dependency graph for wgmenu.c:

Go to the source code of this file.

Defines
#define	FILEGRAPHMENUFRENCH   "wgscilabF.mnu"
#define	FILEGRAPHMENUENGLISH   "wgscilabE.mnu"
#define	lenStringMenu   64
#define	lenStringMenu   64
Functions
void	scig_savesg (int win_num, char *filename)
BOOL	IsWindowInterface ()
void	Write_Scilab_Console (char *buf)
void	Write_Scilab_Window (char *buf)
void	ResetMenu (void)
void	HideGraphToolBar (struct BCG *ScilabGC)
void	ShowGraphToolBar (struct BCG *ScilabGC)
void	SaveCurrentLine (BOOL RewriteLineAtPrompt)
void	ExportBMP (struct BCG *ScilabGC, char *pszflname)
void	ExportEMF (struct BCG *ScilabGC, char *pszflname)
HDC	GetPrinterDC (void)
char	GetPrinterOrientation (void)
void	SavePs (struct BCG *ScilabGC)
void	PrintPs (struct BCG *ScilabGC)
char *	GetScilabDirectory (BOOL UnixStyle)
void	Callback_PRINTSETUP (void)
LPTW	GetTextWinScilab (void)
void	ModifyEntityPickerToolbar (struct BCG *ScilabGC, BOOL Pressed)
void	SendGraphMacro (struct BCG *ScilabGC, UINT m)
void	ScilabMenuAction (char *buf)
void	write_scilab (char *buf)
void	CallTranslateMacroGraphicWindow (char *string)
static void	TranslateMacro (char *string)
void	LoadGraphMacros (struct BCG *ScilabGC)
int	WGFindMenuPos (BYTE **macros)
void	CloseGraphMacros (struct BCG *ScilabGC)
static void	ExploreMenu (HMENU hmen, BYTE **hmacro)
int C2F()	setmen (integer *win_num, char *button_name, integer *entries, integer *ptrentries, integer *ne, integer *ierr)
int C2F()	unsmen (integer *win_num, char *button_name, integer *entries, integer *ptrentries, integer *ne, integer *ierr)
static void	SciSetMenu (HMENU hmen, char *name, int num, int flag)
int C2F()	chmenu (integer *win_num, char *old_name, char *new_name)
static void	SciChMenu (LPMW lpmw, char *name, char *new_name)
int C2F()	delbtn (integer *win_num, char *button_name)
static void	SciDelMenu (LPMW lpmw, char *name)
void	AddMenu (integer *win_num, char *button_name, char **entries, integer *ne, integer *typ, char *fname, integer *ierr)
int C2F()	addmen (integer *win_num, char *button_name, integer *entries, integer *ptrentries, integer *ne, integer *typ, char *fname, integer *ierr)
static void	scig_command_scilabgc (int number, void f(struct BCG *))
void	scig_h_copyclip (integer number)
void	scig_h_copyclip1 (integer number)
void	scig_print (integer number)
void	scig_export (integer number)
void	UpdateFileGraphNameMenu (struct BCG *ScilabGC)
void	NewFigure (struct BCG *ScilabGC)
int	FindFreeGraphicWindow (struct BCG *ScilabGC)
void	RefreshMenus (struct BCG *ScilabGC)
void	CreateGedMenus (struct BCG *ScilabGC)
BOOL	SendMacroEntityPicker (struct BCG *ScilabGC, int id)
BOOL	IsEntityPickerMenu (struct BCG *ScilabGC, int id)
Variables
HINSTANCE	hdllInstance

---

Define Documentation

#define FILEGRAPHMENUENGLISH   "wgscilabE.mnu"

Referenced by UpdateFileGraphNameMenu().

#define FILEGRAPHMENUFRENCH   "wgscilabF.mnu"

Referenced by UpdateFileGraphNameMenu().

#define lenStringMenu   64

#define lenStringMenu   64

Referenced by IsEntityPickerMenu().

---

Function Documentation

int C2F() addmen	(	integer *	win_num,
		char *	button_name,
		integer *	entries,
		integer *	ptrentries,
		integer *	ne,
		integer *	typ,
		char *	fname,
		integer *	ierr
	)

Definition at line 879 of file wgmenu.c.

References AddMenu(), ierr, ResetMenu(), and ScilabMStr2CM().

{
  char **menu_entries;
  menu_entries=NULL;
  *ierr = 0;
  if (*ne != 0)
    {
      ScilabMStr2CM (entries, ne, ptrentries, &menu_entries, ierr);
      if (*ierr == 1)
        return (0);
    }
  /* Modification Allan CORNET */
  /* Réinitialisation Menu Console Principale */
  if ( (strcmp(button_name,"RESETMENU")==0) && (*win_num==-1) )
    {
      ResetMenu();      
    }
  else AddMenu (win_num, button_name, menu_entries, ne, typ, fname, ierr);
  return (0);
}

Here is the call graph for this function:

void AddMenu	(	integer *	win_num,
		char *	button_name,
		char **	entries,
		integer *	ne,
		integer *	typ,
		char *	fname,
		integer *	ierr
	)

Definition at line 751 of file wgmenu.c.

References getWindowXgcNumber(), tagMW::hMenu, tagTW::hWndParent, i, j, tagTW::lpmw, tagMW::macro, MF_SEPARATOR, MSG_WARNING10, MSG_WARNING11, MSG_WARNING12, MSG_WARNING13, MSG_WARNING14, number, NUMMENU, sciprint(), textwin, UINT, and WGFindMenuPos().

{
  BYTE *macroptr;
  struct BCG *ScilabGC;
  HWND hwnd;
  LPMW lpmw;
  int number, nCountMenu;
  number = *win_num;
  if (*win_num == -1)
  {
      lpmw = textwin.lpmw;
      hwnd = textwin.hWndParent;
      nCountMenu = WGFindMenuPos (lpmw->macro);
      if (nCountMenu >= NUMMENU)
                        {
                                sciprint (MSG_WARNING10);
                                return;
                        }
  }
  else
  {
     ScilabGC = getWindowXgcNumber (*win_num);
     if (ScilabGC != (struct BCG *) 0)
                {
                        lpmw = &(ScilabGC->lpmw);
                        hwnd = ScilabGC->hWndParent;
                        nCountMenu = WGFindMenuPos (lpmw->macro);
                        if (nCountMenu >= NUMMENU)
            {
              sciprint (MSG_WARNING11,*win_num);
              return;
            }
                }
                else    return;
  }

  if (*ne == 0)
  {
    AppendMenu (lpmw->hMenu, MF_STRING, nCountMenu, button_name);
    if ((macroptr = LocalAlloc (LPTR, lstrlen ("@%dexecstr(%s_%d(%d))")+ lstrlen (fname) + 1)) != (BYTE *) NULL)
                {
                        if (*win_num < 0)
                                if (*typ==0) 
                                        sprintf ((char *) macroptr, "@%dexecstr(%s(%d))", *typ, fname, 1);
                                else 
                                        if (*typ==2) sprintf ((char *) macroptr, "@0%s(%d,%d)",fname, 1,*win_num);
                                        else sprintf ((char *) macroptr, "@%dexecstr(%s(%d))", *typ,fname, 1);
                        else 
                                if (*typ==0) sprintf ((char *) macroptr, "@0execstr(%s_%d(%d))",fname, *win_num, 1);
                                else
                                        if (*typ==2) sprintf ((char *) macroptr, "@0%s(%d,%d)",fname, 1,*win_num);
                                        else sprintf ((char *) macroptr, "@%dexecstr(%s_%d(%d))", *typ,fname, *win_num, 1);
                }
    else
                {
                        sciprint (MSG_WARNING12);
                        return;
                }

    lpmw->macro[nCountMenu] = macroptr;
  }
  else
  {
                int i=0;
                int j=0;
    HMENU hMenu;
    hMenu = CreateMenu ();
                

    AppendMenu (lpmw->hMenu, MF_STRING | MF_POPUP, (UINT) hMenu, button_name);
    for (i = 0; i < *ne; i++)
                {
                        
                        nCountMenu = WGFindMenuPos (lpmw->macro);
                        if (nCountMenu >= NUMMENU)
            {
              sciprint (MSG_WARNING13);
              return;
            }
                        if ( strcmp("[--]",entries[i])==0 )
                        {
                                AppendMenu (hMenu, MF_SEPARATOR, 0, (LPSTR) NULL);
                        }
                        else
                        {
                                AppendMenu (hMenu, MF_STRING, nCountMenu, entries[i]);
                                if ((macroptr = LocalAlloc (LPTR, lstrlen ("@%dexecstr(%s_%d(%d))")+ lstrlen (fname) + 1)) != (BYTE *) NULL)
                                {
                                        if (*win_num < 0)
                                                if (*typ==0) 
                                                        sprintf ((char *) macroptr, "@%dexecstr(%s(%d))", *typ, fname, j + 1);
                                                else
                                                        if (*typ==2) sprintf ((char *) macroptr, "@0%s(%d)",fname, j + 1);
                                                        else sprintf ((char *) macroptr, "@%dexecstr(%s(%d))", *typ,fname, j + 1);
                                        else
                                                if (*typ==0) sprintf ((char *) macroptr, "@0execstr(%s_%d(%d))",fname, *win_num, j + 1);
                                                else
                                                        if (*typ==2) sprintf ((char *) macroptr, "@0%s(%d,%d)",fname, j + 1,*win_num);
                                                        else sprintf ((char *) macroptr, "@%dexecstr(%s_%d(%d))", *typ,fname, *win_num, j + 1);
                                        j++;
                                }
                                else
                                {
                                        sciprint (MSG_WARNING14);
                                        return;
                                }
                                lpmw->macro[nCountMenu] = macroptr;
                        }
                }
  }
  DrawMenuBar (hwnd);
}

Here is the call graph for this function:

void Callback_PRINTSETUP

(

void

)

Definition at line 351 of file wmenu.c.

Referenced by SendGraphMacro(), and SendMacro().

{
        ConfigurePrinterDialogBox();
}

Here is the caller graph for this function:

void CallTranslateMacroGraphicWindow

(

char *

string

)

Definition at line 281 of file wgmenu.c.

References TranslateMacro().

Referenced by SavePs().

{
        TranslateMacro(string);
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() chmenu	(	integer *	win_num,
		char *	old_name,
		char *	new_name
	)

Definition at line 618 of file wgmenu.c.

References getWindowXgcNumber(), tagTW::hWndParent, tagTW::lpmw, SciChMenu(), and textwin.

Referenced by MenuFixCurrentWin().

{
  struct BCG *ScilabGC;
  if (*win_num == -1)
    {
      SciChMenu (textwin.lpmw, old_name, new_name);
      DrawMenuBar (textwin.hWndParent);
    }
  else
    {
      ScilabGC = getWindowXgcNumber (*win_num);
      if (ScilabGC != (struct BCG *) 0)
        {
          SciChMenu (&(ScilabGC->lpmw), old_name, new_name);
          DrawMenuBar (ScilabGC->hWndParent);
        }
    }
  return (0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void CloseGraphMacros

(

struct BCG *

ScilabGC

)

Definition at line 480 of file wgmenu.c.

References i, and NUMMENU.

{
  int i;
  HGLOBAL hglobal;
  if (ScilabGC->lpmw.macro != (BYTE **) NULL)
    {
      hglobal = GlobalHandle (ScilabGC->lpmw.macro);
      if (hglobal)
        {
          for (i = 0; i < NUMMENU; i++)
            if (ScilabGC->lpmw.macro[i] != (BYTE *) 0)
              {
                LocalFree (ScilabGC->lpmw.macro[i]);
                ScilabGC->lpmw.macro[i] = (BYTE *) 0;
              }
          GlobalUnlock (hglobal);
          GlobalFree (hglobal);
          ScilabGC->lpmw.macro = (BYTE **) NULL;
        }
    }

    if ( ScilabGC->lpmw.szMenuName != NULL )
    {
      FREE( ScilabGC->lpmw.szMenuName ) ;
      ScilabGC->lpmw.szMenuName = NULL ;
    }
}

void CreateGedMenus

(

struct BCG *

ScilabGC

)

Definition at line 1035 of file wgmenu.c.

References AddMenu(), BCG::CurWindow, ierr, LoadGraphMacros(), MSG_SCIMSG116, MSG_SCIMSG117, MSG_SCIMSG118, MSG_SCIMSG119, and UpdateFileGraphNameMenu().

{
  int WinNum=ScilabGC->CurWindow;


  /*
  for new menus
  ScilabXgc->hMenuRoot=CreateMenu();
  ScilabXgc->IDM_Count=1;

  SetMenu(ScilabXgc->hWndParent,ScilabXgc->hMenuRoot); 
  */
#ifdef WITH_TK
  integer ne=14, menutyp=2, ierr;
  char *EditMenusE[]={"&Select figure as current","&Redraw figure","&Erase figure","[--]","&Copy object","&Paste object","Move object","Delete object","[--]","Figure properties","Current &axes properties","[--]",MSG_SCIMSG116,MSG_SCIMSG117};
  char *EditMenusF[]={"&Selectionner figure comme courante","&Redessiner figure","[--]","&Effacer figure","Copier objet","Coller objet","Déplacer objet","Détruire objet","[--]","Propriétés de la &figure","Propriétés des &axes courants","[--]",MSG_SCIMSG118,MSG_SCIMSG119};

  /* Disable Double Arrow */
  integer ni=/*7*/6;
  char *InsertMenusE[]={"&Line","&Polyline","&Arrow",/*"&Double Arrow",*/"&Text","&Rectangle","&Circle"};
  char *InsertMenusF[]={"&Ligne","L&igne brisée","&Fleche",/*"&Double Fleche",*/"&Texte","&Rectangle","&Cercle"};
#else
  integer ne=3, menutyp=2, ierr;
  char *EditMenusE[]={"&Select figure","&Redraw figure","&Erase figure"};
  char *EditMenusF[]={"&Selectionner figure","&Redessiner figure","&Effacer figure"};
#endif

  UpdateFileGraphNameMenu(ScilabGC);
  LoadGraphMacros(ScilabGC);

  switch( ScilabGC->lpmw.CodeLanguage)
  {
  case 1:
    AddMenu(&WinNum,"&Editer", EditMenusF, &ne, &menutyp, "ged", &ierr);
#ifdef WITH_TK
    /*AddMenu(&WinNum,"&Inserer", InsertMenusF, &ni, &menutyp, "ged_insert", &ierr);*/
#endif
    break;
  default:
    AddMenu(&WinNum,"&Edit", EditMenusE, &ne, &menutyp, "ged", &ierr);
#ifdef WITH_TK
    /*AddMenu(&WinNum,"&Insert", InsertMenusE, &ni, &menutyp, "ged_insert", &ierr);*/
#endif
    break;
  }

}

Here is the call graph for this function:

int C2F() delbtn	(	integer *	win_num,
		char *	button_name
	)

Definition at line 658 of file wgmenu.c.

References getWindowXgcNumber(), tagTW::hWndParent, tagTW::lpmw, SciDelMenu(), and textwin.

{
  struct BCG *ScilabGC;
  if (*win_num == -1)
    {
      SciDelMenu (textwin.lpmw, button_name);
      DrawMenuBar (textwin.hWndParent);
    }
  else
    {
      ScilabGC = getWindowXgcNumber (*win_num);
      if (ScilabGC != (struct BCG *) 0)
        {
          SciDelMenu (&(ScilabGC->lpmw), button_name);
          DrawMenuBar (ScilabGC->hWndParent);
        }
    }
  return (0);
}

Here is the call graph for this function:

static void ExploreMenu	(	HMENU	hmen,
		BYTE **	hmacro
	)			[static]

Definition at line 512 of file wgmenu.c.

References buf, i, id, is, and sciprint().

{
  int i, is, id, Nums = GetMenuItemCount (hmen);
  sciprint ("Nombre d'Items %d\r\n", Nums);
  for (i = 0; i < Nums; i++)
    {
      char buf[256];
      HMENU hSubMenu;
      hSubMenu = GetSubMenu (hmen, i);
      is = GetMenuString (hmen, i, buf, 256, MF_BYPOSITION);
      buf[is] = '\0';
      sciprint (" submenu %d, [%s]", i, buf);
      id = GetMenuItemID (hmen, i);
      sciprint (" ID %d\r\n", is);
      if (id >= 0 && is != 0)
        sciprint ("String %d %s\r\n", id, (char *) hmacro[id]);
      if (hSubMenu != NULL)
        {
          ExploreMenu (hSubMenu, hmacro);
        }
    }
}

Here is the call graph for this function:

void ExportBMP	(	struct BCG *	ScilabGC,
		char *	pszflname
	)

Definition at line 332 of file ExportBmpEmf.c.

References BCG::CurWindow, BCG::CWindow, BCG::CWindowHeight, BCG::CWindowWidth, FALSE, GetCurrentFigureWindows(), hdc, HdcToBmpFile(), MSG_ERROR20, MSG_ERROR36, NULL, scig_replay_hdc(), SetCurrentFigureWindows(), Setscig_buzyState(), SW_SHOWNORMAL, TRUE, and TryToGetDC().

Referenced by Interface_XS2BMP(), and SavePs().

{
        LPGW lpgw;
        HBITMAP hBitmap;
        HDC hmemDC=NULL;
        HWND hwnd;
        HDC hdc=NULL;
        integer SaveCurrentWindow=0;


        Setscig_buzyState(TRUE);

        SaveCurrentWindow=GetCurrentFigureWindows();
        SetCurrentFigureWindows (ScilabGC->CurWindow);

        /* view the window */
        lpgw = ScilabGC->lpgw;
        hwnd = ScilabGC->CWindow;

        if (IsIconic (hwnd)) ShowWindow (hwnd, SW_SHOWNORMAL);
        BringWindowToTop (hwnd);
        UpdateWindow (hwnd);

        SetActiveWindow(ScilabGC->hWndParent);      
        
        /* get the context */
        hdc = TryToGetDC (hwnd);

        /* make a bitmap and copy it there */
        if (hdc)
        {
                        scig_replay_hdc ('C', ScilabGC->CurWindow, hdc,ScilabGC->CWindowWidth,ScilabGC->CWindowHeight, 1);
                        ReleaseDC (hwnd, hdc);

                        hmemDC = CreateCompatibleDC (hdc);
                        hBitmap = CreateCompatibleBitmap (hdc,ScilabGC->CWindowWidth,ScilabGC->CWindowHeight);

                        if (hBitmap)
                        {
                                POINT DCSize;
                                SelectBitmap (hmemDC, hBitmap);
                                scig_replay_hdc ('C', ScilabGC->CurWindow, hmemDC,ScilabGC->CWindowWidth,ScilabGC->CWindowHeight, 1);
                                DCSize.x=ScilabGC->CWindowWidth;
                                DCSize.y=ScilabGC->CWindowHeight;

                                HdcToBmpFile(hmemDC,pszflname,DCSize);

                                DeleteDC(hmemDC);
                                DeleteBitmap(hBitmap);
                        }
        }
        else
        {
                MessageBox(NULL,MSG_ERROR36,MSG_ERROR20,MB_ICONWARNING);
        }

        SetCurrentFigureWindows (SaveCurrentWindow);

        Setscig_buzyState(FALSE);

}

Here is the call graph for this function:

Here is the caller graph for this function:

void ExportEMF	(	struct BCG *	ScilabGC,
		char *	pszflname
	)

Definition at line 395 of file ExportBmpEmf.c.

References BCG::CurWindow, BCG::CWindow, BCG::CWindowHeight, BCG::CWindowWidth, FALSE, GetCurrentFigureWindows(), hdc, NULL, scig_replay_hdc(), SetCurrentFigureWindows(), Setscig_buzyState(), SW_SHOWNORMAL, TRUE, and TryToGetDC().

Referenced by Interface_XS2EMF(), and SavePs().

{    
        RECT rect;
        HWND hwnd;
        HDC hdc;
        HDC hdcTmp;
        HENHMETAFILE metafile;

        integer SaveCurrentFigure=0; 

        Setscig_buzyState(TRUE);

        SaveCurrentFigure=GetCurrentFigureWindows();
        SetCurrentFigureWindows (ScilabGC->CurWindow);

        hwnd = ScilabGC->CWindow;

        /* view the window */
        if (IsIconic (hwnd)) ShowWindow (hwnd, SW_SHOWNORMAL);
        BringWindowToTop (hwnd);
        UpdateWindow (hwnd);

        /* get the context */
        hdcTmp=TryToGetDC (hwnd);
        hdc = CreateEnhMetaFile (hdcTmp, pszflname, NULL, "Scilab Graphics");

        GetClientRect (hwnd, &rect);
        SetMapMode (hdc, MM_TEXT);
        SetTextAlign (hdc, TA_LEFT | TA_BOTTOM);
        
        SetWindowExtEx (hdc,ScilabGC->CWindowWidth,ScilabGC->CWindowHeight, (LPSIZE) NULL);
        Rectangle (hdc, 0, 0,ScilabGC->CWindowWidth,ScilabGC->CWindowHeight);

        scig_replay_hdc ('C', ScilabGC->CurWindow,hdcTmp,ScilabGC->CWindowWidth,ScilabGC->CWindowHeight, 1);
        ReleaseDC(hwnd,hdcTmp);

        scig_replay_hdc ('C', ScilabGC->CurWindow,hdc,ScilabGC->CWindowWidth,ScilabGC->CWindowHeight, 1);

        metafile = CloseEnhMetaFile(hdc);
        DeleteDC(hdc);
        DeleteEnhMetaFile( metafile );

        SetCurrentFigureWindows (SaveCurrentFigure);

        Setscig_buzyState(FALSE);
        return;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int FindFreeGraphicWindow

(

struct BCG *

ScilabGC

)

Definition at line 985 of file wgmenu.c.

References FREE, getWins(), i, ids, iflag, MALLOC, and num.

Referenced by NewFigure().

{
  int FreeNumber=-1;
  integer iflag =0,ids,num,un=1;

  integer *tab=NULL;
  int sizetab=0;
  int i=0;

  iflag = 0; 
  getWins(&num,&ids ,&iflag);
  sizetab=num;

  tab=(integer*)MALLOC(sizeof(integer)*sizetab);
  for(i=0;i<sizetab;i++) tab[i]=0;

  iflag = 1; 
  getWins(&num,tab,&iflag);

  for(i=0;i<sizetab;i++)
  {
    if(FreeNumber<tab[i]) FreeNumber=tab[i];    
  }
  FreeNumber=FreeNumber+1;
  FREE(tab);
  return FreeNumber;
}

Here is the call graph for this function:

Here is the caller graph for this function:

HDC GetPrinterDC

(

void

)

Definition at line 554 of file TextToPrint.c.

Referenced by CopyPrint(), PrintFile(), PrintPs(), and PrintString().

{
        if (PrinterHDC == NULL)
        {
                PRINTDLG pd;
                LPDEVNAMES lpDev=NULL;
                LPDEVMODE lpDevMode=NULL;
                LPCTSTR lpszDevice=NULL;

                int   failed = 0;       

                // Reset printdlg struct 
                memset( &pd, 0, sizeof(PRINTDLG) ); 
                pd.Flags = PD_RETURNDEFAULT | PD_RETURNDC; 
                pd.lStructSize = sizeof( PRINTDLG ); 


                failed = ( ! PrintDlg( &pd ) ); 
                if (failed)
                {
                        ConfigurePrinterDialogBox();
                }

                lpDev = (LPDEVNAMES)GlobalLock(pd.hDevNames);
                lpDevMode = (LPDEVMODE)GlobalLock(pd.hDevMode);
                lpszDevice = (LPCTSTR)lpDev + lpDev->wDeviceOffset;

                wsprintf(PrinterName,"%s",lpszDevice);
                GlobalUnlock(pd.hDevNames);

                if (lpDevMode->dmOrientation==DMORIENT_PORTRAIT ) PrinterOrientation='p';
                else PrinterOrientation='l';
                GlobalUnlock(pd.hDevMode);

                if (PrinterHDC) {DeleteDC(PrinterHDC);PrinterHDC=NULL;}
                PrinterHDC=pd.hDC;

        }

        return PrinterHDC;
}

Here is the caller graph for this function:

char GetPrinterOrientation

(

void

)

Definition at line 596 of file TextToPrint.c.

References PrinterOrientation.

{
        return PrinterOrientation;
}

char* GetScilabDirectory

(

BOOL

UnixStyle

)

Definition at line 64 of file SciEnv.c.

{
        LPSTR ScilabModuleName=NULL;
        char drive[_MAX_DRIVE];
        char dir[_MAX_DIR];
        char fname[_MAX_FNAME];
        char ext[_MAX_EXT];

        char *SciPathName=NULL;
        char *DirTmp=NULL;

        ScilabModuleName = (LPSTR) MALLOC (MAXSTR + 1);

        if (!GetModuleFileName ((HINSTANCE)GetModuleHandle(MSG_SCIMSG9), (LPSTR) ScilabModuleName, MAXSTR))
        {
                if (ScilabModuleName) {FREE(ScilabModuleName);ScilabModuleName=NULL;}
                return NULL;
        }

        _splitpath(ScilabModuleName,drive,dir,fname,ext);
        if (ScilabModuleName) {FREE(ScilabModuleName);ScilabModuleName=NULL;}
        if (dir[strlen(dir)-1] == '\\') dir[strlen(dir)-1] = '\0';

        DirTmp=strrchr (dir, '\\');
        if (strlen(dir)-strlen(DirTmp)>0)
        {
                dir[strlen(dir)-strlen(DirTmp)] = '\0';
        }
        else return NULL;

        SciPathName=(char*)MALLOC((int)(strlen(drive)+strlen(dir)+5)*sizeof(char));
        
        _makepath(SciPathName,drive,dir,NULL,NULL);

        if ( UnixStyle )
        {       
                int i=0;
                for (i=0;i<(int)strlen(SciPathName);i++)
                {
                        if (SciPathName[i]=='\\') SciPathName[i]='/';
                }
        }
        SciPathName[strlen(SciPathName)-1]='\0';
        setSCIpath(SciPathName);
        return SciPathName;
}

LPTW GetTextWinScilab

(

void

)

Definition at line 10 of file TextWindows.c.

{
        return &textwin;
}

void HideGraphToolBar

(

struct BCG *

ScilabGC

)

Definition at line 23 of file Toolbar.c.

{
        int i=0;
        ScilabGC->lpmw.ShowToolBar=FALSE;

        for (i=0;i<ScilabGC->lpmw.nButton;i++)
        {
                ShowWindow(ScilabGC->lpmw.hButton[i],SW_HIDE);
        }
}

BOOL IsEntityPickerMenu	(	struct BCG *	ScilabGC,
		int	id
	)

Definition at line 1110 of file wgmenu.c.

References FALSE, lenStringMenu, MSG_SCIMSG116, MSG_SCIMSG117, MSG_SCIMSG118, MSG_SCIMSG119, and TRUE.

Referenced by SendMacroEntityPicker().

{
        BOOL bOK=FALSE;
        if (id == 23)
        {
                #define lenStringMenu 64
                char CurrentStringMenu[lenStringMenu];
                GetMenuString(ScilabGC->lpmw.hMenu,id,CurrentStringMenu,lenStringMenu-1,MF_BYCOMMAND);
                switch (ScilabGC->lpmw.CodeLanguage)
                {
                        case 1:
                                if (strcmp(CurrentStringMenu,MSG_SCIMSG118)==0) bOK=TRUE;
                        break;

                        case 0: default:
                                if (strcmp(CurrentStringMenu,MSG_SCIMSG116)==0) bOK=TRUE;
                        break;
                }
        }

        if (id == 24)
        {
                #define lenStringMenu 64
                char CurrentStringMenu[lenStringMenu];
                GetMenuString(ScilabGC->lpmw.hMenu,id,CurrentStringMenu,lenStringMenu-1,MF_BYCOMMAND);
                switch (ScilabGC->lpmw.CodeLanguage)
                {
                        case 1:
                                if (strcmp(CurrentStringMenu,MSG_SCIMSG119)==0) bOK=TRUE;
                        break;

                        case 0: default:
                                if (strcmp(CurrentStringMenu,MSG_SCIMSG117)==0) bOK=TRUE;
                        break;
                }
        }

        return bOK;
}

Here is the caller graph for this function:

BOOL IsWindowInterface

(

)

Definition at line 127 of file WinConsole.c.

{
        return WindowMode;
}

void LoadGraphMacros

(

struct BCG *

ScilabGC

)

Definition at line 308 of file wgmenu.c.

References buf, BUGGOTOCLEAN, cleanup(), GetLine(), Gfopen(), i, LeftJustify(), MAXSTR, MENUDEPTH, MF_SEPARATOR, MSG_ERROR77, MSG_WARNING5, MSG_WARNING6, MSG_WARNING7, MSG_WARNING8, MSG_WARNING9, NULL, NUMMENU, TranslateMacro(), UINT, and WGFindMenuPos().

{
  GFILE *menufile;
  BYTE *macroptr;
  char *buf;
  HMENU hMenu[MENUDEPTH + 1];
  int nLine = 1, nInc, i, nMenuLevel, nCountMenu;
  HGLOBAL hmacro;
  /* mark all buffers and menu file as unused */
  buf = (char *) NULL;
  hmacro = 0;
  ScilabGC->lpmw.macro = (BYTE **) NULL;
  menufile = (GFILE *) NULL;

  /* open menu file */
  if ((menufile = Gfopen (ScilabGC->lpgw->szMenuName, OF_READ)) == (GFILE *) NULL)
    goto errorcleanup;

  /* allocate buffers */
  if ((buf = LocalAlloc (LPTR, MAXSTR)) == (char *) NULL)
    goto nomemory;
  hmacro = GlobalAlloc (GHND, (NUMMENU) * sizeof (BYTE *));
  if ((ScilabGC->lpmw.macro = (BYTE **) GlobalLock (hmacro)) == (BYTE **) NULL)
    goto nomemory;

  /* Initialize macro array * */
  for (i = 0; i < NUMMENU; i++)
    {
      ScilabGC->lpmw.macro[i] = (BYTE *) 0;
    }
  ScilabGC->lpmw.nCountMenu = 0;
  ScilabGC->lpmw.nButton = 0;
  ScilabGC->lpmw.hMenu = hMenu[0] = CreateMenu ();
  nMenuLevel = 0;

  while ((nInc = GetLine (buf, MAXSTR, menufile)) != 0)
    {
      nLine += nInc;
      LeftJustify (buf, buf);
      if (buf[0] == '\0')
        {
          /* ignore blank lines */
        }
      else if (!lstrcmpi (buf, "[Menu]"))
        {
          /* new menu */
          if (!(nInc = GetLine (buf, MAXSTR, menufile)))
            {
              nLine += nInc;
              BUGGOTOCLEAN (MSG_WARNING5);
            }
          LeftJustify (buf, buf);
          if (nMenuLevel < MENUDEPTH)
            {
              nMenuLevel++;
            }
          else
            {
              BUGGOTOCLEAN (MSG_WARNING6);
            }
          hMenu[nMenuLevel] = CreateMenu ();
          AppendMenu (hMenu[nMenuLevel > 0 ? nMenuLevel - 1 : 0],
                      MF_STRING | MF_POPUP, (UINT) hMenu[nMenuLevel],
                      (LPCSTR) buf);
        }
      else if (!lstrcmpi (buf, "[EndMenu]"))
        {
          if (nMenuLevel > 0)
            nMenuLevel--;       /* back up one menu */
        }
      else
        {
          nCountMenu = WGFindMenuPos (ScilabGC->lpmw.macro);
          /* menu item */
          if (nCountMenu >= NUMMENU)
            {
              BUGGOTOCLEAN ( MSG_WARNING7 );
            }
          LeftJustify (buf, buf);
          if (buf[0] == '-')
            {
              if (nMenuLevel == 0)
                AppendMenu (hMenu[0], MF_MENUBREAK, 0, (LPSTR) NULL);
              else
                AppendMenu (hMenu[nMenuLevel], MF_SEPARATOR, 0, (LPSTR) NULL);
            }
          else if (buf[0] == '|')
            {
              AppendMenu (hMenu[nMenuLevel], MF_MENUBARBREAK, 0, (LPSTR) NULL);
            }
          else
            {
              AppendMenu (hMenu[nMenuLevel], MF_STRING, nCountMenu, (LPSTR) buf);
              ScilabGC->lpmw.nCountMenu++;
              if (!(nInc = GetLine (buf, MAXSTR, menufile)))
                {
                  nLine += nInc;
                  BUGGOTOCLEAN (MSG_WARNING8);
                }
              LeftJustify (buf, buf);
              TranslateMacro (buf);
              if ((macroptr = LocalAlloc (LPTR, lstrlen (buf) + 1)) != (BYTE *) NULL)
                {
                  lstrcpy ((char *) macroptr, buf);
                }
              else
                {
                  BUGGOTOCLEAN (MSG_WARNING9);
                }
              ScilabGC->lpmw.macro[nCountMenu] = macroptr;
            }
        }
    }
  nCountMenu = WGFindMenuPos (ScilabGC->lpmw.macro);
  if ((nCountMenu - ScilabGC->lpmw.nButton) > 0)
    {
      /* we have a menu bar so put it on the window */
      SetMenu (ScilabGC->hWndParent, ScilabGC->lpmw.hMenu);
      DrawMenuBar (ScilabGC->hWndParent);
    }

  goto cleanup;

 nomemory:
  MessageBox (ScilabGC->hWndParent, MSG_ERROR77,
              ScilabGC->lpgw->Title, MB_ICONEXCLAMATION);

 errorcleanup:
  if (hmacro)
    {
      for (i = 0; i < NUMMENU; i++)
        {
          if (ScilabGC->lpmw.macro[i] != (BYTE *) 0)
            {
              LocalFree (ScilabGC->lpmw.macro[i]);
              ScilabGC->lpmw.macro[i] = (BYTE *) 0;
            }
        }
      GlobalUnlock (hmacro);
      GlobalFree (hmacro);
      ScilabGC->lpmw.macro = (BYTE **) NULL;
    }

 cleanup:
  if (buf != (char *) NULL)
    LocalFree (buf);
  if (menufile != (GFILE *) NULL)
    Gfclose (menufile);
  return;
}

Here is the call graph for this function:

void ModifyEntityPickerToolbar	(	struct BCG *	ScilabGC,
		BOOL	Pressed
	)

Definition at line 355 of file Toolbar.c.

References BCG::CWindow, NULL, TOOLBAR_PICKER, and UINT.

Referenced by SendMacroEntityPicker().

{
        HWND hwndPicker=NULL;
        hwndPicker=GetDlgItem(ScilabGC->CWindow,TOOLBAR_PICKER);

        if (Pressed)
        {
                SendMessage(hwndPicker,(UINT) BM_SETCHECK,BST_CHECKED,0);
        }
        else
        {
                SendMessage(hwndPicker,(UINT) BM_SETCHECK,BST_UNCHECKED,0);  
        }
}

Here is the caller graph for this function:

void NewFigure

(

struct BCG *

ScilabGC

)

Definition at line 971 of file wgmenu.c.

References FindFreeGraphicWindow(), MAX_PATH, and StoreCommand1().

Referenced by SendGraphMacro().

{
        
  char Command[MAX_PATH];
  int FreeWindow=0;

  FreeWindow=FindFreeGraphicWindow(ScilabGC);
  wsprintf(Command,"xset(\"window\",%d);",FreeWindow);
  StoreCommand1(Command,0);
        
}

Here is the call graph for this function:

Here is the caller graph for this function:

void PrintPs

(

struct BCG *

ScilabGC

)

Definition at line 153 of file FigureToPrint.c.

References tagLS::colored, BCG::CurWindow, dos2win32(), FALSE, filename, filename1, getenv(), GetPrinterDC(), GetPrinterOrientation(), gp_printfile(), hdllInstance, ls, MSG_ERROR78, MSG_WARNING15, NULL, scig_toPs(), ScilabPsToEps(), sciprint(), and tagLS::use_printer.

Referenced by FigureToPrint(), scig_print(), and SendGraphMacro().

{
        HDC hPrinterDC=NULL;
        char *p1;
        char ori;
        ls.use_printer = 1;
        ls.colored = 1;

        hPrinterDC=GetPrinterDC(); // Just to Configure Printer
        if (hPrinterDC) {DeleteDC(hPrinterDC);hPrinterDC=NULL;}

        if ((p1 = getenv ("TMPDIR")) == (char *) 0)
        {
                sciprint (MSG_WARNING15);
                return;
        }
        sprintf (filename, "%s/scilab-%d", p1, (int) ScilabGC->CurWindow);

        dos2win32 (filename, filename1);

        scig_toPs (ScilabGC->CurWindow, ls.colored, filename1, "Pos");

        ori =GetPrinterOrientation();

        if (ScilabPsToEps (ori, filename1, filename) == 0)
        {
                if (gp_printfile (hdllInstance, ScilabGC->hWndParent, filename,(char *) 0) == FALSE)    sciprint (MSG_ERROR78);
        }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void RefreshMenus

(

struct BCG *

ScilabGC

)

Definition at line 1013 of file wgmenu.c.

References CloseGraphMacros(), CreateGedMenus(), and BCG::CurWindow.

{

        int WinNum=ScilabGC->CurWindow;
        BOOL LockToolBar=ScilabGC->lpmw.LockToolBar;
        int nButton=ScilabGC->lpmw.nButton;
        BOOL StateToolBar=ScilabGC->lpmw.ShowToolBar;

        DestroyMenu(GetMenu(ScilabGC->hWndParent));
        ScilabGC->hMenuRoot=NULL;
        ScilabGC->IDM_Count=1;
        SetMenu(ScilabGC->hWndParent,NULL);

        CloseGraphMacros (ScilabGC);
        CreateGedMenus(ScilabGC);

        ScilabGC->lpmw.nButton=nButton;
        ScilabGC->lpmw.ShowToolBar=StateToolBar;
        ScilabGC->lpmw.LockToolBar=LockToolBar;

}

Here is the call graph for this function:

void ResetMenu

(

void

)

Definition at line 1894 of file wmenu.c.

Referenced by addmen(), and ON_WND_TEXT_WM_KEY().

{
        LPTW lptw=GetTextWinScilab();
        ReLoadMenus(lptw);
}   

Here is the caller graph for this function:

void SaveCurrentLine

(

BOOL

RewriteLineAtPrompt

)

Definition at line 145 of file x_zzledt.c.

Referenced by ON_WND_CONSOLE_WM_ENTERSIZEMOVE(), ON_WND_TEXT_WM_COMMAND(), SendGraphMacro(), and SendMacro().

{
        extern char cur_line[1024];

        if ( (get_is_reading ()) && (PutLineInBuffer == FALSE) )
        {
                strcpy(copycur_line,cur_line);
                if (RewriteLineAtPrompt) PutLineInBuffer=TRUE;
        }
}

Here is the caller graph for this function:

void SavePs

(

struct BCG *

ScilabGC

)

Definition at line 20 of file FigureToFile.c.

References CallTranslateMacroGraphicWindow(), tagLS::colored, dos2win32(), ExportBMP(), ExportEMF(), ExportStyle(), FALSE, filename, filename1, ierr, tagLS::land, ls, MAXSTR, ModifyFilenameExtension(), MSG_SCIMSG100, MSG_SCIMSG101, MSG_SCIMSG102, MSG_SCIMSG103, MSG_SCIMSG104, MSG_SCIMSG96, MSG_SCIMSG97, MSG_SCIMSG98, MSG_SCIMSG99, NULL, tagLS::ps_type, s, scig_toPs(), ScilabPsToEps(), ScilabPsToTeX(), SciOpenSave(), str, TRUE, tagLS::use_printer, and wininfo().

Referenced by AddNewWin(), scig_export(), and SendGraphMacro().

{
  char *d, ori;
  char filename[MAXSTR],filename1[MAXSTR];
  BYTE *s;
  char str[1024];
  char formatmacro[]= "[SAVESCG]Export to %s[EOS]%s[EOS]";
  int flag, ierr = 0;
  ls.use_printer = 0;
  if (ExportStyle (ScilabGC) == FALSE) return;

  d = filename;

  switch (ls.ps_type)
  {
    case 0:
                {
                        wsprintf(str,formatmacro,"Postscript","*.eps");
                        CallTranslateMacroGraphicWindow(str);
                        s = str;
                        flag = SciOpenSave (ScilabGC->hWndParent, &s,TRUE,&d, &ierr);
                        if (flag == 0 || ierr == 1) return;
                        *d = '\0';

                        ModifyFilenameExtension(filename,".pos");

                        SetCursor (LoadCursor (NULL, IDC_WAIT));
                        wininfo (MSG_SCIMSG96);
                        dos2win32 (filename, filename1);
                        scig_toPs (ScilabGC->CurWindow, ls.colored, filename1, "Pos");
                        ori = (ls.land == 1) ? 'l' : 'p';
                        ScilabPsToEps (ori, filename1, filename);
                        wininfo (MSG_SCIMSG97);
                        SetCursor (LoadCursor (NULL, IDC_CROSS));
                }
                break;
    case 1:
                {
                        wsprintf(str,formatmacro,"Postscript No Preamble","*.ps");

                        CallTranslateMacroGraphicWindow(str);
                        s = str;
                        flag = SciOpenSave (ScilabGC->hWndParent, &s,TRUE,&d, &ierr);
                        if (flag == 0 || ierr == 1) return;
                        *d = '\0';

                        ModifyFilenameExtension(filename,".ps");

                        SetCursor (LoadCursor (NULL, IDC_WAIT));
                        scig_toPs (ScilabGC->CurWindow, ls.colored, filename, "Pos");
                        wininfo (MSG_SCIMSG98);
                        SetCursor (LoadCursor (NULL, IDC_CROSS));
                }
                break;

    case 2:
                {
                        wsprintf(str,formatmacro,"Postscript-Latex","*.tex");

                        CallTranslateMacroGraphicWindow(str);
                        s = str;
                        flag = SciOpenSave (ScilabGC->hWndParent, &s,TRUE,&d, &ierr);
                        if (flag == 0 || ierr == 1) return;
                        *d = '\0';

                        ModifyFilenameExtension(filename,".tex");

                        SetCursor (LoadCursor (NULL, IDC_WAIT));
                        wininfo (MSG_SCIMSG99);
                        dos2win32 (filename, filename1);
                        scig_toPs (ScilabGC->CurWindow, ls.colored, filename1, "Pos");
                        ori = (ls.land == 1) ? 'l' : 'p';
                        ScilabPsToTeX (ori, filename1, filename, 1.0, 1.0);
                        wininfo (MSG_SCIMSG100);
                        SetCursor (LoadCursor (NULL, IDC_CROSS));
                }
    break;
    case 3:
                {
                        wsprintf(str,formatmacro,"Xfig","*.fig");
                        CallTranslateMacroGraphicWindow(str);
                        s = str;
                        flag = SciOpenSave (ScilabGC->hWndParent, &s,TRUE,&d, &ierr);
                        if (flag == 0 || ierr == 1) return;
                        *d = '\0';

                        ModifyFilenameExtension(filename,".fig");

                        SetCursor (LoadCursor (NULL, IDC_WAIT));
                        scig_toPs (ScilabGC->CurWindow, ls.colored, filename, "Fig");
                        wininfo (MSG_SCIMSG101);
                        SetCursor (LoadCursor (NULL, IDC_CROSS));
                }
                break;
    case 4:
                {
                        wsprintf(str,formatmacro,"gif","*.gif");
                        CallTranslateMacroGraphicWindow(str);
                        s = str;
                        flag = SciOpenSave (ScilabGC->hWndParent, &s,TRUE,&d, &ierr);
                        if (flag == 0 || ierr == 1) return;
                        *d = '\0';

                        ModifyFilenameExtension(filename,".gif");

                        SetCursor (LoadCursor (NULL, IDC_WAIT));
                        scig_toPs (ScilabGC->CurWindow, ls.colored, filename, "GIF");
                        wininfo (MSG_SCIMSG102);
                        SetCursor (LoadCursor (NULL, IDC_CROSS));
                }
                break;
    case 5:
                {
                        wsprintf(str,formatmacro,"PPM","*.ppm");
                        CallTranslateMacroGraphicWindow(str);
                        s = str;
                        flag = SciOpenSave (ScilabGC->hWndParent, &s,TRUE,&d, &ierr);
                        if (flag == 0 || ierr == 1) return;
                        *d = '\0';

                        ModifyFilenameExtension(filename,".ppm");

                        SetCursor (LoadCursor (NULL, IDC_WAIT));
                        scig_toPs (ScilabGC->CurWindow, ls.colored, filename, "PPM");
                        wininfo (MSG_SCIMSG103);
                        SetCursor (LoadCursor (NULL, IDC_CROSS));
                }
    break;
    case 6:
                {
                        wsprintf(str,formatmacro,"Bmp","*.bmp");
                        CallTranslateMacroGraphicWindow(str);
                        s = str;
                        flag = SciOpenSave (ScilabGC->hWndParent, &s,TRUE,&d, &ierr);
                        if (flag == 0 || ierr == 1) return;
                        *d = '\0';

                        ModifyFilenameExtension(filename,".bmp");

                        SetCursor (LoadCursor (NULL, IDC_WAIT));
                        ExportBMP(ScilabGC,filename);
                        wininfo (MSG_SCIMSG104);
                        SetCursor (LoadCursor (NULL, IDC_CROSS));
                }
    break;
    case 7:
                {
                        wsprintf(str,formatmacro,"Enhanced Metafile","*.emf");
                        CallTranslateMacroGraphicWindow(str);
                        s = str;
                        flag = SciOpenSave (ScilabGC->hWndParent, &s,TRUE,&d, &ierr);
                        if (flag == 0 || ierr == 1) return;
                        *d = '\0';

                        ModifyFilenameExtension(filename,".emf");

                        SetCursor (LoadCursor (NULL, IDC_WAIT));
                        ExportEMF(ScilabGC,filename);
                        wininfo (MSG_SCIMSG104);
                        SetCursor (LoadCursor (NULL, IDC_CROSS));
                }
    break;
  }
        
}

Here is the call graph for this function:

Here is the caller graph for this function:

static void SciChMenu	(	LPMW	lpmw,
		char *	name,
		char *	new_name
	)			[static]

Definition at line 638 of file wgmenu.c.

References buf, tagMW::hMenu, i, id, and is.

Referenced by chmenu().

{
  int i, is, id, Nums = GetMenuItemCount (lpmw->hMenu);
  for (i = 0; i < Nums; i++)
    {
      char buf[256];
      is = GetMenuString (lpmw->hMenu, i, buf, 256, MF_BYPOSITION);
      buf[is] = '\0';
      if (strcmp (buf, name) == 0)
        {
          id = GetMenuItemID (lpmw->hMenu, i);
          ModifyMenu (lpmw->hMenu, i, MF_BYPOSITION | MF_STRING, id, new_name);
        }
    }
}

Here is the caller graph for this function:

static void SciDelMenu	(	LPMW	lpmw,
		char *	name
	)			[static]

Definition at line 678 of file wgmenu.c.

References buf, tagMW::hMenu, i, id, is, j, and tagMW::macro.

Referenced by delbtn().

{
  int i, is, id, Nums = GetMenuItemCount (lpmw->hMenu);
  for (i = 0; i < Nums; i++)
    {
      char buf[256];
      is = GetMenuString (lpmw->hMenu, i, buf, 256, MF_BYPOSITION);
      buf[is] = '\0';
      if (strcmp (buf, name) == 0)
        {
          int j, Nums1;
          HMENU hSubMenu;
          hSubMenu = GetSubMenu (lpmw->hMenu, i);
          if (hSubMenu != NULL)
            {
              Nums1 = GetMenuItemCount (hSubMenu);
              for (j = 0; j < Nums1; j++)
                {
                  id = GetMenuItemID (hSubMenu, j);
                  if (id < 0 || is == 0)
                    continue;
                  if (lpmw->macro[id] != (BYTE *) 0)
                    {
                      LocalFree (lpmw->macro[id]);
                      lpmw->macro[id] = (BYTE *) 0;
                    }
                }
            }
          else
            {
              id = GetMenuItemID (lpmw->hMenu, i);
              if (id < 0 || is == 0)
                continue;
              if (lpmw->macro[id] != (BYTE *) 0)
                {
                  LocalFree (lpmw->macro[id]);
                  lpmw->macro[id] = (BYTE *) 0;
                }
            }
          DeleteMenu (lpmw->hMenu, i, MF_BYPOSITION);
          return;
        }
    }
}

Here is the caller graph for this function:

static void scig_command_scilabgc	(	int	number,
		void	f(struct BCG *)
	)			[static]

Definition at line 904 of file wgmenu.c.

References BCG::CWindow, f(), and getWindowXgcNumber().

Referenced by scig_export(), scig_h_copyclip(), scig_h_copyclip1(), and scig_print().

{
  struct BCG *ScilabGC = getWindowXgcNumber (number);
  if (ScilabGC != NULL && ScilabGC->CWindow && IsWindow (ScilabGC->CWindow))
    f (ScilabGC);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void scig_export

(

integer

number

)

Definition at line 926 of file wgmenu.c.

{
  scig_command_scilabgc (number, SavePs);
}

void scig_h_copyclip

(

integer

number

)

Definition at line 911 of file wgmenu.c.

References CopyToClipboardEMF(), and scig_command_scilabgc().

{
  scig_command_scilabgc (number, CopyToClipboardEMF);
}

Here is the call graph for this function:

void scig_h_copyclip1

(

integer

number

)

Definition at line 916 of file wgmenu.c.

References CopyToClipboardBitmap(), and scig_command_scilabgc().

{
  scig_command_scilabgc (number, CopyToClipboardBitmap);
}

Here is the call graph for this function:

void scig_print

(

integer

number

)

Definition at line 921 of file wgmenu.c.

{
  scig_command_scilabgc (number, PrintPs);
}

void scig_savesg	(	int	win_num,
		char *	filename
	)

Definition at line 225 of file Actions.c.

References C2F, FREE, GET_NB_DIGITS, MALLOC, NULL, and syncexec().

Referenced by SendGraphMacro().

{
  integer ierr ;
  integer seq = 1 ;
  char * macroCall = NULL ;

  /* the sting is "xsave('(1)',(2))" where (1) is filemame and (2) the string */
  /* corresponding of win_num. Consequently we have 10 fixed character and two variable strings. */
  int macroCallLength = 10 + strlen(filename) + GET_NB_DIGITS(win_num) ;

  macroCall = MALLOC( (macroCallLength+1) * sizeof(char) ) ; /* +1 for the \0 terminating character */

  sprintf( macroCall, "xsave('%s',%d)", filename, win_num ) ; /* call xsave macro */
  C2F(syncexec)(macroCall,&macroCallLength,&ierr,&seq, macroCallLength );
  FREE( macroCall ) ;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void ScilabMenuAction

(

char *

buf

)

Definition at line 197 of file wgmenu.c.

References C2F, F2C(), fbutn(), FREE, MALLOC, NULL, rep, setfbutn(), StoreCommand1(), and strchr().

{
        if (strlen (buf) > 2 && buf[0] == '@')
        {
            if (buf[1] == '0')
                {
                  /* Interpreted mode : we store the action on a queue */
                  StoreCommand1 (buf + 2, 0);
                }
            else
                {
                        /* hard coded mode */
                        int rep, win, entry;
                        char *tmp=NULL;
                        char *LocalBuf=(char*)MALLOC((strlen(buf)+1)*sizeof(char));
                        char *FunctionName=(char*)MALLOC((strlen(buf)+1)*sizeof(char));
                        wsprintf(LocalBuf,"%s",buf+strlen("@1")+strlen("execstr("));
                        /*remove last char ')' */
                        LocalBuf[strlen(LocalBuf)-1]='\0';

                        if ( ( tmp = strchr (LocalBuf, '_') ) != NULL )
                        {
                                sscanf (tmp + 1, "%d(%d)", &win, &entry);
                                entry--;
                                strncpy(FunctionName,LocalBuf,strlen(LocalBuf)-strlen(tmp));
                                *tmp = '\0';
                        }
                        else
                        {
                                win = -1;
                                if ((tmp = strchr (LocalBuf, '(')) != NULL)
                                {
                                        char *tmpbis=NULL;
                                        sscanf (tmp, "(%d)", &entry);
                                        
                                        if ( ( tmpbis = strchr (LocalBuf, '(') ) != NULL )
                                        {
                                                strncpy(FunctionName,LocalBuf,strlen(LocalBuf)-strlen(tmpbis));
                                        }

                                        entry--;
                                        *tmp = '\0';
                                }
                        }

                        C2F (setfbutn) (FunctionName, &rep);
                        if (rep == 0)
                        {
                                F2C (fbutn) (FunctionName, &(win), &(entry));
                        }

                        if (FunctionName) {FREE(FunctionName);FunctionName=NULL;}
                        if (LocalBuf) {FREE(LocalBuf);LocalBuf=NULL;}
                }
        }
        else 
        {
                if (buf[0] != '\0')
                {
                        if (strlen (buf) == 1 && buf[0] <= 31 && buf[0] >= 1) 
                        {
                                StoreCommand1 (buf, 0);
                        }
                        else
                        {
                                StoreCommand1 (buf, 1);
                        }
                }
        }
}

Here is the call graph for this function:

static void SciSetMenu	(	HMENU	hmen,
		char *	name,
		int	num,
		int	flag
	)			[static]

Definition at line 584 of file wgmenu.c.

References buf, i, and is.

Referenced by setmen(), and unsmen().

{
  int i, is, Nums = GetMenuItemCount (hmen);
  for (i = 0; i < Nums; i++)
    {
      char buf[256], *ptr;
      is = GetMenuString (hmen, i, buf, 256, MF_BYPOSITION);
      buf[is] = '\0';
      if ((ptr = strstr (buf, "&")) != NULL)
        lstrcpy (ptr, ptr + 1);
      if (strcmp (buf, name) == 0)
        {
          if (num == 0)
            EnableMenuItem (hmen, i, flag | MF_BYPOSITION);
          else
            {
              HMENU hSubMenu;
              hSubMenu = GetSubMenu (hmen, i);
              if (hSubMenu != NULL)
                {
                  EnableMenuItem (hSubMenu, num - 1, flag | MF_BYPOSITION);
                }
            }
        }
    }
}

Here is the caller graph for this function:

void SendGraphMacro	(	struct BCG *	ScilabGC,
		UINT	m
	)

Definition at line 38 of file wgmenu.c.

References buf, C2F, Callback_PRINTSETUP(), CLEARWG, CLOSE, CMDMAX, CMDMIN, COPYCLIP, COPYCLIP1, CopyPrint(), CopyToClipboardBitmap(), CopyToClipboardEMF(), BCG::CurWindow, BCG::CWindow, deletewin(), FALSE, free(), HideGraphToolBar(), ierr, L, LOADSCG, M_WRITEINI, MAXSTR, NEWFIG, NewFigure(), NULL, NUMMENU, PrintPs(), PRINTSETUP, REDRAW, ROT3D, s, SaveCurrentLine(), SavePs(), SAVESCG, scig_2dzoom(), scig_3drot(), scig_erase(), scig_loadsg(), scig_replay(), scig_savesg(), scig_sel(), scig_unzoom(), SCIGSEL, ScilabMenuAction(), SciOpenSave(), SCIPR, SCIPS, ShowGraphToolBar(), TOOLBARGRAPH, TRUE, UNZOOM, UPDINI, wininfo(), and ZOOM.

{
  BYTE *s;
  char *d;
  char *buf;
  BOOL flag = TRUE;
  wininfo (" ");
  if ((buf = LocalAlloc (LPTR, MAXSTR + 1)) == (char *) NULL)
    return;
  if (m >= NUMMENU || (int)m < 0)
    return;
  s = ScilabGC->lpmw.macro[m];
  d = buf;
  *d = '\0';
  while (s && *s && (d - buf < MAXSTR))
    {
      if (*s >= CMDMIN && *s <= CMDMAX)
        {
          int ierr = 0;
          
          switch (*s)
            {
            case TOOLBARGRAPH:
              if (ScilabGC->lpmw.LockToolBar == FALSE)
                {
                  if (ScilabGC->lpmw.ShowToolBar)       HideGraphToolBar(ScilabGC);
                  else ShowGraphToolBar(ScilabGC);
                }
              s++;
              break;
            case NEWFIG:
              SaveCurrentLine(TRUE);
              NewFigure(ScilabGC);
              s++;
              break;
            case ZOOM:
              scig_2dzoom (ScilabGC->CurWindow);
                  
              s++;
              break;
            case UNZOOM:
              scig_unzoom (ScilabGC->CurWindow);
                  
              s++;
              break;
            case ROT3D:
              scig_3drot (ScilabGC->CurWindow);
                  
              s++;
              break;
                case PRINTSETUP:
                        Callback_PRINTSETUP();
                        s++;
                        break;
            case PRINT:
              CopyPrint (ScilabGC);
              s++;
              break;
            case COPYCLIP:
              {
                CopyToClipboardEMF (ScilabGC);
                s++;
              }
              break;
            case COPYCLIP1:
              CopyToClipboardBitmap (ScilabGC);
              s++;
              break;
            case REDRAW:
              scig_replay (ScilabGC->CurWindow);
              s++;
              break;
            case CLEARWG:
              scig_erase (ScilabGC->CurWindow);
              s++;
              break;
            case SCIPS:
                {
                        char *SaveCurrentPath=NULL;
                        SaveCurrentPath=_getcwd( NULL, 0 );
                        SavePs (ScilabGC);
                        if (SaveCurrentPath)
                        {
                                _chdir(SaveCurrentPath);
                                free(SaveCurrentPath); /* here must be a "little" free with _getcwd*/
                                SaveCurrentPath=NULL;
                        }
                        s++;
                }
              break;
            case SCIPR:
              PrintPs (ScilabGC);
              s++;
              break;
            case SCIGSEL:
              scig_sel (ScilabGC->CurWindow);
              s++;
              break;
            case LOADSCG:
              flag = SciOpenSave (ScilabGC->hWndParent, &s,FALSE,&d, &ierr);
              if (flag == 0 || ierr == 1)
                {
                  LocalFree (buf);
                  return;
                }
              *d = '\0';
              scig_loadsg (ScilabGC->CurWindow, buf);
              break;
            case SAVESCG:
              flag = SciOpenSave (ScilabGC->hWndParent, &s,TRUE,&d, &ierr);
              if (flag == 0 || ierr == 1)
                {
                  LocalFree (buf);
                  return;
                }
              *d = '\0';
              /*C2F (xsaveplots) (&(ScilabGC->CurWindow), buf, 0L);*/
              scig_savesg( ScilabGC->CurWindow, buf ) ;
              break;
            case UPDINI:
              SendMessage (ScilabGC->CWindow, WM_COMMAND, M_WRITEINI, 0L);
              s++;
              break;
            case CLOSE:
              C2F (deletewin) (&(ScilabGC->CurWindow));
              s++;
              break;
            default:
              s++;
              break;
            }
          d = buf;
          s = (BYTE *) "";
        }
      else
        {
          *d++ = *s++;
        }
    }
  *d = '\0';
  ScilabMenuAction (buf);
  LocalFree (buf);

}

Here is the call graph for this function:

BOOL SendMacroEntityPicker	(	struct BCG *	ScilabGC,
		int	id
	)

Definition at line 1083 of file wgmenu.c.

References command, BCG::CurWindow, FALSE, IsEntityPickerMenu(), ModifyEntityPickerToolbar(), StoreCommand(), and TRUE.

Referenced by ON_WND_GRAPH_WM_COMMAND().

{
        BOOL bOK=FALSE;
        char command[1024];
        
        if (IsEntityPickerMenu(ScilabGC,id))
        {
                if (id == 23)
                {
                        wsprintf(command,"ged(10,%d);",ScilabGC->CurWindow); /* Start */
                        ModifyEntityPickerToolbar(ScilabGC,TRUE);
                        StoreCommand(command);
                        bOK=TRUE;
                }

                if (id == 24)
                {
                        wsprintf(command,"ged(11,%d);",ScilabGC->CurWindow); /* Stop */
                        ModifyEntityPickerToolbar(ScilabGC,FALSE);
                        StoreCommand(command);
                        bOK=TRUE;
                }
        }
        
        return bOK;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() setmen	(	integer *	win_num,
		char *	button_name,
		integer *	entries,
		integer *	ptrentries,
		integer *	ne,
		integer *	ierr
	)

Definition at line 541 of file wgmenu.c.

{
  struct BCG *ScilabGC;
  if (*win_num == -1)
    {
      SciSetMenu (textwin.lpmw->hMenu, button_name, *ne, MF_ENABLED);
      DrawMenuBar (textwin.hWndParent);
    }
  else
    {
      ScilabGC = getWindowXgcNumber (*win_num);
      if (ScilabGC != (struct BCG *) 0)
        {
          SciSetMenu (ScilabGC->lpmw.hMenu, button_name, *ne, MF_ENABLED);
          DrawMenuBar (ScilabGC->hWndParent);
        }
    }
  return (0);
}

void ShowGraphToolBar

(

struct BCG *

ScilabGC

)

Definition at line 34 of file Toolbar.c.

{
        int i=0;

        ScilabGC->lpmw.ShowToolBar=TRUE;
        for (i=0;i<ScilabGC->lpmw.nButton;i++)
        {
                ShowWindow(ScilabGC->lpmw.hButton[i],SW_SHOWNORMAL);
        }
}

static void TranslateMacro

(

char *

string

)

[static]

Definition at line 289 of file wgmenu.c.

References i, keyeq, keyword, len, and NULL.

Referenced by CallTranslateMacroGraphicWindow(), LoadGraphMacros(), and LoadMacros().

{
  int i, len;
  LPSTR ptr;
  for (i = 0; keyword[i] != (char *) NULL; i++)
    {
      if ((ptr = strstr (string, keyword[i])) != NULL)
        {
          len = lstrlen (keyword[i]);
          *ptr = keyeq[i];
          lstrcpy (ptr + 1, ptr + len);
          i--;                  /* allows for more than one occurrence of keyword */
        }
    }
}

Here is the caller graph for this function:

int C2F() unsmen	(	integer *	win_num,
		char *	button_name,
		integer *	entries,
		integer *	ptrentries,
		integer *	ne,
		integer *	ierr
	)

Definition at line 563 of file wgmenu.c.

{
  struct BCG *ScilabGC;
  if (*win_num == -1)
    {
      SciSetMenu (textwin.lpmw->hMenu, button_name, *ne, MF_GRAYED);
      DrawMenuBar (textwin.hWndParent);
    }
  else
    {
      ScilabGC = getWindowXgcNumber (*win_num);
      if (ScilabGC != (struct BCG *) 0)
        {
          SciSetMenu (ScilabGC->lpmw.hMenu, button_name, *ne, MF_GRAYED);
          DrawMenuBar (ScilabGC->hWndParent);
        }
    }
  return (0);
}

void UpdateFileGraphNameMenu

(

struct BCG *

ScilabGC

)

Definition at line 931 of file wgmenu.c.

References tagMW::CodeLanguage, FALSE, FILEGRAPHMENUENGLISH, FILEGRAPHMENUFRENCH, FREE, GetScilabDirectory(), GetTextWinScilab(), IsWindowInterface(), tagTW::lpmw, MALLOC, MAX_PATH, and ScilexWindowName.

{
#define FILEGRAPHMENUFRENCH "wgscilabF.mnu"
#define FILEGRAPHMENUENGLISH "wgscilabE.mnu"
  extern char ScilexWindowName[MAX_PATH];
  char *ScilabDirectory=NULL;

  HWND hWndTmpScilex=FindWindow(NULL,ScilexWindowName);
  int LangCode=0; /*English*/

  if (IsWindowInterface())
    {
      if (hWndTmpScilex)
        {
          LPTW lptw=GetTextWinScilab();
          LangCode=lptw->lpmw->CodeLanguage;
        }
      else LangCode=0;
    }
  else LangCode=0;
  ScilabGC->lpmw.CodeLanguage=LangCode;

  ScilabDirectory=GetScilabDirectory(FALSE);
        
  if (ScilabGC->lpgw->szMenuName!=NULL) FREE(ScilabGC->lpgw->szMenuName);
  ScilabGC->lpgw->szMenuName = (LPSTR) MALLOC (strlen (ScilabDirectory) +strlen("\\bin\\")+ strlen (FILEGRAPHMENUENGLISH) + 1);
        
  switch (LangCode)
  {
    case 1:
          wsprintf(ScilabGC->lpgw->szMenuName,"%s\\bin\\%s",ScilabDirectory, FILEGRAPHMENUFRENCH);
      break;
    default : case 0:
          wsprintf(ScilabGC->lpgw->szMenuName,"%s\\bin\\%s",ScilabDirectory, FILEGRAPHMENUENGLISH);
      break;
  }

  if (ScilabDirectory){FREE(ScilabDirectory);ScilabDirectory=NULL;}     
}

Here is the call graph for this function:

int WGFindMenuPos

(

BYTE **

macros

)

Definition at line 465 of file wgmenu.c.

References i, and NUMMENU.

{
  int i;
  for (i = 0; i < NUMMENU; i++)
    {
      if (macros[i] == (BYTE *) 0)
        return (i);
    }
  return (NUMMENU);
}

void write_scilab

(

char *

buf

)

Definition at line 274 of file wgmenu.c.

{
  if ( IsWindowInterface() ) Write_Scilab_Window(buf);
  else Write_Scilab_Console(buf);
  
}

void Write_Scilab_Console

(

char *

buf

)

Referenced by write_scilab().

Here is the caller graph for this function:

void Write_Scilab_Window

(

char *

buf

)

Definition at line 124 of file readline.c.

References buffer, clear_line(), copy_line(), GetCurrentPrompt(), tagTW::hWndText, IsWindowInterface(), L, prompt, and textwin.

Referenced by write_scilab().

{
        if (IsWindowInterface())
        {
                char *d;
                char buffer[1024];
                if ( ( buf[strlen(buf)-1] != '\n' ) && ( buf[strlen(buf)-1] != '\r' ) )
                {
                        strcpy(buffer,buf);
                        strcat(buffer,"\n");
                }
                else
                {
                        strcpy(buffer,buf);
                }
        
                if (buffer[0] != '\0')
                {
                        d       = buffer;
                        while (*d)
                        {
                                SendMessage (textwin.hWndText, WM_CHAR, *d, 1L);
                                d++;
                        }
                }
        }
        else
        {
                char prompt[10];
                GetCurrentPrompt(prompt);
                clear_line (prompt);
                copy_line (buf);
        }
}

Here is the call graph for this function:

Here is the caller graph for this function:

---

Variable Documentation

HINSTANCE hdllInstance

Definition at line 88 of file wtext.c.

---