A newLISP module for displaying message boxes natively in Windows.
This module is platform-specific: Windows
Before using the module it must be loaded:
(load "C:\Program Files (x86)/newlisp/modules/message-box.lsp")
...or shorter:
(module "message-box.lsp")
Main function:
win-message-box:show
syntax: (win-message-box:show title message flags)
return: The message box return value.
Displays a message box matching the given title message and flags.
Example:
(set result (win-message-box:show "My Title" "Please select something:" (+ win-message-box:MB_CANCELTRYCONTINUE)))
Full program example:
(define appname "My Program")
(define result (win-message-box:show appname "Please select something:" (+ win-message-box:MB_CANCELTRYCONTINUE)))
(case result
(1 (win-message-box:show appname "You clicked on OK." win-message-box:MB_OK))
(2 (win-message-box:show appname "You clicked on Cancel." win-message-box:MB_OK))
(10 (win-message-box:show appname "You clicked on Try Again." win-message-box:MB_OK))
(11 (win-message-box:show appname "You clicked on Continue." win-message-box:MB_OK))
(true (win-message-box:show appname (append "You clicked on ID: " (string result)) win-message-box:MB_OK)))
Dexter Santucci
April 2019