Class new title: VariablePane
	subclassof: ListPane
	fields: 'valuePane values context'
	declare: 'varmenu '

classInit 
	[varmenu _ Menu new string: 'inspect']

compile: t1 
	[window flash.
	false]

deselected 
	[valuePane showing: '']

execute: t1 for: t2 
	[valuePane _ t2.
	valuePane execute: t1 in: context to: values  1]

names: t1 values: t2 wrt: t3 
	[values _ t2.
	context _ t3.
	self of: t1]

selected 
	[valuePane showing: self value asString]

to: t1 
	[valuePane _ t1]

value 
	[selection = 1  [values  1]
	values  2 inspectfield: selection - 1]

yellowbug 
	[selection = 0  [window flash]
	scrollBar hidewhile 
		[varmenu bug = 1  [self value inspect]
		nil]]