#!out -h


                          %% 
message $this.msg -font -Adobe-times-medium-r-normal--*-180* -relief raised -width 300 \
-borderwidth 1 -text  "Software Engineering (1993)"
$this append msg
%%
                                                                              %%
canvas $this.canvas -width 150 -height 150 
set v [vsphere $this.canvas sphere 0 0 150 150 blue]
$this append canvas

set spherx 0
set sphery 0

proc upp {h v} {
global spherx sphery
after 140 upp $h $v
set spherx [expr $spherx+1]
set sphery [expr $sphery-1]
rotsphere $h.canvas $v {} $spherx $sphery
}
upp $this $v
%%

Het practicum Software Engineering heeft een nieuwe opzet.

Er is een manual %%
button $this.xseman -text xseman -command xseman-comm
$this append xseman
proc xseman-comm {} {
exec /usr/prac/se/bin/xseman &
}
%% waarin algemene informatie over de organisatie
van het practicum en de opdrachten staat.

Tevens is er een aparte manual %%
button $this.xtkman -text xtkman -command "exec /usr/prac/se/hush/bin/xtkman &"
$this append xtkman
%% waarin de informatie over de
gebruikte toolkit en bijbehorende C++ bibliotheek opgenomen is.

De manuals verschijnen op het scherm door op de buttons te klikken.
%%
global EOT
set EOT [expr $thisline-1 ]
%%
Druk op %%
button $this.quit -command { destroy . } -text quit 
$this append quit
%% om dit venster te sluiten.
