!7

concept Line {
  S text;
  S type; // 'user, 'suggested, 'bot
}

concept Interaction {
  new L<Line> lines;
  bool current;
}

module TrainInteraction {
  transient S imageID = #1101205;
  transient JTextField tfInput, tfToSay;
  transient JLabel lblOutput;
  transient Interaction current;

  start {
    db();
    current = conceptWhere(Interaction, current := true);
  }

  visualize {
    tfInput = jTextField();
    tfToSay = jTextField();
    ret withBottomMargin(20,
      centerAndSouthWithMargins(
        westAndCenterWithMargin(jimage(imageID), dm_printLogComponent()),
        northAndCenterWithMargin(
          fontSize(20, lblOutput = jCenteredBoldLabel("Hello!")),
          makeForm3(
            "Your input:", focusOnShow(fontSize(16, tfInput)),
            "Make me say:", focusOnShow(fontSize(16, tfToSay)))
          )));
  }
}