From 424931951bf55c2db7a7cb3228bfccc03ea62287 Mon Sep 17 00:00:00 2001 From: TheUltimateHacker Date: Thu, 28 May 2015 21:42:26 -0400 Subject: Shiftorium - Draggable Windows upgrade + Bugfixes Alright, I've added the Draggable Windows upgrade to the Shiftorium, as well as fixed a quick bug causing "No Items Available" to display when there were items clearly available. I've also fixed a positioning bug with BWM windows causing them to start in the center of the screen, relative to the titlebar, rather than the form. I've also re-arranged the code a bit, organizing files in folders. APIs are in the APIs folder, Desktop Environments are in the Desktop Environments folder, etc. The shiftorium still doesn't have draggable window functionality yet... --- shiftos_next/APIs/shiftorium_api.vb | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 shiftos_next/APIs/shiftorium_api.vb (limited to 'shiftos_next/APIs/shiftorium_api.vb') diff --git a/shiftos_next/APIs/shiftorium_api.vb b/shiftos_next/APIs/shiftorium_api.vb new file mode 100644 index 0000000..39960e4 --- /dev/null +++ b/shiftos_next/APIs/shiftorium_api.vb @@ -0,0 +1,21 @@ +Module shiftorium_api + 'API for Shiftorium Applications. + + Public listboxtoaddto As ListBox + Public codepoints As Integer + + Public Sub DeductCP(ammount As Integer) + codepoints -= ammount + savegame() + End Sub + + Public Sub AddCP(ammount As Integer) + codepoints += ammount + savegame() + End Sub + + Public Sub AddItem(name As String, CP As Integer) + listboxtoaddto.Items.Add(name & " - " & CP & " CP") + End Sub + +End Module -- cgit v1.2.3