OBEL: Find Tag; Show 1e gDisplay

' This finds the 1st instance of display c/ ConcatString, in g dir, then displays it, zoomed.
                                            ConcatString = "analog.g132d_btu.curval";
                  System showObjectByDBKey: ConcatString;
  MsgBox msgtxt: (System showObjectByDBKey: ConcatString) ok: nil;
'
method Trigger onmsg: msg
begin

| ConcatString |
  ConcatString = ~v_edit_field/Concat  getText;
  System showObjectByDBKey: ConcatString;

MsgBox msgtxt: ConcatString + " :: " + (System showObjectByDBKey: ConcatString) ok: nil;

  ^true;
end