tSGWork

type tSGWork = record

  Gadget: pGadget;

the contestant itself

  StringInfo: pStringInfo;

easy access to sinfo

  WorkBuffer: PChar;

intuition's planned result

  PrevBuffer: PChar;

what was there before

  Modes: LongWord;

current mode (SGM_*)

  IEvent: pInputEvent;

actual event: do not change

  Code: Word;

character code, if one Byte

  BufferPos: SmallInt;

cursor position

  NumChars: SmallInt;

  Actions: LongWord;

what Intuition will do

  LongInt_: LongInt;

temp storage for LongInt

  GadgetInfo: pGadgetInfo;

  EditOp: Word;

from constants below

end;