changeset 6898 | 344b0dbd9690 |
parent 6873 | 30840365af0a |
child 7043 | 7c080e5ac8d0 |
6897:a9126661f613 | 6898:344b0dbd9690 |
---|---|
184 procedure initModule; |
184 procedure initModule; |
185 begin |
185 begin |
186 pointsListHead:= nil; |
186 pointsListHead:= nil; |
187 pointsListLast:= nil; |
187 pointsListLast:= nil; |
188 |
188 |
189 RegisterVariable('draw', vtCommand, @chDraw, false); |
189 RegisterVariable('draw', @chDraw, false); |
190 end; |
190 end; |
191 |
191 |
192 procedure freeModule; |
192 procedure freeModule; |
193 var pe, pp: PPointEntry; |
193 var pe, pp: PPointEntry; |
194 begin |
194 begin |