function slidergui(command_str)
% Slider
%
% Simple Example of creating slider GUIs.

if nargin < 1
	command_str = 'initialize';
end

if strcmp(command_str,'initialize')

	h_fig = figure(1);
    clf;
		
	h_slider = uicontrol(h_fig,...
		'callback','slidergui(''Slider Moved'');',...
		'style','slider',...
		'min',-100,'max',100,...
		'position',[25 20 150 20]);

	set(h_fig,'userdata',h_slider);
else 
    h_slider = get(gcf,'userdata');
	value = get(h_slider,'value');
    disp(value);

end;