Visible

This property assumes a value of "0" if the Status-Bar control is not visible, "1" if it is visible.

 

Example - Display a status-bar, initially invisible to make it visible later on

working-storage section. 77 screen-1-st-2-hdl handle of status-bar. 01 filler pic x.    88 show-status-bar value "y" false "n".    ... procedure division. ... *> Display a Window first to display the status-bar upon it ...   display status-bar           visible 0           font Default-Font           background-color 7           foreground-color 3           panel-widths ( 30 50)           panel-style ( 1 2)           panel-alignment ( "U" "U")           panel-bitmap ( icon-png2 icon-png2)           panel-bitmap-width ( 18 18)           panel-bitmap-number ( 4 5)           panel-bitmap-alignment ( "U" "U")           handle screen-1-st-2-hdl           .   modify screen-1-st-2-hdl      panel-index 1      panel-text "Date: "      panel-hint "This is the current system date"      panel-color 516      panel-index 2      panel-text "Screen Status: "      panel-hint "This is the status of the program"   . ...   if show-status-bar      modify screen-1-st-2-hdl visible 1   end-if ...