Зарегистрирован: Суббота, 24 Август, 2013 08:57 Сообщения: 81
|
Иван Денисов told me there is an error in StdLinks.
Here is the correction: PROCEDURE (v: Link) Externalize- (VAR wr: Stores.Writer); VAR pos, version: INTEGER; BEGIN v.Externalize^(wr); IF v.leftSide THEN Strings.Find(v.cmd, "StdLinks.ShowTarget", 0, pos); IF HaveWideChars(v.cmd) THEN version := 2 ELSIF (pos = 0) & (v.close = never) OR (v.close = ifShiftDown) THEN version := 0 ELSE version := 1 END ELSE version := 0 END; ... The next version of CPC Edition will have this correction.
|
|