MODIFY

Format 1

MODIFY { control-item } [ ( {index-1} ... ) ]
       { CONTROL       }

Remaining phrases are optional.

AT screen-loc   [CELL  ]
                [CELLS ]
                [PIXEL ]
                [PIXELS]

AT LINE NUMBER line-num   [CELL  ]
                          [CELLS ]
                          [PIXEL ]
                          [PIXELS]

AT {COLUMN  } NUMBER col-num   [CELL  ]
   {COL     }                  [CELLS ]
   {POSITION}                  [PIXEL ]
   {POS     }                  [PIXELS]

AT CLINE NUMBER cline-num

AT CCOL NUMBER ccol-num

SIZE {IS} length [CELL  ]
     {= }        [CELLS ]
                 [PIXEL ]
                 [PIXELS]

LINES {IS} height [CELL  ]
      {= }        [CELLS ]
                  [PIXEL ]
                  [PIXELS]
CSIZE   {IS} clength  [CELL ]
        {= }          [CELLS]

CLINES  {IS} cheight  [CELL ]
        {= }          [CELLS]

TITLE {IS} title
      {= }

{COLOR } IS color-val
          {COLOUR}

{FOREGROUND-COLOR } IS fg-color
{FOREGROUND-COLOUR}

{BACKGROUND-COLOR } IS bg-color
{BACKGROUND-COLOUR}

{HIGHLIGHT}
{HIGH     }
{BOLD     }
{LOWLIGHT }
{LOW      }
{STANDARD }

{BACKGROUND-HIGH    }
{BACKGROUND-LOW     }
{BACKGROUND-STANDARD}

STYLE {IS} style-flags
      {= }

{ [NOT] style-name } ...

VALUE {IS} [ MULTIPLE ] value [ LENGTH {IS} length-1 ]
      {= } [ TABLE    ]                {= }

FONT {IS} font-handle
     {= }

ENABLED {IS} {TRUE         }
        {= } {FALSE        }
             {enabled-state}

VISIBLE {IS} {TRUE         }
        {= } {FALSE        }
             {visible-state}

POP-UP MENU {IS} {menu-1}
            {= } {NULL  }

EVENT PROCEDURE IS { proc-1 [ {THROUGH} proc-2 ] }
                              {THRU   }
                   { NULL                        }

{ property-name          } {IS } { prop-option [GIVING result-1] }...
{ PROPERTY property-type } {ARE}
{ method-name            } {=  }
{ object-expression      }

where prop-option is one of the following:

{ property-value [ LENGTH {IS} length-1 ] }
{                         {= }            }
{                                         )
{ ( {property-value} ... )                }
{                                         }
{ { MULTIPLE } property-table             }
{ { TABLE    }                            }
{                                         }
{ parameter                               }
{                                         }
{ ( { parameter } ... )                   }

Format 2

MODIFY {window-handle           }
       {WINDOW [generic-handle] }

Remaining phrases are optional.

AT screen-loc

LINE NUMBER line-num

{COLUMN  } NUMBER col-num
{COL     }
{POSITION}
{POS     }

SCREEN LINE NUMBER screen-line

SCREEN {COLUMN  } NUMBER screen-col
       {COL     }
       {POSITION}
       {POS     }

EVENT PROCEDURE IS { proc-1 [ {THROUGH} proc-2 ] }
                              {THRU   }
                   { NULL                        }

END-MODIFYSIZE width

LINES height

TITLE title

ON EXCEPTION statement-1

NOT ON EXCEPTION statement-2

VISIBLE {IS} {TRUE         }
        {= } {FALSE        }
             {visible-state}

POP-UP MENU {IS} {menu-1}
            {= } {NULL  }

ACTION {IS} action
       {= }

END-MODIFY