[GRASSLIST:5940] Re: Add location name to GIS Manager window name and to shell prompt

[Markus Neteler]

On Mon, Feb 14, 2005 at 10:44:41AM +0100, Lorenzo Moretti wrote:
> Hi
> Grass 6.0 is multisession and now it's possible to open more 
> locations but all windows and the prompt have the same name and it's 
> difficult to navigate between the windows.
> 
> It's useful to change these rows:
> 
> lib/init/init.sh
> 
> row 625
> -   echo "GRASS GRASS_VERSION_NUMBER > '" >> "$cshrc"
> +   echo "GRASS GRASS_VERSION_NUMBER - $LOCATION_NAME > '" >> "$cshrc"
> 
> row 667
> -   echo "PS1='GRASS GRASS_VERSION_NUMBER:\w > '" >> "$bashrc"
> +   echo "PS1='GRASS GRASS_VERSION_NUMBER:\w - $LOCATION_NAME > '" >> 
> "$bashrc"

Then the prompt will become rather long, right? 

> 
> display/d.m/d.m.tcl
> 
> row 205
> proc Dm::_create_intro { } {
>     global dmpath
>     global GRASSVERSION
> +   global location_name
>     variable max_prgindic
> 
>     set top [toplevel .intro -relief raised -borderwidth 2]
> 
>     wm withdraw $top
>     wm overrideredirect $top 1
> 
>     set ximg  [label $top.x -image [image create photo -file 
> "$dmpath/intro.gif"] ]
> 
>     set frame [frame $ximg.f -background white]
> -    set lab1  [label $frame.lab1 -text "GRASS $GRASSVERSION GIS Manager" \
> +    set lab1  [label $frame.lab1 -text "GRASS $GRASSVERSION GIS 
> Manager - $location_name" \
> 
> row 846
> proc main {argc argv} {
>     global auto_path
>     global GRASSVERSION
> +   global location_name
> 
>     wm withdraw .
> -   wm title . [G_msg "GRASS $GRASSVERSION GIS Manager"]
> +   wm title . [G_msg "GRASS $GRASSVERSION GIS Manager - $location_name"]

This one I'll leave to Michael.

> Also it's useful to add the location name to x0 (x1,x2,etc.) monitor 
> name in display/drivers/XDRIVER/XDRIVER24/Graph_Set.c

Done.

 Markus