| SAT Demo2 Application - main |
|
| Home | SATGUI | SATSHELL | SATFORM | SATFILTER | SATREPORT | SATMYSQL | License | Download | Examples | Contact |
| Source Code |
newScreen {{"Hosts"} 67x22 hosts}
addMultiList {hosts 1,1 19 {Host,12 Serial_No,15 Company,16 Model,15} {displayhost hosts(0)} outline yscroll}
addMenu {
{+Action
{Add_Host {addhost}}
{Add_Disk {adddisk host disk:id disk:size type} validate(disk) group(display)}
{}
{Save {%save host serial_no company model os processors speed_mhz memory_mb ip_address updated} validate() group(add,display)}
{}
{Delete_Host {deletehost host} group(display)}
{Delete_Disk {deletedisk host disk:id} group(display)}
{}
{Print {%print host} group(+display,+hosts)}
{}
{+Exit {exit}}
}
{+View
{+Hosts {main}}
}
}
| Comments |
This SAT/DL screen displays summary details for all the hosts in the demo database. This is the application "entry" point.
Called by: Menubar option.
newScreen {{"Hosts"} 67x22 hosts}
Clear the screen/message line, set the application screen size to 67 characters by 22 rows,
set the window title to "Hosts", and the Group to hosts.
addMultiList {hosts 1,1 19 {Host,12 Serial_No,15 Company,16 Model,15} {displayhost hosts(0)} outline yscroll}
Add a multi-column list box called hosts with its top left corner at column 1,
row 1 which is 19 lines deep. The list box has four columns: "Host"
(12 characters), "Serial No" (15 characters), "Company"
(16 characters) and "Model" (15 characters). All of the columns are,
by default, left justified. When a host is selected by double-click, the displayhosts
process is run with the contents of first column (hosts(0)) of the selected hosts
line being passed as a parameter. The list box has an outline and a vertical scrollbar
(yscroll).
addMenu {
{+Action
{Add_Host {addhost}}
{Add_Disk {adddisk host disk:id disk:size type} validate(disk) group(display)}
{}
{Save {%save host serial_no company model os processors speed_mhz memory_mb ip_address updated} validate() group(add,display)}
{}
{Delete_Host {deletehost host} group(display)}
{Delete_Disk {deletedisk host disk:id} group(display)}
{}
{Print {%print host} group(+display,+hosts)}
{}
{+Exit {exit}}
}
{+View
{+Hosts {main}}
}
}
Add a menubar. The menubar contains two menus Action and View.
The "+" prefixes cause these menus to always be active.
The Action menu has the following options:-