equal
deleted
inserted
replaced
5160 Dialog warn:('Cannot tag unloaded class: %1.' bindWith:cls name). |
5160 Dialog warn:('Cannot tag unloaded class: %1.' bindWith:cls name). |
5161 alreadyWarned := alreadyWarned + 1. |
5161 alreadyWarned := alreadyWarned + 1. |
5162 ] ifFalse:[ |
5162 ] ifFalse:[ |
5163 alreadyWarned == 1 ifTrue:[ |
5163 alreadyWarned == 1 ifTrue:[ |
5164 answer := Dialog confirmWithCancel:('Cannot tag unloaded class: %1.\\Suppress further warnings?' withCRs bindWith:cls name). |
5164 answer := Dialog confirmWithCancel:('Cannot tag unloaded class: %1.\\Suppress further warnings?' withCRs bindWith:cls name). |
5165 answer == nil ifTrue:[^ self]. |
5165 answer isNil ifTrue:[^ self]. |
5166 answer == true ifTrue:[ |
5166 answer == true ifTrue:[ |
5167 alreadyWarned := alreadyWarned + 1. |
5167 alreadyWarned := alreadyWarned + 1. |
5168 ]. |
5168 ]. |
5169 ] |
5169 ] |
5170 ]. |
5170 ]. |