OBEL: Invoke 1sec timer for user JFJF

method Trigger onmsg: msg
begin

' Jeff Stuff #1 '
| Userdoodle |

' Regular Stuff '
  self store: "add succeeded."                  at: "Insert";
  self store: "modify succeeded."               at: "Update";
  self store: "delete succeeded."               at: "Delete";
  self store: "does not exist or request has timed out"     at: "Access2Create";
  self store: "already exists. It must be modified."        at: "Access0";
  self store: "does not exist."                 at: "Access2";
  self store: "add succeeded"                   at: "InsertChild";
  self store: "modify succeeded"                at: "UpdateChild";
  self store: "delete succeeded"                at: "DeleteChild";
  self store: "cannot be blank."                at: "NullName";
  self store: "service failed."                 at: "ServiceFail";
  self store: "already being edited. Record cannot be modified." at: "ReadOnly";
  self store: "cannot be deleted. You can only delete the record being edited." at: "DelName";
  self store: "configuration privilege not defined to allow write access." at: "ConfigPriv";
  self store: "Switch succeeded."               at: "ModeSwitch";

' Jeff Stuff #2 '
  Userdoodle = ((System getUserName)toUpper);
  Userdoodle == "JFJF"
  ifTrue: [
            self setWindowType: "Popup";
            self setPopupTimeout: 1;
          ];
^true
end