Re: Geometry of initial window?

From: Erick Gallesio <eg_at_kaolin.unice.fr>
Date: Mon, 23 Jan 1995 13:55:24 +0000

> I can't seem to get the geometry of the initial window to be set,
> either from the command line with:
>
> % stk -geometry 200x200+0+0
>
> or by using resources:
>
> STk.geometry: 200x200+100+100
> stk.geometry: 200x200+100+100
>
> Am I supposed to be doing this a different way?

No it is correct. The only problem is that ... I have forgot the code which
manage the argument geometry.

Following patch will do the job (go in Src directory before applying it)

*** tk-main.c~ Tue Jan 10 22:24:04 1995
--- tk-main.c Mon Jan 23 13:48:44 1995
***************
*** 6,12 ****
   *
   * Author: Erick Gallesio [eg_at_unice.fr]
   * Creation date: 13-May-1993 10:59
! * Last file update: 10-Jan-1995 22:24
   *
   *
   * Code used here was originally copyrigthed as shown below:
--- 6,12 ----
   *
   * Author: Erick Gallesio [eg_at_unice.fr]
   * Creation date: 13-May-1993 10:59
! * Last file update: 23-Jan-1995 13:48
   *
   *
   * Code used here was originally copyrigthed as shown below:
***************
*** 134,139 ****
--- 134,149 ----
    init_tracevar(); /* Initialize the variable tracing mechanism */
    init_glue();
    tk_initialized = 1; /* Ok, it's fully initialized */
+
+ /*
+ * Set the geometry of the main window, if requested.
+ */
+
+ if (geometry != NULL) {
+ if (TCL_OK != Tcl_VarEval(main_interp, "(wm 'geometry *root* '",
+ geometry, ")", NULL))
+ fprintf(stderr, "**** Warning: %s\n", main_interp->result);
+ }
  
    /*
     * Execute Stk's initialization script, followed by the script specified

                -- Erick
Received on Mon Jan 23 1995 - 13:57:25 CET