Remove stale Spry script
This commit is contained in:
parent
aadf7a3dc7
commit
3e324e2de4
|
@ -1,92 +0,0 @@
|
|||
#!/usr/bin/env spry
|
||||
|
||||
title = "Simple Chat Demo"
|
||||
|
||||
# Initialize libui
|
||||
uiInit
|
||||
|
||||
username = "user"
|
||||
|
||||
menu = newMenu "Menu"
|
||||
|
||||
# menu addItem: "Username" onClicked: [
|
||||
# dialog = newWindow: "Username" width: 200 height: 40 hasBar: false
|
||||
# entry = newEntryText: username onChanged: []
|
||||
# quitit = newButton: "Quit" onClicked: [
|
||||
# destroy dialog
|
||||
# true
|
||||
# ]
|
||||
# layout = newHorizontalBox
|
||||
# #layout add: entry stretch: true
|
||||
# layout.add: quitit stretch: false
|
||||
# group = newGroup "Username"
|
||||
# group setChild: layout
|
||||
# dialog setChild: quitit
|
||||
# dialog show
|
||||
# ]
|
||||
|
||||
menu menuAppendAboutItem
|
||||
|
||||
menu addQuitItemShouldClose: [
|
||||
win destroy
|
||||
uiQuit
|
||||
true
|
||||
]
|
||||
|
||||
# Create a new Window
|
||||
win = newWindow: title width: 640 height: 400 hasBar: true
|
||||
win margined: true
|
||||
|
||||
# create text boxes
|
||||
scrollback = newMultilineEntryText
|
||||
scrollback readonly: true
|
||||
|
||||
sendEntry = newMultilineEntryText
|
||||
|
||||
# create layouts
|
||||
layout = newVerticalBox
|
||||
sendBox = newHorizontalBox
|
||||
|
||||
# Some buttons and their handlers
|
||||
sendButton = newButton: "Send" onClicked: [
|
||||
msg = (sendEntry text)
|
||||
msg != "" then: [
|
||||
scrollback addText: (msg, "\x0a")
|
||||
sendEntry text: ""
|
||||
]
|
||||
]
|
||||
|
||||
# Group
|
||||
group = newGroup "Workspace"
|
||||
group margined: false
|
||||
group setChild: layout
|
||||
|
||||
sendBox add: sendEntry stretch: true
|
||||
sendBox add: sendButton stretch: false
|
||||
|
||||
# Put things in the boxes
|
||||
layout padded: true
|
||||
layout add: scrollback stretch: true
|
||||
layout add: sendBox stretch: false
|
||||
|
||||
# Add box to window
|
||||
win setChild: group
|
||||
|
||||
# Set initial text
|
||||
sendEntry text: "compose a message here"
|
||||
|
||||
# Close handler
|
||||
closeHandler = [
|
||||
win destroy
|
||||
uiQuit
|
||||
true
|
||||
]
|
||||
|
||||
# Set a handler on closing window
|
||||
win onClosingShouldClose: [ true ]
|
||||
|
||||
# Show the window
|
||||
win show
|
||||
|
||||
# Enter libui's event loop
|
||||
uiMain
|
Loading…
Reference in New Issue