if within repeat not working

[thenarrator]

Am trying to nest an if within a repeat, is this something that is possible?

The main code block is below and currently ignores the if statement and completes DoSort as part of the repeat loop...

Code: [Select]

procedure Main();
var
data: IntArray;
begin
    OpenGraphicsWindow('Sort Visualiser', 800, 600);
    LoadResourceBundle( 'NumberBundle.txt' );
 
    GUISetForegroundColor( ColorBlack );
    GUISetBackgroundColor( ColorWhite );
 
    ShowPanel( 'NumberPanel' );
 
    ClearScreen(ColorWhite);
 
    repeat
    ProcessEvents();
    UpdateInterface();

    DrawInterface();
    RefreshScreen(60);
 
  if ButtonClicked( 'Sort Button' ) then
  begin
  DoSort();
  end;

    until WindowCloseRequested();
end;

begin
Main();
end.


[derek.john.evans]

DoSort & if statement?

Am I blind?

[thenarrator]

my bad, copied wrong file, changed it to the right code now

[derek.john.evans]

"currently ignores the if statement and completes DoSort"

I'm guessing that means ButtonClicked( 'Sort Button' ) is always returning True.

[thenarrator]

hmm ok will have to investigate the template my uni gave me there must be an issue with ButtonClicked or the name...

But other than that the way the if is nested is fine?

[thenarrator]

edit: wasn't meant to be a space between sort and button... sorry for the waste of time