equal
deleted
inserted
replaced
5169 Dialog warn:('Cannot tag unloaded class: %1.' bindWith:cls name). |
5169 Dialog warn:('Cannot tag unloaded class: %1.' bindWith:cls name). |
5170 alreadyWarned := alreadyWarned + 1. |
5170 alreadyWarned := alreadyWarned + 1. |
5171 ] ifFalse:[ |
5171 ] ifFalse:[ |
5172 alreadyWarned == 1 ifTrue:[ |
5172 alreadyWarned == 1 ifTrue:[ |
5173 answer := Dialog confirmWithCancel:('Cannot tag unloaded class: %1.\\Suppress further warnings?' withCRs bindWith:cls name). |
5173 answer := Dialog confirmWithCancel:('Cannot tag unloaded class: %1.\\Suppress further warnings?' withCRs bindWith:cls name). |
5174 answer == nil ifTrue:[^ self]. |
5174 answer isNil ifTrue:[^ self]. |
5175 answer == true ifTrue:[ |
5175 answer == true ifTrue:[ |
5176 alreadyWarned := alreadyWarned + 1. |
5176 alreadyWarned := alreadyWarned + 1. |
5177 ]. |
5177 ]. |
5178 ] |
5178 ] |
5179 ]. |
5179 ]. |