17 lines
700 B
Plaintext
17 lines
700 B
Plaintext
|
# Script for testing the sidebox framework
|
||
|
|
# Translated from test3.js
|
||
|
|
|
||
|
|
package require java
|
||
|
|
java::import com.silverwrist.venice.ui.LinkTypes
|
||
|
|
java::import com.silverwrist.venice.ui.view.SideBoxNestedView
|
||
|
|
java::import com.silverwrist.venice.ui.view.TextMessage
|
||
|
|
|
||
|
|
set rinput [bsf lookupBean "request"]
|
||
|
|
set rc [java::new TextMessage "Test Display" "Jacl 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"
|
||
|
|
|
||
|
|
set rc2 [java::new SideBoxNestedView $rinput $rc]
|
||
|
|
$vlib output $rc2
|