regtests/hello.e

   1 indexing
   2         description: "A simple class to display a message"
   3         author: "Pascal Obry"
   4
   5 class
   6         HELLO
   7
   8 feature  --  Output
   9
  10         output is
  11                 do
  12                         io.print ("My message is simply : ")
  13                         io.print (msg)
  14                         io.print ("%N")
  15                 end
  16
  17 feature  --  Modifier
  18
  19         set (str : STRING) is
  20                 do
  21                         msg := str
  22                 end
  23
  24 feature {NONE}  --  Implementation
  25
  26         msg : STRING
  27
  28 end