Class new title: BrowseWindow
	subclassof: PanedWindow
	fields: ''
	declare: 'stdTemplates '

classInit 
	[stdTemplates _ (0  0 rect: 10  14) , (10  0 rect: 18  14) , (18  0 rect: 28  14) , (28  0 rect: 36  14) , (0  14 rect: 36  36)]

default | t1 t2 t3 t4 t5 
	[t1 _ SystemPane new.
	t2 _ ClassPane new.
	t3 _ OrganizationPane new.
	t4 _ SelectorPane new.
	t5 _ CodePane new.
	self title: 'Classes' with: t1 , t2 , t3 , t4 , t5 at: stdTemplates.
	self newframe.
	self show.
	t1 to: t2.
	t2 from: t1 to: t3.
	t3 from: t2 to: t4.
	t4 from: t3 to: t5.
	t5 from: t4.
	t1 update]