Fix more regressions, showcase reorganization

Moved showcase assets to a folder in assets Implemented
Win32Window:destroy() Set window title Set polling mode to "wait" rather
than "poll" (forgot to reimplement with the new arisu.lua) Close windows
at the end of the windows event loop

Author: codebycruz

README.md

@@ -18,9 +18,18 @@ There are no dependencies used by the library. Pure X11/Win32 and OpenGL.
 
 ## Showcase
 
-![showcase](./showcase.png)
+![v4](./assets/showcase/v0.4.0.png)
+![v1](./assets/showcase/v0.1.0.png)
 
-![windows](./windows.png)
+## Running
+
+Set up LuaJIT on your system, clone the repository and run this from the top level.
+
+```bash
+luajit ./src/main.lua
+```
+
+It should work.
 
 ## Attributions
 

showcase.png assets/showcase/v0.1.0.pngshowcase.png renamed to assets/showcase/v0.1.0.png

@@ -46,6 +46,8 @@ function Arisu.run(appStatic)
 	window.Window.fromEventLoop(eventLoop)
 
 	eventLoop:run(function(event, handler)
+		handler:setMode("wait")
+
 		local message = app:event(event, handler)
 		if message then
 			local task = app:update(message, event.window)

windows.png assets/showcase/v0.3.0.pngwindows.png renamed to assets/showcase/v0.3.0.png

@@ -795,6 +795,8 @@ end
 ---@param window Window
 function App:update(message, window)
 	if message.type == "onWindowCreate" then
+		window:setTitle("Arisu")
+
 		-- Now we can initialize assets for a specific window
 		self.plugins.render:register(window)
 		self.plugins.overlay:register(window)

assets/showcase/v0.4.0.png

@@ -77,10 +77,11 @@ function Win32Window:setTitle(title)
 end
 
 function Win32Window:destroy()
-	print("Warning: Win32Window:destroy is unimplemented")
+	user32.destroyWindow(self.hwnd)
 end
 
 ---@class Win32EventLoop: EventLoop
+---@field windows table<string, Win32Window>
 ---@field class user32.WNDCLASSEXA
 ---@field isActive boolean
 ---@field currentMode "poll" | "wait"
@@ -105,7 +106,6 @@ function Win32EventLoop.new()
 		end
 
 		local window = self.windows[util.toPointer(hwnd)]
-
 		if not window then
 			return user32.defWindowProc(hwnd, msg, wParam, lParam)
 		end
@@ -218,7 +218,7 @@ function Win32EventLoop:run(callback)
 	local msg = user32.newMsg()
 	while self.isActive do
 		if self.currentMode == "poll" then
-			while user32.peekMessage(msg, nil, 0, 0, user32.PM_REMOVE) do
+			if user32.peekMessage(msg, nil, 0, 0, user32.PM_REMOVE) then
 				user32.translateMessage(msg)
 				user32.dispatchMessage(msg)
 			end
@@ -237,6 +237,10 @@ function Win32EventLoop:run(callback)
 
 		callback({ name = "aboutToWait" }, self.handler)
 	end
+
+	for _, window in pairs(self.windows) do
+		self:close(window)
+	end
 end
 
 return { Window = Win32Window, EventLoop = Win32EventLoop }