equal
deleted
inserted
replaced
950 |
950 |
951 (selector := SystemBrowser extractSelectorFrom:string) notNil ifTrue:[ |
951 (selector := SystemBrowser extractSelectorFrom:string) notNil ifTrue:[ |
952 selector ~= string string ifTrue:[ |
952 selector ~= string string ifTrue:[ |
953 ^ self explain:selector in:source forClass:aClass short:shortText |
953 ^ self explain:selector in:source forClass:aClass short:shortText |
954 ]. |
954 ]. |
|
955 ]. |
|
956 someText size == 1 ifTrue:[ |
|
957 ^ 'no explanation; character encoding: %1 (0x%2)' |
|
958 bindWith:someText first codePoint |
|
959 with:(someText first codePoint hexPrintString:4) |
955 ]. |
960 ]. |
956 ^ 'no explanation' |
961 ^ 'no explanation' |
957 ]. |
962 ]. |
958 |
963 |
959 explainer isNil ifTrue:[ |
964 explainer isNil ifTrue:[ |
962 ^ 'Sorry, I cannot explain this (could not figure out what this is). |
967 ^ 'Sorry, I cannot explain this (could not figure out what this is). |
963 Please try again with an individual token selected.' |
968 Please try again with an individual token selected.' |
964 |
969 |
965 "Created: / 03-12-1995 / 12:47:37 / cg" |
970 "Created: / 03-12-1995 / 12:47:37 / cg" |
966 "Modified: / 16-04-1997 / 12:46:11 / stefan" |
971 "Modified: / 16-04-1997 / 12:46:11 / stefan" |
967 "Modified: / 30-04-2016 / 15:00:28 / cg" |
972 "Modified: / 28-07-2017 / 10:46:51 / cg" |
968 ! |
973 ! |
969 |
974 |
970 explainGlobal:string inClass:aClass short:shortText |
975 explainGlobal:string inClass:aClass short:shortText |
971 "return an explanation or nil" |
976 "return an explanation or nil" |
972 |
977 |