[BACK]Return to HTML.S CVS log [TXT] [DIR] Up to [Public] / Amaya / amaya

Diff for /Amaya/amaya/HTML.S between versions 1.38 and 1.39

version 1.38, 1997/09/23 16:40:01 version 1.39, 1997/10/17 08:32:07
Line 245  STRUCT Line 245  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);    Toggle_Menu = LIST OF (Toggle_Item) - (Text_Input_Line, Command_Line, Toggle_Menu, Radio_Menu);
   Toggle_Item = BEGIN    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_;
         TEXT;          Basic_Set;
         END;          END;
   
   Radio_Menu (ATTR !NAME) = LIST OF (Radio_Item) - (Input);    Radio_Menu (ATTR !NAME) = LIST OF (Radio_Item) - (Text_Input_Line, Command_Line, Toggle_Menu, Radio_Menu);
   Radio_Item = BEGIN    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';
         TEXT;          Basic_Set;
         END;          END;
   
   Text_Input_Line = BEGIN    Text_Input_Line = BEGIN
         TEXT;          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;
         END - (Input);          Basic_Set;
           END - (Text_Input_Line, Command_Line, Toggle_Menu, Radio_Menu);
   
   Command_Line = BEGIN    Command_Line = BEGIN
         Reset_Input (ATTR NAME; Value_) = BEGIN          Reset_Input (ATTR NAME; Value_) = BEGIN
Line 275  STRUCT Line 278  STRUCT
         Submit_Input (ATTR NAME; Value_) = BEGIN          Submit_Input (ATTR NAME; Value_) = BEGIN
                 Frame;                  Frame;
                 END with Value_ ?= 'Submit';                  END with Value_ ?= 'Submit';
         END - (Input);          END - (Text_Input_Line, Command_Line, Toggle_Menu, Radio_Menu);
   
   Input = CASE OF    Input = CASE OF
         Checkbox_Input;          Checkbox_Input;
Removed from v.1.38  
changed lines
  Added in v.1.39

Webmaster