equal
deleted
inserted
replaced
1146 about:(resources string:msg) |
1146 about:(resources string:msg) |
1147 label:(resources string:'About ' , aClass nameWithoutPrefix) |
1147 label:(resources string:'About ' , aClass nameWithoutPrefix) |
1148 icon:aClass defaultIconForAboutBox |
1148 icon:aClass defaultIconForAboutBox |
1149 ! |
1149 ! |
1150 |
1150 |
1151 askWith:setupBlock ifNotNilOrEmptyDo:actionBlock |
1151 ask:setupBlock ifNotNilOrEmptyDo:actionBlock |
1152 "utility: open a requestor with setupBlock; |
1152 "utility: open a requestor with setupBlock; |
1153 if it answers ok, invoke actionBlock with the entered input. |
1153 if it answers ok, invoke actionBlock with the entered input. |
1154 Otherwise do nothing" |
1154 Otherwise do nothing" |
1155 |
1155 |
1156 |answer| |
1156 |answer| |
1160 actionBlock value:answer |
1160 actionBlock value:answer |
1161 ]. |
1161 ]. |
1162 |
1162 |
1163 " |
1163 " |
1164 Dialog |
1164 Dialog |
1165 askWith:[ Dialog requestFileName:'Some File:' ] |
1165 ask:[ Dialog request:'Some Answer:' ] |
1166 ifNotNilOrEmptyDo:[:what | Transcript showCR:what ] |
1166 ifNotNilOrEmptyDo:[:what | Transcript showCR:what ] |
1167 " |
1167 " |
1168 ! |
1168 " |
1169 |
1169 Dialog |
1170 askYesNoWith:setupBlock ifYesDo:actionBlock |
1170 ask:[ Dialog requestFileName:'Some File:' ] |
|
1171 ifNotNilOrEmptyDo:[:what | Transcript showCR:what ] |
|
1172 " |
|
1173 ! |
|
1174 |
|
1175 askYesNo:setupBlock ifYesDo:actionBlock |
1171 "utility: open a confirmer with setupBlock; |
1176 "utility: open a confirmer with setupBlock; |
1172 if it answers true, invoke actionBlock. |
1177 if it answers true, invoke actionBlock. |
1173 Otherwise do nothing" |
1178 Otherwise do nothing" |
1174 |
1179 |
1175 |answer| |
1180 |answer| |
1179 actionBlock value |
1184 actionBlock value |
1180 ]. |
1185 ]. |
1181 |
1186 |
1182 " |
1187 " |
1183 Dialog |
1188 Dialog |
1184 askYesNoWith:[ Dialog confirm:'Yes or No?' ] |
1189 askYesNo:[ Dialog confirm:'Yes or No?' ] |
1185 ifYesDo:[ Transcript showCR:'yes' ] |
1190 ifYesDo:[ Transcript showCR:'yes' ] |
1186 " |
1191 " |
1187 ! |
1192 ! |
1188 |
1193 |
1189 informUser:aString during:aBlock |
1194 informUser:aString during:aBlock |