venice-main-classic/scripts/test/test2.jacl
2002-01-07 02:05:37 +00:00

10 lines
487 B
Plaintext

# Script for testing the View mechanism
package require java
java::import com.silverwrist.venice.ui.LinkTypes
set rc [java::new com.silverwrist.venice.ui.view.TextMessage "Test Display" "subtitle"]
set blort "If this had been an actual emergency we would all be dead by now."
java::prop $rc text "This is a test.<BR>This is only a test.<BR>$blort"
$rc addButton [java::field LinkTypes ABSOLUTE] "TODO" "ok"
$rc addButton [java::field LinkTypes ABSOLUTE] "TODO" "cancel"
$vlib output $rc