equal
deleted
inserted
replaced
300 ! |
300 ! |
301 |
301 |
302 activeHelpKey:aKey |
302 activeHelpKey:aKey |
303 "the key used as index (and argument) to the helpSpec" |
303 "the key used as index (and argument) to the helpSpec" |
304 |
304 |
305 activeHelpKey := aKey |
305 aKey isAssociation ifTrue:[ |
|
306 self halt:'someone provides a bad key to me'. |
|
307 activeHelpKey := aKey key |
|
308 ] ifFalse:[ |
|
309 activeHelpKey := aKey |
|
310 ]. |
|
311 |
|
312 "Modified: / 09-08-2018 / 15:50:45 / Claus Gittinger" |
306 ! |
313 ! |
307 |
314 |
308 argument |
315 argument |
309 "get argument given to the value (selector)" |
316 "get argument given to the value (selector)" |
310 |
317 |