% Demo script for fitpath.m
%
% Example:
%   demo
%
% Will bring up the demonstration GUI. Click on the button, browse for a file with
% a long path and see it truncated in the GUI. Don't worry it won't do anything
% with the actual file.

%=================================================================================
%
%        AUTHOR: Erik Newton (Newtek Software Ltd)
%
%           WEB: www.newteksoftware.co.uk
%
%	Copyright Newtek Software Ltd 2006
%
% This function is free for all use, but please leave in my credit.
% Check out more tutorials & functions at our website.
%
%==================================================================================

h_figure = figure(...
   'Name','fitpath demo', ...
   'MenuBar','none', ...
   'NumberTitle','Off', ...
   'Position',[50 50 260 30], ...
   'Resize','Off');

LABEL_BACK = get(h_figure,'Color');

% Init filename
uicontrol(h_figure, ...
   'BackgroundColor',LABEL_BACK, ...
   'Position', [5 5 30 18], ...
   'Horizontal', 'Right', ...
   'String','File:', ...
   'Style','text');
h_filename = uicontrol(h_figure, ...
   'BackgroundColor',LABEL_BACK, ...
   'Position',[35 5 200 18], ...
   'Horizontal', 'Left', ...
   'Style','text', ...
   'Tag','InitFilename');
uicontrol(h_figure, ...
   'Position', [235 5 20 18], ...
   'Horizontal', 'Center', ...
   ...'Callback', '[init_file,new_path]=uigetfile; set(h_filename,''string'',fullfile(new_path,init_file));', ...
   'Callback', '[init_file,new_path]=uigetfile; fitpath(h_filename,fullfile(new_path,init_file));', ...
   'String','...', ...
   'TooltipString', 'Select file.', ...
   'Style','PushButton');

%==================================================================================
