# Invoke the Maplets Elements subpackage.
with( Maplets[Elements] ):

# Define the Maplet application.
maplet := Maplet(
    
    # The BoxLayout element structures the Maplet application
    # window into three rows. The BowLayout element
    # ensures that the rows are equidistant.
    [
        "Values of the sine function:",

        # The TableLayout element creates a matrix-like
        # layout. Each row of the TableLayout element
        # contains:
        Table( ["x", "sin(x)"],
           [seq( [evalf[3](i/10), evalf[3](sin(i/10))], i = 0..62 )]
        ),

        # The OK button shuts down the Maplet application
        Button( "OK", Shutdown() )
   ]
):

# Display runs the Maplet application.
Maplets[Display](maplet):

maplet := Maplet(
    
    # The BoxLayout element structures the Maplet application
    # window into three rows. The BowLayout element
    # ensures that the rows are equidistant.
    Window( 'title' = "The Sine Function", [
        Label(
            "Values of the sine function:",
            'foreground' = COLOR(RGB, 1, 1, 0 ),
            'font' = Font("helvetica", 14)
        ),

        BoxCell( 'vscroll' = 'as_needed',
            Table( 'width' = 200, ["x", "sin(x)"],
               [seq( [evalf[3](i/10), evalf[3](sin(i/10))], i = 0..62 )]
            )
        ),
        Button( "OK", Shutdown() )
   ]
) ):

# Display runs the Maplet application.
Maplets[Display](maplet):

?Maplets[Examples][ShowTable]

print( Maplets[Examples][ShowTable] );