Diff for /Amaya/amaya/HTML.S between versions 1.55 and 1.56

version 1.55, 1998/05/11 12:53:53 version 1.56, 1998/06/09 11:51:26
Line 242  STRUCT Line 242  STRUCT
         Radio_Menu;          Radio_Menu;
         Option_Menu;          Option_Menu;
         Text_Input_Line;          Text_Input_Line;
         Command_Line;  
         Text_Area (ATTR !NAME; Rows = Integer; Columns = Integer;          Text_Area (ATTR !NAME; Rows = Integer; Columns = Integer;
                         Default_Value = Text) =                          Default_Value = Text) =
                 Text_With_Frame with Rows ?= 4, Columns ?= 20;                  Text_With_Frame with Rows ?= 4, Columns ?= 20;
Line 252  STRUCT Line 251  STRUCT
         Block_Quote;          Block_Quote;
         Preformatted;          Preformatted;
         Division;          Division;
           Table;
         Center;          Center;
         ISINDEX;          ISINDEX;
         END;          END;
Line 262  STRUCT Line 262  STRUCT
         TEXT;          TEXT;
   
   Toggle_Menu = LIST OF (Toggle_Item)    Toggle_Menu = LIST OF (Toggle_Item)
         - (Text_Input_Line, Command_Line, Toggle_Menu, Radio_Menu);          - (Text_Input_Line, Toggle_Menu, Radio_Menu);
   Toggle_Item = BEGIN    Toggle_Item = BEGIN
         Basic_Set;          Basic_Set;
         Checkbox_Input (ATTR !NAME;           Checkbox_Input (ATTR !NAME; 
Line 273  STRUCT Line 273  STRUCT
         END;          END;
   
   Radio_Menu (ATTR !NAME) = LIST OF (Radio_Item)    Radio_Menu (ATTR !NAME) = LIST OF (Radio_Item)
         - (Text_Input_Line, Command_Line, Toggle_Menu, Radio_Menu);          - (Text_Input_Line, Toggle_Menu, Radio_Menu);
   Radio_Item = BEGIN    Radio_Item = BEGIN
         Basic_Set;          Basic_Set;
         Radio_Input (ATTR !NAME; Checked; DefaultChecked; !Value_) =          Radio_Input (ATTR !NAME; Checked; DefaultChecked; !Value_) =
Line 286  STRUCT Line 286  STRUCT
         Text_Input (ATTR !NAME; Area_Size = Integer; MaxLength = Integer; Value_) =          Text_Input (ATTR !NAME; Area_Size = Integer; MaxLength = Integer; Value_) =
                 Text_With_Frame with Area_Size ?= 20;                  Text_With_Frame with Area_Size ?= 20;
         Basic_Set;          Basic_Set;
         END - (Text_Input_Line, Command_Line, Toggle_Menu, Radio_Menu);          END - (Text_Input_Line, Toggle_Menu, Radio_Menu);
   
   Command_Line = BEGIN  
         Reset_Input (ATTR NAME; Value_) = BEGIN  
                 Frame;  
                 END with NAME ?= 'Reset', Value_ ?= 'Reset';  
         Space = CONSTANT C_Empty;  
         Submit_Input (ATTR NAME; Value_) = BEGIN  
                 Frame;  
                 END with Value_ ?= 'Submit';  
         END - (Text_Input_Line, Command_Line, Toggle_Menu, Radio_Menu);  
   
   Input = CASE OF    Input = CASE OF
         Checkbox_Input;          Checkbox_Input;
Line 305  STRUCT Line 295  STRUCT
         Hidden_Input (ATTR !NAME; Value_) = CONSTANT C_Empty;          Hidden_Input (ATTR !NAME; Value_) = CONSTANT C_Empty;
         Password_Input (ATTR !NAME; Area_Size; MaxLength) = Text_With_Frame;          Password_Input (ATTR !NAME; Area_Size; MaxLength) = Text_With_Frame;
         File_Input (ATTR !NAME) = CONSTANT C_Empty;          File_Input (ATTR !NAME) = CONSTANT C_Empty;
         Reset_Input;          Reset_Input (ATTR NAME; Value_) = BEGIN
         Submit_Input;                  Frame;
                   END with NAME ?= 'Reset', Value_ ?= 'Reset';
           Submit_Input (ATTR NAME; Value_) = BEGIN
                   Frame;
                   END with Value_ ?= 'Submit';
         Option_Menu;          Option_Menu;
         Text_Area;          Text_Area;
         END;          END;

Removed from v.1.55  
changed lines
  Added in v.1.56


Webmaster