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

version 1.56, 1998/06/09 11:51:26 version 1.57, 1998/06/10 15:56:03
Line 238  STRUCT Line 238  STRUCT
   Form_Element = CASE OF    Form_Element = CASE OF
         Paragraph;          Paragraph;
         Pseudo_paragraph;          Pseudo_paragraph;
         Toggle_Menu;  
         Radio_Menu;  
         Option_Menu;          Option_Menu;
         Text_Input_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 261  STRUCT Line 258  STRUCT
   Option (ATTR Selected = Yes_; DefaultSelected = Yes_; !Value_ = Text) =    Option (ATTR Selected = Yes_; DefaultSelected = Yes_; !Value_ = Text) =
         TEXT;          TEXT;
   
   Toggle_Menu = LIST OF (Toggle_Item)    Input = CASE OF
         - (Text_Input_Line, Toggle_Menu, Radio_Menu);  
   Toggle_Item = BEGIN  
         Basic_Set;  
         Checkbox_Input (ATTR !NAME;           Checkbox_Input (ATTR !NAME; 
                              Checked = Yes_, No_; DefaultChecked = Yes_, No_;                               Checked = Yes_, No_; DefaultChecked = Yes_, No_;
                              Value_) =                               Value_) =
                 CONSTANT C_Empty with Checked ?= No_;                  CONSTANT C_Empty with Checked ?= No_;
         Basic_Set;  
         END;  
   
   Radio_Menu (ATTR !NAME) = LIST OF (Radio_Item)  
         - (Text_Input_Line, Toggle_Menu, Radio_Menu);  
   Radio_Item = BEGIN  
         Basic_Set;  
         Radio_Input (ATTR !NAME; Checked; DefaultChecked; !Value_) =          Radio_Input (ATTR !NAME; Checked; DefaultChecked; !Value_) =
                 CONSTANT C_Empty with Checked ?= No_, NAME ?= 'radio';                  CONSTANT C_Empty with Checked ?= No_, NAME ?= 'radio';
         Basic_Set;  
         END;  
   
   Text_Input_Line = BEGIN  
         Basic_Set;  
         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;  
         END - (Text_Input_Line, Toggle_Menu, Radio_Menu);  
   
   Input = CASE OF  
         Checkbox_Input;  
         Radio_Input;  
         Text_Input;  
         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;

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


Webmaster