Another newbie question. What is wrong with this code? I’m missing something simple but fundamental here.
Edit: It doesn’t compile
PROGRAM
INCLUDE('equates.clw'),ONCE
MAP
HelloMsg PROCEDURE
END
MyWindow WINDOW(' Fixer 1.0'),AT(,,188,106),GRAY,FONT('Tahoma',9,,FONT:regular),RESIZE,CENTER,GRAY,ICON('WIZFIND.ICO'),SYSTEM,STATUS
PROMPT('Scan and replace text in Clarion text files'),AT(10,10),FONT(,12,,FONT:regular)
PROMPT('(c) Copyright 2019 Black and White Inc'),AT(10,30),FONT(,9,,FONT:regular)
BUTTON('&Go'),AT(100,80,36,14),USE(?OkButton),DEFAULT,LEFT,MSG('Scan the files'),TIP('Scan the files')
BUTTON('&Exit'),AT(140,80,36,14),USE(?CloseButton),LEFT,MSG('Close the program'),TIP('Close the program')
END
CODE
OPEN(MyWindow)
ACCEPT
CASE FIELD()
OF 0
CASE EVENT()
OF EVENT:OpenWindow
END
OF ?OkButton
CASE EVENT()
OF EVENT:Accepted
MyWindow{PROP:StatusText} = '(c) Copyright 2019 Black and White Inc'
HelloMsg
END
OF ?CloseButton
CASE EVENT()
OF EVENT:Accepted
POST(EVENT:CloseWindow)
END
END ! Case
END ! Accept
HelloMsg PROCEDURE
CODE
MESSAGE('Hello World!','Clarion')
RETURN