home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 August / PCWorld_2000-08_cd.bin / Software / TemaCD / xbasic / xbpro.exe / xb / awarn.x < prev    next >
Encoding:
Text File  |  1996-01-19  |  21.3 KB  |  410 lines
  1. '
  2. ' ####################
  3. ' #####  PROLOG  #####
  4. ' ####################
  5. '
  6. ' This program tests that library "warning.dll" exists and works.
  7. '
  8. PROGRAM    "awarn"
  9. VERSION    "0.0002"
  10. '
  11. IMPORT "xst"
  12. IMPORT "xgr"
  13. IMPORT "xui"
  14. IMPORT "warning"
  15. '
  16. DECLARE FUNCTION  Entry ()
  17. DECLARE FUNCTION  InitGui ()
  18. '
  19. '
  20. ' ######################
  21. ' #####  Entry ()  #####
  22. ' ######################
  23. '
  24. FUNCTION  Entry ()
  25. '
  26.     InitGui ()
  27.     DIM text$[10]
  28.     text$[ 0] = "##########################"
  29.     text$[ 1] = "#####  Test Library  #####"
  30.     text$[ 2] = "##########################"
  31.     text$[ 3] = ""
  32.     text$[ 4] = "All this program does is a"
  33.     text$[ 5] = "few function calls to grid"
  34.     text$[ 6] = "function XuiWarning4B() in"
  35.     text$[ 7] = "library \"warning.dll\" - to"
  36.     text$[ 8] = "prove this actually works."
  37.     text$[ 9] = ""
  38.     text$[10] = "Process a MouseUp then die"
  39.     XuiWarning4B (@grid, #CreateWindow, 300, 300, 400, 200, 0, 0)
  40.     XuiSendMessage ( grid, #SetTextArray, 0, 0, 0, 0, 1, @text$[])
  41.     XuiSendMessage ( grid, #SetColor, $$Blue, $$Green, $$Red, $$Yellow, 1, 0)
  42.     XuiSendMessage ( grid, #SetColor, $$BrightCyan, -1, -1, -1, 2, 0)
  43.     XuiSendMessage ( grid, #SetColor, $$BrightGreen, -1, -1, -1, 3, 0)
  44.     XuiSendMessage ( grid, #SetColor, $$LightGreen, -1, -1, -1, 4, 0)
  45.     XuiSendMessage ( grid, #SetColor, $$LightRed, -1, -1, -1, 5, 0)
  46.     XuiSendMessage ( grid, #DisplayWindow, 0, 0, 0, 0, 0, 0)
  47.     XuiSendMessage ( grid, #Redraw, 0, 0, 0, 0, 0, 0)
  48. '
  49.     DO
  50.         XgrPeekMessage (@g, @m, 0, 0, 0, 0, 0, 0)
  51.         XgrProcessMessages (1)
  52.     LOOP UNTIL (m = #WindowMouseUp)
  53. END FUNCTION
  54. '
  55. '
  56. ' ########################
  57. ' #####  InitGui ()  #####
  58. ' ########################
  59. '
  60. ' InitGui() initializes cursor, icon, message, and display variables.
  61. ' Programs can reference these variables, but must never change them.
  62. '
  63. FUNCTION  InitGui ()
  64. '
  65. ' ***************************************
  66. ' *****  Register Standard Cursors  *****
  67. ' ***************************************
  68. '
  69.     XgrRegisterCursor (@"arrow",            @#defaultCursor)
  70.     XgrRegisterCursor (@"arrow",            @#cursorDefault)
  71.     XgrRegisterCursor (@"arrow",            @#cursorArrow)
  72.     XgrRegisterCursor (@"arrow",            @#cursorArrowNW)
  73.     XgrRegisterCursor (@"n",                    @#cursorArrowN)
  74.     XgrRegisterCursor (@"ns",                    @#cursorArrowsNS)
  75.     XgrRegisterCursor (@"we",                    @#cursorArrowsWE)
  76.     XgrRegisterCursor (@"nwse",                @#cursorArrowsNWSE)
  77.     XgrRegisterCursor (@"nesw",                @#cursorArrowsNESW)
  78.     XgrRegisterCursor (@"all",                @#cursorArrowsAll)
  79.     XgrRegisterCursor (@"crosshair",    @#cursorCrosshair)
  80.     XgrRegisterCursor (@"plus",                @#cursorPlus)
  81.     XgrRegisterCursor (@"wait",                @#cursorHourglass)
  82.     XgrRegisterCursor (@"insert",            @#cursorInsert)
  83.     XgrRegisterCursor (@"no",                    @#cursorNo)
  84. '
  85. '
  86. ' ********************************************
  87. ' *****  Register Standard Window Icons  *****
  88. ' ********************************************
  89. '
  90.     XgrRegisterIcon (@"hand",                    @#iconHand)
  91.     XgrRegisterIcon (@"asterisk",            @#iconAsterisk)
  92.     XgrRegisterIcon (@"question",            @#iconQuestion)
  93.     XgrRegisterIcon (@"exclamation",    @#iconExclamation)
  94.     XgrRegisterIcon (@"application",    @#iconApplication)
  95. '
  96.     XgrRegisterIcon (@"hand",                    @#iconStop)                        ' alias
  97.     XgrRegisterIcon (@"asterisk",            @#iconInformation)        ' alias
  98.     XgrRegisterIcon (@"application",  @#iconBlank)                    ' alias
  99. '
  100.     XgrRegisterIcon (@"window",                @#iconWindow)                    ' custom
  101. '
  102. '
  103. ' ******************************
  104. ' *****  Register Messages *****  Create message numbers for message names
  105. ' ******************************
  106. '
  107.     XgrRegisterMessage (@"Blowback",                                        @#Blowback)
  108.     XgrRegisterMessage (@"Callback",                                        @#Callback)
  109.     XgrRegisterMessage (@"Cancel",                                            @#Cancel)
  110.     XgrRegisterMessage (@"Change",                                            @#Change)
  111.     XgrRegisterMessage (@"CloseWindow",                                    @#CloseWindow)
  112.     XgrRegisterMessage (@"ContextChange",                                @#ContextChange)
  113.     XgrRegisterMessage (@"Create",                                            @#Create)
  114.     XgrRegisterMessage (@"CreateValueArray",                        @#CreateValueArray)
  115.     XgrRegisterMessage (@"CreateWindow",                                @#CreateWindow)
  116.     XgrRegisterMessage (@"CursorH",                                            @#CursorH)
  117.     XgrRegisterMessage (@"CursorV",                                            @#CursorV)
  118.     XgrRegisterMessage (@"Deselected",                                    @#Deselected)
  119.     XgrRegisterMessage (@"Destroy",                                            @#Destroy)
  120.     XgrRegisterMessage (@"Destroyed",                                        @#Destroyed)
  121.     XgrRegisterMessage (@"DestroyWindow",                                @#DestroyWindow)
  122.     XgrRegisterMessage (@"Disable",                                            @#Disable)
  123.     XgrRegisterMessage (@"Disabled",                                        @#Disabled)
  124.     XgrRegisterMessage (@"Displayed",                                        @#Displayed)
  125.     XgrRegisterMessage (@"DisplayWindow",                                @#DisplayWindow)
  126.     XgrRegisterMessage (@"Enable",                                            @#Enable)
  127.     XgrRegisterMessage (@"Enabled",                                            @#Enabled)
  128.     XgrRegisterMessage (@"Enter",                                                @#Enter)
  129.     XgrRegisterMessage (@"ExitMessageLoop",                            @#ExitMessageLoop)
  130.     XgrRegisterMessage (@"Find",                                                @#Find)
  131.     XgrRegisterMessage (@"FindForward",                                    @#FindForward)
  132.     XgrRegisterMessage (@"FindReverse",                                    @#FindReverse)
  133.     XgrRegisterMessage (@"Forward",                                            @#Forward)
  134.     XgrRegisterMessage (@"GetAlign",                                        @#GetAlign)
  135.     XgrRegisterMessage (@"GetBorder",                                        @#GetBorder)
  136.     XgrRegisterMessage (@"GetBorderOffset",                            @#GetBorderOffset)
  137.     XgrRegisterMessage (@"GetCallback",                                    @#GetCallback)
  138.     XgrRegisterMessage (@"GetCallbackArgs",                            @#GetCallbackArgs)
  139.     XgrRegisterMessage (@"GetCan",                                            @#GetCan)
  140.     XgrRegisterMessage (@"GetCharacterMapArray",                @#GetCharacterMapArray)
  141.     XgrRegisterMessage (@"GetClipGrid",                                    @#GetClipGrid)
  142.     XgrRegisterMessage (@"GetColor",                                        @#GetColor)
  143.     XgrRegisterMessage (@"GetColorExtra",                                @#GetColorExtra)
  144.     XgrRegisterMessage (@"GetCursor",                                        @#GetCursor)
  145.     XgrRegisterMessage (@"GetCursorXY",                                    @#GetCursorXY)
  146.     XgrRegisterMessage (@"GetDisplay",                                    @#GetDisplay)
  147.     XgrRegisterMessage (@"GetEnclosedGrids",                        @#GetEnclosedGrids)
  148.     XgrRegisterMessage (@"GetEnclosingGrid",                        @#GetEnclosingGrid)
  149.     XgrRegisterMessage (@"GetFocusColor",                                @#GetFocusColor)
  150.     XgrRegisterMessage (@"GetFocusColorExtra",                    @#GetFocusColorExtra)
  151.     XgrRegisterMessage (@"GetFont",                                            @#GetFont)
  152.     XgrRegisterMessage (@"GetFontNumber",                                @#GetFontNumber)
  153.     XgrRegisterMessage (@"GetGridFunction",                            @#GetGridFunction)
  154.     XgrRegisterMessage (@"GetGridFunctionName",                    @#GetGridFunctionName)
  155.     XgrRegisterMessage (@"GetGridName",                                    @#GetGridName)
  156.     XgrRegisterMessage (@"GetGridNumber",                                @#GetGridNumber)
  157.     XgrRegisterMessage (@"GetGridType",                                    @#GetGridType)
  158.     XgrRegisterMessage (@"GetGridTypeName",                            @#GetGridTypeName)
  159.     XgrRegisterMessage (@"GetGroup",                                        @#GetGroup)
  160.     XgrRegisterMessage (@"GetHelp",                                            @#GetHelp)
  161.     XgrRegisterMessage (@"GetHelpFile",                                    @#GetHelpFile)
  162.     XgrRegisterMessage (@"GetHelpString",                                @#GetHelpString)
  163.     XgrRegisterMessage (@"GetHelpStrings",                            @#GetHelpStrings)
  164.     XgrRegisterMessage (@"GetHintString",                                @#GetHintString)
  165.     XgrRegisterMessage (@"GetImage",                                        @#GetImage)
  166.     XgrRegisterMessage (@"GetImageCoords",                            @#GetImageCoords)
  167.     XgrRegisterMessage (@"GetIndent",                                        @#GetIndent)
  168.     XgrRegisterMessage (@"GetInfo",                                            @#GetInfo)
  169.     XgrRegisterMessage (@"GetJustify",                                    @#GetJustify)
  170.     XgrRegisterMessage (@"GetKeyboardFocus",                        @#GetKeyboardFocus)
  171.     XgrRegisterMessage (@"GetKeyboardFocusGrid",                @#GetKeyboardFocusGrid)
  172.     XgrRegisterMessage (@"GetKidNumber",                                @#GetKidNumber)
  173.     XgrRegisterMessage (@"GetKids",                                            @#GetKids)
  174.     XgrRegisterMessage (@"GetKidArray",                                    @#GetKidArray)
  175.     XgrRegisterMessage (@"GetKind",                                            @#GetKind)
  176.     XgrRegisterMessage (@"GetMaxMinSize",                                @#GetMaxMinSize)
  177.     XgrRegisterMessage (@"GetMessageFunc",                            @#GetMessageFunc)
  178.     XgrRegisterMessage (@"GetMessageFuncArray",                    @#GetMessageFuncArray)
  179.     XgrRegisterMessage (@"GetMessageSub",                                @#GetMessageSub)
  180.     XgrRegisterMessage (@"GetMessageSubArray",                    @#GetMessageSubArray)
  181.     XgrRegisterMessage (@"GetModalInfo",                                @#GetModalInfo)
  182.     XgrRegisterMessage (@"GetModalWindow",                            @#GetModalWindow)
  183.     XgrRegisterMessage (@"GetParent",                                        @#GetParent)
  184.     XgrRegisterMessage (@"GetPosition",                                    @#GetPosition)
  185.     XgrRegisterMessage (@"GetProtoInfo",                                @#GetProtoInfo)
  186.     XgrRegisterMessage (@"GetRedrawFlags",                            @#GetRedrawFlags)
  187.     XgrRegisterMessage (@"GetSize",                                            @#GetSize)
  188.     XgrRegisterMessage (@"GetSmallestSize",                            @#GetSmallestSize)
  189.     XgrRegisterMessage (@"GetState",                                        @#GetState)
  190.     XgrRegisterMessage (@"GetStyle",                                        @#GetStyle)
  191.     XgrRegisterMessage (@"GetTabArray",                                    @#GetTabArray)
  192.     XgrRegisterMessage (@"GetTabWidth",                                    @#GetTabWidth)
  193.     XgrRegisterMessage (@"GetTextArray",                                @#GetTextArray)
  194.     XgrRegisterMessage (@"GetTextArrayBounds",                    @#GetTextArrayBounds)
  195.     XgrRegisterMessage (@"GetTextArrayLine",                        @#GetTextArrayLine)
  196.     XgrRegisterMessage (@"GetTextArrayLines",                        @#GetTextArrayLines)
  197.     XgrRegisterMessage (@"GetTextCursor",                                @#GetTextCursor)
  198.     XgrRegisterMessage (@"GetTextFilename",                            @#GetTextFilename)
  199.     XgrRegisterMessage (@"GetTextPosition",                            @#GetTextPosition)
  200.     XgrRegisterMessage (@"GetTextSelection",                        @#GetTextSelection)
  201.     XgrRegisterMessage (@"GetTextString",                                @#GetTextString)
  202.     XgrRegisterMessage (@"GetTextStrings",                            @#GetTextStrings)
  203.     XgrRegisterMessage (@"GetTexture",                                    @#GetTexture)
  204.     XgrRegisterMessage (@"GetTimer",                                        @#GetTimer)
  205.     XgrRegisterMessage (@"GetValue",                                        @#GetValue)
  206.     XgrRegisterMessage (@"GetValues",                                        @#GetValues)
  207.     XgrRegisterMessage (@"GetValueArray",                                @#GetValueArray)
  208.     XgrRegisterMessage (@"GetWindow",                                        @#GetWindow)
  209.     XgrRegisterMessage (@"GetWindowFunction",                        @#GetWindowFunction)
  210.     XgrRegisterMessage (@"GetWindowGrid",                                @#GetWindowGrid)
  211.     XgrRegisterMessage (@"GetWindowIcon",                                @#GetWindowIcon)
  212.     XgrRegisterMessage (@"GetWindowSize",                                @#GetWindowSize)
  213.     XgrRegisterMessage (@"GetWindowTitle",                            @#GetWindowTitle)
  214.     XgrRegisterMessage (@"GotKeyboardFocus",                        @#GotKeyboardFocus)
  215.     XgrRegisterMessage (@"GrabArray",                                        @#GrabArray)
  216.     XgrRegisterMessage (@"GrabTextArray",                                @#GrabTextArray)
  217.     XgrRegisterMessage (@"GrabTextString",                            @#GrabTextString)
  218.     XgrRegisterMessage (@"GrabValueArray",                            @#GrabValueArray)
  219.     XgrRegisterMessage (@"Help",                                                @#Help)
  220.     XgrRegisterMessage (@"Hidden",                                            @#Hidden)
  221.     XgrRegisterMessage (@"HideTextCursor",                            @#HideTextCursor)
  222.     XgrRegisterMessage (@"HideWindow",                                    @#HideWindow)
  223.     XgrRegisterMessage (@"Initialize",                                    @#Initialize)
  224.     XgrRegisterMessage (@"Initialized",                                    @#Initialized)
  225.     XgrRegisterMessage (@"Inline",                                            @#Inline)
  226.     XgrRegisterMessage (@"InquireText",                                    @#InquireText)
  227.     XgrRegisterMessage (@"KeyboardFocusBackward",                @#KeyboardFocusBackward)
  228.     XgrRegisterMessage (@"KeyboardFocusForward",                @#KeyboardFocusForward)
  229.     XgrRegisterMessage (@"KeyDown",                                            @#KeyDown)
  230.     XgrRegisterMessage (@"KeyUp",                                                @#KeyUp)
  231.     XgrRegisterMessage (@"LostKeyboardFocus",                        @#LostKeyboardFocus)
  232.     XgrRegisterMessage (@"LostTextSelection",                        @#LostTextSelection)
  233.     XgrRegisterMessage (@"Maximized",                                        @#Maximized)
  234.     XgrRegisterMessage (@"MaximizeWindow",                            @#MaximizeWindow)
  235.     XgrRegisterMessage (@"Maximum",                                            @#Maximum)
  236.     XgrRegisterMessage (@"Minimized",                                        @#Minimized)
  237.     XgrRegisterMessage (@"MinimizeWindow",                            @#MinimizeWindow)
  238.     XgrRegisterMessage (@"Minimum",                                            @#Minimum)
  239.     XgrRegisterMessage (@"MonitorContext",                            @#MonitorContext)
  240.     XgrRegisterMessage (@"MonitorHelp",                                    @#MonitorHelp)
  241.     XgrRegisterMessage (@"MonitorKeyboard",                            @#MonitorKeyboard)
  242.     XgrRegisterMessage (@"MonitorMouse",                                @#MonitorMouse)
  243.     XgrRegisterMessage (@"MouseDown",                                        @#MouseDown)
  244.     XgrRegisterMessage (@"MouseDrag",                                        @#MouseDrag)
  245.     XgrRegisterMessage (@"MouseEnter",                                    @#MouseEnter)
  246.     XgrRegisterMessage (@"MouseExit",                                        @#MouseExit)
  247.     XgrRegisterMessage (@"MouseMove",                                        @#MouseMove)
  248.     XgrRegisterMessage (@"MouseUp",                                            @#MouseUp)
  249.     XgrRegisterMessage (@"MuchLess",                                        @#MuchLess)
  250.     XgrRegisterMessage (@"MuchMore",                                        @#MuchMore)
  251.     XgrRegisterMessage (@"OneLess",                                            @#OneLess)
  252.     XgrRegisterMessage (@"OneMore",                                            @#OneMore)
  253.     XgrRegisterMessage (@"PokeArray",                                        @#PokeArray)
  254.     XgrRegisterMessage (@"PokeTextArray",                                @#PokeTextArray)
  255.     XgrRegisterMessage (@"PokeTextString",                            @#PokeTextString)
  256.     XgrRegisterMessage (@"PokeValueArray",                            @#PokeValueArray)
  257.     XgrRegisterMessage (@"Print",                                                @#Print)
  258.     XgrRegisterMessage (@"Redraw",                                            @#Redraw)
  259.     XgrRegisterMessage (@"RedrawGrid",                                    @#RedrawGrid)
  260.     XgrRegisterMessage (@"RedrawLines",                                    @#RedrawLines)
  261.     XgrRegisterMessage (@"RedrawText",                                    @#RedrawText)
  262.     XgrRegisterMessage (@"RedrawWindow",                                @#RedrawWindow)
  263.     XgrRegisterMessage (@"Replace",                                            @#Replace)
  264.     XgrRegisterMessage (@"ReplaceForward",                            @#ReplaceForward)
  265.     XgrRegisterMessage (@"ReplaceReverse",                            @#ReplaceReverse)
  266.     XgrRegisterMessage (@"Reset",                                                @#Reset)
  267.     XgrRegisterMessage (@"Resize",                                            @#Resize)
  268.     XgrRegisterMessage (@"Resized",                                            @#Resized)
  269.     XgrRegisterMessage (@"ResizeNot",                                        @#ResizeNot)
  270.     XgrRegisterMessage (@"ResizeWindow",                                @#ResizeWindow)
  271.     XgrRegisterMessage (@"ResizeWindowToGrid",                    @#ResizeWindowToGrid)
  272.     XgrRegisterMessage (@"Resized",                                            @#Resized)
  273.     XgrRegisterMessage (@"Reverse",                                            @#Reverse)
  274.     XgrRegisterMessage (@"ScrollH",                                            @#ScrollH)
  275.     XgrRegisterMessage (@"ScrollV",                                            @#ScrollV)
  276.     XgrRegisterMessage (@"Select",                                            @#Select)
  277.     XgrRegisterMessage (@"Selected",                                        @#Selected)
  278.     XgrRegisterMessage (@"Selection",                                        @#Selection)
  279.     XgrRegisterMessage (@"SelectWindow",                                @#SelectWindow)
  280.     XgrRegisterMessage (@"SetAlign",                                        @#SetAlign)
  281.     XgrRegisterMessage (@"SetBorder",                                        @#SetBorder)
  282.     XgrRegisterMessage (@"SetBorderOffset",                            @#SetBorderOffset)
  283.     XgrRegisterMessage (@"SetCallback",                                    @#SetCallback)
  284.     XgrRegisterMessage (@"SetCan",                                            @#SetCan)
  285.     XgrRegisterMessage (@"SetCharacterMapArray",                @#SetCharacterMapArray)
  286.     XgrRegisterMessage (@"SetClipGrid",                                    @#SetClipGrid)
  287.     XgrRegisterMessage (@"SetColor",                                        @#SetColor)
  288.     XgrRegisterMessage (@"SetColorAll",                                    @#SetColorAll)
  289.     XgrRegisterMessage (@"SetColorExtra",                                @#SetColorExtra)
  290.     XgrRegisterMessage (@"SetColorExtraAll",                        @#SetColorExtraAll)
  291.     XgrRegisterMessage (@"SetCursor",                                        @#SetCursor)
  292.     XgrRegisterMessage (@"SetCursorXY",                                    @#SetCursorXY)
  293.     XgrRegisterMessage (@"SetDisplay",                                    @#SetDisplay)
  294.     XgrRegisterMessage (@"SetFocusColor",                                @#SetFocusColor)
  295.     XgrRegisterMessage (@"SetFocusColorExtra",                    @#SetFocusColorExtra)
  296.     XgrRegisterMessage (@"SetFont",                                            @#SetFont)
  297.     XgrRegisterMessage (@"SetFontNumber",                                @#SetFontNumber)
  298.     XgrRegisterMessage (@"SetGridFunction",                            @#SetGridFunction)
  299.     XgrRegisterMessage (@"SetGridFunctionName",                    @#SetGridFunctionName)
  300.     XgrRegisterMessage (@"SetGridName",                                    @#SetGridName)
  301.     XgrRegisterMessage (@"SetGridType",                                    @#SetGridType)
  302.     XgrRegisterMessage (@"SetGridTypeName",                            @#SetGridTypeName)
  303.     XgrRegisterMessage (@"SetGroup",                                        @#SetGroup)
  304.     XgrRegisterMessage (@"SetHelp",                                            @#SetHelp)
  305.     XgrRegisterMessage (@"SetHelpFile",                                    @#SetHelpFile)
  306.     XgrRegisterMessage (@"SetHelpString",                                @#SetHelpString)
  307.     XgrRegisterMessage (@"SetHelpStrings",                            @#SetHelpStrings)
  308.     XgrRegisterMessage (@"SetHintString",                                @#SetHintString)
  309.     XgrRegisterMessage (@"SetImage",                                        @#SetImage)
  310.     XgrRegisterMessage (@"SetImageCoords",                            @#SetImageCoords)
  311.     XgrRegisterMessage (@"SetIndent",                                        @#SetIndent)
  312.     XgrRegisterMessage (@"SetInfo",                                            @#SetInfo)
  313.     XgrRegisterMessage (@"SetJustify",                                    @#SetJustify)
  314.     XgrRegisterMessage (@"SetKeyboardFocus",                        @#SetKeyboardFocus)
  315.     XgrRegisterMessage (@"SetKeyboardFocusGrid",                @#SetKeyboardFocusGrid)
  316.     XgrRegisterMessage (@"SetMaxMinSize",                                @#SetMaxMinSize)
  317.     XgrRegisterMessage (@"SetMessageFunc",                            @#SetMessageFunc)
  318.     XgrRegisterMessage (@"SetMessageFuncArray",                    @#SetMessageFuncArray)
  319.     XgrRegisterMessage (@"SetMessageSub",                                @#SetMessageSub)
  320.     XgrRegisterMessage (@"SetMessageSubArray",                    @#SetMessageSubArray)
  321.     XgrRegisterMessage (@"SetModalWindow",                            @#SetModalWindow)
  322.     XgrRegisterMessage (@"SetParent",                                        @#SetParent)
  323.     XgrRegisterMessage (@"SetPosition",                                    @#SetPosition)
  324.     XgrRegisterMessage (@"SetRedrawFlags",                            @#SetRedrawFlags)
  325.     XgrRegisterMessage (@"SetSize",                                            @#SetSize)
  326.     XgrRegisterMessage (@"SetState",                                        @#SetState)
  327.     XgrRegisterMessage (@"SetStyle",                                        @#SetStyle)
  328.     XgrRegisterMessage (@"SetTabArray",                                    @#SetTabArray)
  329.     XgrRegisterMessage (@"SetTabWidth",                                    @#SetTabWidth)
  330.     XgrRegisterMessage (@"SetTextArray",                                @#SetTextArray)
  331.     XgrRegisterMessage (@"SetTextArrayLine",                        @#SetTextArrayLine)
  332.     XgrRegisterMessage (@"SetTextArrayLines",                        @#SetTextArrayLines)
  333.     XgrRegisterMessage (@"SetTextCursor",                                @#SetTextCursor)
  334.     XgrRegisterMessage (@"SetTextFilename",                            @#SetTextFilename)
  335.     XgrRegisterMessage (@"SetTextSelection",                        @#SetTextSelection)
  336.     XgrRegisterMessage (@"SetTextString",                                @#SetTextString)
  337.     XgrRegisterMessage (@"SetTextStrings",                            @#SetTextStrings)
  338.     XgrRegisterMessage (@"SetTexture",                                    @#SetTexture)
  339.     XgrRegisterMessage (@"SetTimer",                                        @#SetTimer)
  340.     XgrRegisterMessage (@"SetValue",                                        @#SetValue)
  341.     XgrRegisterMessage (@"SetValues",                                        @#SetValues)
  342.     XgrRegisterMessage (@"SetValueArray",                                @#SetValueArray)
  343.     XgrRegisterMessage (@"SetWindowFunction",                        @#SetWindowFunction)
  344.     XgrRegisterMessage (@"SetWindowIcon",                                @#SetWindowIcon)
  345.     XgrRegisterMessage (@"SetWindowTitle",                            @#SetWindowTitle)
  346.     XgrRegisterMessage (@"ShowTextCursor",                            @#ShowTextCursor)
  347.     XgrRegisterMessage (@"ShowWindow",                                    @#ShowWindow)
  348.     XgrRegisterMessage (@"SomeLess",                                        @#SomeLess)
  349.     XgrRegisterMessage (@"SomeMore",                                        @#SomeMore)
  350.     XgrRegisterMessage (@"StartTimer",                                    @#StartTimer)
  351.     XgrRegisterMessage (@"SystemMessage",                                @#SystemMessage)
  352.     XgrRegisterMessage (@"TextDelete",                                    @#TextDelete)
  353.     XgrRegisterMessage (@"TextEvent",                                        @#TextEvent)
  354.     XgrRegisterMessage (@"TextInsert",                                    @#TextInsert)
  355.     XgrRegisterMessage (@"TextModified",                                @#TextModified)
  356.     XgrRegisterMessage (@"TextReplace",                                    @#TextReplace)
  357.     XgrRegisterMessage (@"TimeOut",                                            @#TimeOut)
  358.     XgrRegisterMessage (@"Update",                                            @#Update)
  359.     XgrRegisterMessage (@"WindowClose",                                    @#WindowClose)
  360.     XgrRegisterMessage (@"WindowCreate",                                @#WindowCreate)
  361.     XgrRegisterMessage (@"WindowDeselected",                        @#WindowDeselected)
  362.     XgrRegisterMessage (@"WindowDestroy",                                @#WindowDestroy)
  363.     XgrRegisterMessage (@"WindowDestroyed",                            @#WindowDestroyed)
  364.     XgrRegisterMessage (@"WindowDisplay",                                @#WindowDisplay)
  365.     XgrRegisterMessage (@"WindowDisplayed",                            @#WindowDisplayed)
  366.     XgrRegisterMessage (@"WindowGetDisplay",                        @#WindowGetDisplay)
  367.     XgrRegisterMessage (@"WindowGetFunction",                        @#WindowGetFunction)
  368.     XgrRegisterMessage (@"WindowGetIcon",                                @#WindowGetIcon)
  369.     XgrRegisterMessage (@"WindowGetKeyboardFocusGrid",    @#WindowGetKeyboardFocusGrid)
  370.     XgrRegisterMessage (@"WindowGetSelectedWindow",            @#WindowGetSelectedWindow)
  371.     XgrRegisterMessage (@"WindowGetSize",                                @#WindowGetSize)
  372.     XgrRegisterMessage (@"WindowGetTitle",                            @#WindowGetTitle)
  373.     XgrRegisterMessage (@"WindowHelp",                                    @#WindowHelp)
  374.     XgrRegisterMessage (@"WindowHide",                                    @#WindowHide)
  375.     XgrRegisterMessage (@"WindowHidden",                                @#WindowHidden)
  376.     XgrRegisterMessage (@"WindowKeyDown",                                @#WindowKeyDown)
  377.     XgrRegisterMessage (@"WindowKeyUp",                                    @#WindowKeyUp)
  378.     XgrRegisterMessage (@"WindowMaximize",                            @#WindowMaximize)
  379.     XgrRegisterMessage (@"WindowMaximized",                            @#WindowMaximized)
  380.     XgrRegisterMessage (@"WindowMinimize",                            @#WindowMinimize)
  381.     XgrRegisterMessage (@"WindowMinimized",                            @#WindowMinimized)
  382.     XgrRegisterMessage (@"WindowMonitorContext",                @#WindowMonitorContext)
  383.     XgrRegisterMessage (@"WindowMonitorHelp",                        @#WindowMonitorHelp)
  384.     XgrRegisterMessage (@"WindowMonitorKeyboard",                @#WindowMonitorKeyboard)
  385.     XgrRegisterMessage (@"WindowMonitorMouse",                    @#WindowMonitorMouse)
  386.     XgrRegisterMessage (@"WindowMouseDown",                            @#WindowMouseDown)
  387.     XgrRegisterMessage (@"WindowMouseDrag",                            @#WindowMouseDrag)
  388.     XgrRegisterMessage (@"WindowMouseEnter",                        @#WindowMouseEnter)
  389.     XgrRegisterMessage (@"WindowMouseExit",                            @#WindowMouseExit)
  390.     XgrRegisterMessage (@"WindowMouseMove",                            @#WindowMouseMove)
  391.     XgrRegisterMessage (@"WindowMouseUp",                                @#WindowMouseUp)
  392.     XgrRegisterMessage (@"WindowRedraw",                                @#WindowRedraw)
  393.     XgrRegisterMessage (@"WindowRegister",                            @#WindowRegister)
  394.     XgrRegisterMessage (@"WindowResize",                                @#WindowResize)
  395.     XgrRegisterMessage (@"WindowResized",                                @#WindowResized)
  396.     XgrRegisterMessage (@"WindowResizeToGrid",                    @#WindowResizeToGrid)
  397.     XgrRegisterMessage (@"WindowSelect",                                @#WindowSelect)
  398.     XgrRegisterMessage (@"WindowSelected",                            @#WindowSelected)
  399.     XgrRegisterMessage (@"WindowSetFunction",                        @#WindowSetFunction)
  400.     XgrRegisterMessage (@"WindowSetIcon",                                @#WindowSetIcon)
  401.     XgrRegisterMessage (@"WindowSetKeyboardFocusGrid",    @#WindowSetKeyboardFocusGrid)
  402.     XgrRegisterMessage (@"WindowSetTitle",                            @#WindowSetTitle)
  403.     XgrRegisterMessage (@"WindowShow",                                    @#WindowShow)
  404.     XgrRegisterMessage (@"WindowSystemMessage",                    @#WindowSystemMessage)
  405.     XgrRegisterMessage (@"LastMessage",                                    @#LastMessage)
  406. '
  407.     XgrGetDisplaySize ("", @#displayWidth, @#displayHeight, @#windowBorderWidth, @#windowTitleHeight)
  408. END FUNCTION
  409. END PROGRAM
  410.