shiftos-next/shiftos_next/BWM and CMD Apps/basicwm_infobox.vb
TheUltimateHacker ccdbbbed18 BWM - Skinning!
Yay! ShiftOS Next can finally be Shifted! Yes, that's true. I've added
basic skinning to the Basic Window Manager. Currently, the only way to
get to it is by typing "open shifter" in the Terminal, and the Shifter
will open. Choose the settings you want and hit Apply!

This is also the Alpha 3 commit, so after this I'll make the next
release.
2015-05-29 09:57:53 -04:00

20 lines
No EOL
624 B
VB.net

Public Class basicwm_infobox
Public userinput As String
Public Sub showinfo(title As String, message As String, Optional showtextbox As Boolean = False)
Titlebar.AppName = title
Titlebar.shiftorium_special()
lbmessage.Text = message
btnok.Text = "> OK <"
txtuserinput.Visible = showtextbox
Me.StartPosition = FormStartPosition.CenterScreen
Me.TopMost = True
Me.ShowDialog()
End Sub
Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click
userinput = txtuserinput.Text
Me.Close()
End Sub
End Class