SAT Demo2 Application - main
S@
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:-

The View menu has the following option:- NOTE: The percent sign ("%") in menu action names is replaced by the name of the current group. In the "Save" option above %save becomes addsave when the Group is set to "add", and displaysave when the Group is set to "display".


Copyright © 2003 Adrian Davis.