How to use get and set to remove the last value of a string in a text uicontrol?

 function script4()
fig = figure('units', 'pix', 'position', [300, 300, 300, 300], 'menubar','none','resize', 'off');
pushbuttonh = uicontrol('style', 'pushbutton', 'unit', 'normalized', 'position', [0.3, 0.075, 0.4, 0.1], 'string', 'Clear one character', 'Callback', @pushbuttonh_Callback);
edittexth = uicontrol('style', 'text', 'unit', 'normalized', 'position', [0.1, 0.3, 0.8, 0.5], 'string', 'This is the string');

function pushbuttonh_Callback(source, event)
  currentChar = get(edittexth, 'String');
  if ~isempty(currentChar)
     set(edittexth, 'String', edittexth(1:end-1));
  else 
    set(editexth, 'String', 'There is nothing to delete');
end
end
end

Answer 1

[Walter Roberson]

You should be subscripting the current characters not the handle.