;;-------------------------=={ Popup }==----------------------;;
;; ;;
;; Displays a pop-up message box prompting the user. ;;
;;------------------------------------------------------------;;
;; Author: Lee Mac, Copyright © 2012 - www.lee-mac.com ;;
;;------------------------------------------------------------;;
;; Arguments: ;;
;; title - Text to be displayed in the pop-up title bar ;;
;; msg - Text content of the pop-up message box ;;
;; flags - Integer indicating icon & button appearance ;;
;; Reference: http://lee-mac.com/popup.html ;;
;;------------------------------------------------------------;;
;; Returns: Integer indicating the button pressed to exit ;;
;;------------------------------------------------------------;;
(defun LM:Popup
( title msg flags
/ wsh res
) res
)
)
)
)
(defun IWillOnlyRunOnceADay
nil
(LM:Popup "PopUp Information" "This is a PopUp Message" (+ 0 64 4096))
)
)
)
(IWillOnlyRunOnceADay)
)
)