function string.wrap(str, limit, indent, indent1)
  indent = indent or ""
  indent1 = indent1 or indent
  limit = limit or 72
  local here = 1-#indent1
  return indent1..str:gsub("(%s+)()(%S+)()",
                          function(sp, st, word, fi)
                            if fi-here > limit then
                              here = st - #indent
                              return "\n"..indent..word
                            end
                          end)
end

local i = 0
for _,v in ipairs(utils.split(TEXTTOPRINT:wrap(30, "  ", ""), "\n")) do
WindowText(win,font, v, 0, i * fontheight, width, (i+1) * fontheight, color, false)
i=i+1
end

-- test text

pages = [[
I want pages and whispers to print to a miniwindow. I want to append new messages like you can do with the
 notepad and possibly allow for scrolling to read previous messages (though having previous lines scroll up would
 be fine as well). I tried the notepad route and it's just way too annoying and isn't flexible enough.
]]

-- window and font info

win = GetPluginID ()
local width = 700
local height = 200
local font = "f2"

-- make window

WindowCreate (win, 0, 0, width, height, 12, 0, ColourNameToRGB("darkslategray"))

-- show border so we can see what we are doing

WindowRectOp (win, 1, 1, 1, -1, -1, ColourNameToRGB("blue")) 

-- set up our font

WindowFont (win, font, "Tahoma", 9, false, true, false, false)

-- how far in to draw

local left_margin = 5
local right_margin = 5

-- derive stuff from font

local space_width = WindowTextWidth (win, font, " ")
local line_height = WindowFontInfo (win, font, 1)

-- starting point

local x = left_margin 
local y = line_height

-- do each word

for word in string.gmatch (pages, "%S+") do

  local word_width = WindowTextWidth (win, font, word)

  -- time to start a new line?

  if (word_width + x) > (width - right_margin) and (x > left_margin) then
    y = y + line_height
    x = left_margin
  end -- if

  -- draw the text

  WindowText (win, font, word, x, y, 0, 0, ColourNameToRGB("white"))
  
  -- advance past the word and a single space
  
  x = x + word_width + space_width 

end -- for loop

WindowShow (win, true)

y = y + line_height
x = left_margin