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

if nargin < 1
	command_str = 'initialize';
end

if ~strcmp(command_str,'initialize')
	handles = get(gcf,'userdata');
	h_slider = handles(1);
	
end
if strcmp(command_str,'initialize')

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

	
elseif strcmp(command_str,'Change Moved')
value = str2num(get(h_slider,'string'));
h_slider
end;