What: layout
 Where: http://pcco2.mi.infn.it/sd/soft/sdtcl/layout.html  
 Description: Tk Procedure called layout which implements a 'frontend'
        to geometry managers implementing a different language
        for describing relationships of the pieces to be
        displayed.
 Updated: 09/2001
 Contact: See the distribution

 set lay {
        #- Day
        goto_day/beg - -


        #- View
        r=1d/view   r=2d/view   r=4d/view
        r=w/view    r=m/view    r=y/view


        #- Shift ahead
        r=period/shift r=double_period/shift r=day/shift
        r=week/shift   r=month/shift         r=year/shift


        #- Shift back
        r=_period/shift r=_double_period/shift r=_day/shift
        r=_week/shift   r=_month/shift         r=_year/shift
 }
 sd::layout $lay -top -grid -arr Cal -side left -frame