newhs_window.e

   1 class NEWHS_WINDOW
   2 inherit
   3     WINDOW
   4 creation make
   5 feature
   6     name_tb : TEXTBOX
   7
   8     make is
   9     local
  10         b : BUTTON
  11         c : COMMAND
  12         l : LABEL
  13     do
  14         widget_init
  15
  16         put_size(200, 100)
  17         !!b.make("Ok")
  18         b.put_size(60, 20)
  19         !COMMAND_ACTIVATE!c.make(Current)
  20         b.put_command(c, b.signal_activate)
  21         add_widget(b, 30, 75)
  22
  23         !!l.make("New high score!")
  24         l.put_size(100, 20)
  25         add_widget(l, 10, 5)
  26
  27         !!l.make("Name")
  28         l.put_size(50, 20)
  29         add_widget(l, 10, 30)
  30         !!name_tb.make
  31         name_tb.put_size(120, 16)
  32         add_widget(name_tb, 60, 30)
  33         name_tb.put_command(c, name_tb.signal_activate)
  34     end
  35 end