>
|
use Maplets[Elements] in
maplet := Maplet(
'onstartup' = RunWindow( 'W1' ),
Font['F1']( 'family' = "helvetica",'size'=12 ),
Window['W1']( "Vector Norm",
[
BoxCell( 'left',
TextBox( 'editable' = 'false', 'width' = 50, 'font' = 'F1',
"A vector norm is a function ||V|| that satisifies the conditions of a norm."
)
),
[
"Norm (Select from list or enter non-negative number): ",
ComboBox['CoB1']( ["infinity", "1", "Euclidean (2)", "Frobenius"] )
],
[
"Vector has real entries: ",
CheckBox['ChB1']( 'true' )
],
[
"Evaluate result: ",
CheckBox['ChB2']( 'true' )
],
[
Button['B1']( "OK", Shutdown(['CoB1', 'ChB1', 'ChB2']) ),
Button['B2']( "Cancel", Shutdown() )
]
]
)
);
end use:
Maplets[Display](maplet);
|