Re: set term win title

> But, I am sorry that the following patch is for gnuplot-4.0.0
> since I cannot build the wgnuplot for gnuplot-4.3.0 and
> gnuplot-4.2.X by VC++ Toolkit 2003 in my computer.
>
> ----- From Here -----
> diff -uN term/win.trm.ORG term/win.trm
> --- term/win.trm.ORG Thu May 15 10:24:52 2008
> +++ term/win.trm Thu May 15 10:36:29 2008
> @@ -118,7 +118,10 @@
>  
>  /* Interface routines - create list of actions for Windows */
>  
> -enum WIN_id { WIN_DEFAULT, WIN_MONOCHROME, WIN_COLOR, WIN_OTHER };
> +enum WIN_id { WIN_DEFAULT, WIN_MONOCHROME, WIN_COLOR,
> + /* shige */
> + WIN_GTITLE,
> + WIN_OTHER };
>  
>  static struct gen_table WIN_opts[] =
>  {
> @@ -126,15 +129,25 @@
>      { "m$onochrome", WIN_MONOCHROME },
>      { "c$olor", WIN_COLOR },
>      { "c$olour", WIN_COLOR },
> +    /* shige */
> +    { "ti$tle", WIN_GTITLE },
>      { NULL, WIN_OTHER }
>  };
>  
> +/* shige */
> +static char WIN_gtitle[MAXTITLELEN] = WINGRAPHTITLE;
> +
>  static int WIN_last_linetype = -3; /* HBB 20000813: linetype caching */
>  
>  TERM_PUBLIC void
>  WIN_options()
>  {
>      struct value a;
> +    /* shige */
> +    TBOOLEAN set_title=FALSE;
> +
> +    /* shige */
> +    graphwin.Title = WIN_gtitle;
>  
>      while (!END_OF_COMMAND) {
>   switch(lookup_table(&WIN_opts[0],c_token)) {
> @@ -142,6 +155,9 @@
>      graphwin.color = TRUE;
>      strcpy(graphwin.fontname, WINFONT);
>      graphwin.fontsize = WINFONTSIZE;
> +    /* shige */
> +    graphwin.Title = WINGRAPHTITLE;
> +    set_title = TRUE;
>      c_token++;
>      break;
>   case WIN_MONOCHROME:
> @@ -152,6 +168,19 @@
>      graphwin.color = TRUE;
>      c_token++;
>      break;
> + /* shige */
> + case WIN_GTITLE:
> +    c_token++;
> +    if (END_OF_COMMAND)
> +        int_error(c_token, "expecting title text");
> +    if (isstring(c_token))
> +       quote_str( WIN_gtitle, c_token, MAXTITLELEN );
> +    else
> + copy_str( WIN_gtitle, c_token, MAXTITLELEN );
> +    c_token++;
> +    set_title = TRUE;
> +    graphwin.Title = WIN_gtitle;
> +    break;
>   case WIN_OTHER:
>   default:
>      if (isstring(c_token)) {
> @@ -174,6 +203,8 @@
>  
>      if (IsWindow(graphwin.hWndGraph) && IsIconic(graphwin.hWndGraph))
>   ShowWindow(graphwin.hWndGraph, SW_SHOWNORMAL);
> +    /* shige */
> +    if (set_title) GraphChangeTitle(&graphwin);
>  
>      GraphRedraw(&graphwin);
>  }
> diff -uN src/win/wgnuplib.h.ORG src/win/wgnuplib.h
> --- src/win/wgnuplib.h.ORG Thu May 15 10:23:46 2008
> +++ src/win/wgnuplib.h Thu May 15 10:31:16 2008
> @@ -344,6 +344,10 @@
>  #define WIN30FONT "Courier"
>  #define WINFONT "Arial"
>  
> +/* shige */
> +#define MAXTITLELEN 120
> +#define WINGRAPHTITLE "gnuplot graph"
> +
>  #if 0
>  enum JUSTIFY {
>   LEFT, CENTRE, RIGHT
> @@ -354,6 +358,8 @@
>  void WDPROC GraphClose(LPGW lpgw);
>  void WDPROC GraphStart(LPGW lpgw, double pointsize);
>  void WDPROC GraphEnd(LPGW lpgw);
> +/* shige */
> +void WDPROC GraphChangeTitle(LPGW lpgw);
>  void WDPROC GraphResume(LPGW lpgw);
>  void WDPROC GraphOp(LPGW lpgw, WORD op, WORD x, WORD y, LPCSTR str);
>  void WDPROC GraphPrint(LPGW lpgw);
> diff -uN src/win/wgraph.c.ORG src/win/wgraph.c
> --- src/win/wgraph.c.ORG Thu May 15 10:23:46 2008
> +++ src/win/wgraph.c Thu May 15 10:32:01 2008
> @@ -443,6 +443,13 @@
>  #endif
>  }
>  
> +/* shige */
> +void WDPROC
> +GraphChangeTitle(LPGW lpgw)
> +{
> + SetWindowText(lpgw->hWndGraph,lpgw->Title);
> +}
> +
>  void WDPROC
>  GraphResume(LPGW lpgw)
>  {
> diff -uN src/win/winmain.c.ORG src/win/winmain.c
> --- src/win/winmain.c.ORG Thu May 15 10:23:46 2008
> +++ src/win/winmain.c Thu May 15 10:33:12 2008
> @@ -241,7 +241,12 @@
>  
>   graphwin.hInstance = hInstance;
>   graphwin.hPrevInstance = hPrevInstance;
> + /* shige */
> +#if 0
>   graphwin.Title = "gnuplot graph";
> +#else
> + graphwin.Title = WINGRAPHTITLE;
> +#endif
>   graphwin.lptw = &textwin;
>   graphwin.IniFile = textwin.IniFile;
>   graphwin.IniSection = textwin.IniSection;
> ----- To Here -----
>
> +========================================================+
>  Shigeharu TAKENO     NIigata Institute of Technology
>                        kashiwazaki,Niigata 945-1195 JAPAN
>  shige@...   TEL(&FAX): +81-257-22-8161
> +========================================================+
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Microsoft
> Defy all challenges. Microsoft(R) Visual Studio 2008.
> http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
> _______________________________________________
> gnuplot-beta mailing list
> gnuplot-beta@...
> https://lists.sourceforge.net/lists/listinfo/gnuplot-beta
>