news
About Elegant Chaos
info
About me and my friends
people
Software from Elegant Chaos
software
Other stuff...
stuff

DL_Crate

Revision
Revised on

Description


Code

on DL_Crate
  put "Message Crate" into name
  
  if there is not a window name then
    if UL_GetTextWindow(name,false) then
      set the editable of window name to true
      set the executable of window name to true
      set the font of window name to geneva
      set the size of window name to 9
      set the closeOnHide of window name to false
      put the rect of msg into msgRect
      put (item 2 of msgRect + 2*(height of msg)) into item 4 of msgRect
      set the rect of window name to msgRect
      TextView "!short"
      set the text of window name to 
      "-- Message Crate: a bigger message box. Version " & 
      the result & "." & return & 
      "-- Type some code into this window, then hit enter to execute it..." & return & return
    end if
  end if
  
  if there is a window name then
    show window name
    send getFocus to window name
  end if
  
end DL_Crate