Gammon Forum

require 'wait'

function mousedown(flags, hotspot_id)
  startx, starty = WindowInfo (my_mini_win, 14), WindowInfo (my_mini_win, 15)
 end -- mousedown

function dragmove(flags, hotspot_id)
  local posx, posy = WindowInfo (my_mini_win, 17),
                     WindowInfo (my_mini_win, 18)
                                                        
  -- move the window to the new location
  WindowPosition(my_mini_win, posx - startx, posy - starty, 0, 2);
  
  -- change the mouse cursor shape appropriately
  if posx < 0 or posx > GetInfo (281) or
     posy < 0 or posy > GetInfo (280) then
    check (SetCursor ( 11))   -- X cursor
  else
    check (SetCursor ( 1))   -- hand cursor
  end -- if
  
end

function dragrelease(flags, hotspot_id)
return
end -- dragrelease

  wait.make(function ()

  local background_colour         = ColourNameToRGB "black"
  local border_colour             = ColourNameToRGB "dimgray"
  local default_text_colour       = ColourNameToRGB "white"
  local text_offset               = 4
  local border_width              = 1
  local line_spacing              = 1
  local font_name                 = "Dina"
  local font_size                 = 8
  local title                     = "Test Title"
  local font                      = "f"
  my_mini_win                     = "my_mini__" .. GetPluginID()

  if not WindowInfo(my_mini_win, 1) then
    WindowCreate (my_mini_win, 0, 0, 0, 0, 6, 0, 0)
    WindowFont (my_mini_win, font, "Dina", 8)
  end

  
  Send("command")

  -- wait for my_mini_ to start

  local x = wait.match("trigger matches fine", 10)

  if not x then
    ColourNote("white", "blue", "Nothing returned in 10 seconds.")
    return
  end 

  local my_mini_list = {}
  local max_width = WindowTextWidth(my_mini_win, font, title)

  -- loop until end

  while true do
    local line, wildcards, styles = wait.match("*")

    -- see if end

    if string.match(line,"trigger matches fine") then
      break
    end

    -- save my_mini_ 
    table.insert(my_mini_list, styles)
    -- work out max width
    max_width = math.max (max_width, WindowTextWidth (my_mini_win, font, line))

  end

  local font_height = WindowFontInfo(my_mini_win, font, 1)

  local window_width = max_width + 10
  local window_height = font_height * (#my_mini_list + 2) + 10

  -- make window correct size

WindowCreate (my_mini_win, 0, 0, window_width, window_height, 12, 0, background_colour)
WindowRectOp (my_mini_win, 5, 0, 0, 0, 0, 9, 15 + 0x1000)

WindowText (my_mini_win, font, title, 5, 5, 0, 0, ColourNameToRGB("yellow"))

  local y = font_height * 2 + 5

  for i, styles in ipairs(my_mini_list) do

    if styles[1] then
      local x = 5
      for _,style in ipairs (styles) do
        x = x + WindowText (my_mini_win, font, style.text, x, y, 0, 0, style.textcolour)
      end
      y = y + font_height
    end
  end
    
    WindowAddHotspot(my_mini_win, "hs1",
      10, 10, 60, 20,
      "",
      "",
      "mousedown",
      "",
      "",
      "Drag me!",
      1,0)

    WindowDragHandler(my_mini_win, "hs1", "dragmove", "dragrelease", 0)
    WindowSetZOrder(my_mini_win, 20)
    WindowShow(my_mini_win, true)
  
end)

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>
<!-- Saved on Sunday, March 29, 2015, 12:32 PM -->
<!-- MuClient version 4.96 -->
<!-- Plugin "list_mw" generated by Plugin Wizard -->
<muclient>
<plugin
  name="list_mw"
  author="AdInfinitum"
  id="e68357c2401dcaa1ec9953f6"
  language="Lua"
  purpose="Displays a miniwindow"
  save_state="y"
  date_written="2015-03-29 12:30:10"
  requires="4.96"
  version="1.0"
  >
</plugin>
<!--  Aliases  -->
<aliases>
 <alias
  match="^list$"
  enabled="y"
  regexp="y"
  send_to="12"
  sequence="100"
 >
 <send>wait.make(function ()

  local font = "f"
  local title = "list"
  local font_name = "Dina"
  local font_size = "8"
  local win = GetPluginID()
  
  -- send list

  Send "list"

  -- wait for list to start

  local x = wait.match("<matched>", 10) -- 10 is number of seconds to wait for match

  -- check to see if match made

  if not x then
    ColourNote("yellow", "red", "No list generated in 10 seconds.")
    return
  end

  local list = {}
  local max_width = WindowTextWidth(win, font, title) -- initiate max width

  -- loop until end of list

  while true do
    local line, wildcards, styles = wait.match("*")

    -- see if it's the end of list

    if string.match(line, "<matched>") then
      break
    end

    -- save line
    table.insert(list, styles)

    -- work out max width
    max_width = math.max (max_width, WindowTextWidth (win, font, line))

  end -- end loop

  local font_height = WindowFontInfo(win, font, 1)
  local window_width = max_width + 10
  local window_height = font_height * (#list + 1) + 10

  -- make window correct size

  WindowCreate (win,
              wininfo.window_left,
              wininfo.window_top,
              window_width,
              window_height,
              wininfo.window_mode,
              wininfo.window_flags,
              ColourNameToRGB "black"
              )

WindowFont (win, font, font_name, font_size)

WindowRectOp (win, 5, 0, 0, 0, 0, 9, 15 + 0x1000)

  WindowText (win, font, title, 5, 5, 0, 0, ColourNameToRGB "yellow")

  local y = font_height * 2 + 5

  for i, styles in ipairs(list) do

    if styles[1] then
      local x = 5
      for _,style in ipairs(styles) do
       x = x + WindowText(win, font, style.text, x, y, 0, 0, style.textcolour)
      end
      y = y + font_height
    end
  end

movewindow.add_drag_handler (win, 0, 0, 0, 0, 1)

WindowSetZOrder(win, 20)

movewindow.save_state (win)

WindowShow(win, true)

end)</send>
 </alias>
 </aliases>

<script>
<![CDATA[

function OnPluginInstall()

require 'movewindow'
require 'wait'

win = GetPluginID()

wininfo = movewindow.install (win, miniwin.pos_center_right, 0)

if not WindowInfo (win, 1) then
    WindowCreate (win,
              wininfo.window_left,
              wininfo.window_top,
              0,
              0,
              6,
              0,
              0
              )
  WindowFont (win, "f", "Dina", 8)
end

end
]]>
</script>
</muclient>