new alert functionality

Author: Mistium

OSL Programs/apps/System/.Install_system.json

@@ -81,7 +81,7 @@
     "path": "Origin/(A) System/System Apps",
     "name": "Alert.osl",
     "icon": "c #111 w 10 square 0 0 5 5 c #fff icn info 0.4",
-    "version":"1.3"
+    "version":"1.4"
   },
   {
     "url": "https://origin.mistium.com/OSL%20Programs/apps/System/Desktop.osl",

OSL Programs/apps/System/Alert.osl

@@ -45,6 +45,7 @@ def quitThisApp() (
     cursor "pointer"
     if onclick (
       window "kill" window.parent.id
+      window.close()
     )
     c txtc
   ) else (
@@ -152,6 +153,20 @@ def transfer() (
   quitThisApp()
 )
 
+def choose() (
+  parentSays("wants you to choose")
+  
+  goto -190 50
+  text popup_data.msg.wrapText(window.width / 10 - 5) 10 : c#txtc
+  
+  goto 0 -35
+  local click = acceptDeny(popup_data.left, popup_data.right)
+  if click != null (
+    transmit click window.parent.id
+  )
+  quitThisApp()
+)
+
 def buy_key() (
   parentSays("wants to")
 
@@ -214,6 +229,9 @@ switch type (
   case "say"
     say()
     break
+  case "choose"
+    choose()
+    break
   case "transfer"
     transfer()
     break