{ class App Usr }
{ class TopApp App }

{ meth TopApp handle:
  "Default class for handling '/'."

  Map new  at: 'type' pu: 'list'
  	, at 'title' pu a
  	, at 'value' pu [
	  [ 'link:/Browse:Browse' . 'Browse Classes.' ] vec
	  [ 'link:/Cls:Cls' . 'The class named <Cls>.' ] vec
	] vec
	.
}
{ class Browse App }
{ meth Browse handle:

  Map new  at: 'type' pu: 'list'
  	, at 'title' pu a
  	, at 'extra' pu ( Sys globalMap )
  	, at 'value' pu [
	  [ 'link:/Browse:Browse' . 'Browse Classes.' ] vec
	] vec
	.
  
}
