ChangeSet.st
changeset 4430 561bdbdc6c77
parent 4428 ad02ce323f29
child 4445 c6a9179c1637
equal deleted inserted replaced
4429:95c9b3c45e23 4430:561bdbdc6c77
  1026                                     InvalidChangeChunkError
  1026                                     InvalidChangeChunkError
  1027                                         raiseRequestErrorString:('unexpected change-chunk in or around line %1' bindWith:lineNumber)
  1027                                         raiseRequestErrorString:('unexpected change-chunk in or around line %1' bindWith:lineNumber)
  1028                                 ]
  1028                                 ]
  1029                             ]
  1029                             ]
  1030                         ]
  1030                         ]
  1031                     ]
  1031                     ] ifFalse:[
       
  1032                         "/ an error occurred - add it as a doit chunk
       
  1033                         Logger warning:'ChangeSet: parse error while reading'.
       
  1034                         "/ CUIS Smalltalk?
       
  1035                         "/ not sure, if the following is a good idea...
       
  1036                         "/ change := InvalidChange new source:chunk.
       
  1037                         "/ aBlock valueWithOptionalArgument:change and:lineNumber and:pos.
       
  1038                     ].    
  1032                 ]
  1039                 ]
  1033             ]
  1040             ]
  1034         ]
  1041         ]
  1035     ].
  1042     ].
  1036 
  1043 
  1041     "
  1048     "
  1042 
  1049 
  1043     "Created: / 16-02-1998 / 12:19:34 / cg"
  1050     "Created: / 16-02-1998 / 12:19:34 / cg"
  1044     "Modified: / 30-07-2013 / 21:34:16 / cg"
  1051     "Modified: / 30-07-2013 / 21:34:16 / cg"
  1045     "Modified: / 14-03-2014 / 16:39:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1052     "Modified: / 14-03-2014 / 16:39:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1046     "Modified: / 24-05-2018 / 14:54:07 / Claus Gittinger"
  1053     "Modified: / 27-05-2019 / 17:20:00 / Claus Gittinger"
  1047 ! !
  1054 ! !
  1048 
  1055 
  1049 !ChangeSet class methodsFor:'queries'!
  1056 !ChangeSet class methodsFor:'queries'!
  1050 
  1057 
  1051 current
  1058 current