equal
deleted
inserted
replaced
330 |
330 |
331 accessCharacterPosition := index |
331 accessCharacterPosition := index |
332 ! |
332 ! |
333 |
333 |
334 activeHelpKey |
334 activeHelpKey |
335 "the key used as index (and argument) to the helpSpec" |
|
336 |
|
337 ^ activeHelpKey |
|
338 ! |
|
339 |
|
340 activeHelpKey:aKey |
|
341 "the key used as index (and argument) to the helpSpec. |
335 "the key used as index (and argument) to the helpSpec. |
342 New: may also be an association; then the assoc's key is the help-text provider, |
336 New: may also be an association; then the assoc's key is the help-text provider, |
343 and the assoc's value is the key in that provider's helpspec." |
337 and the assoc's value is the key in that provider's helpspec." |
344 |
338 |
345 activeHelpKey := aKey |
339 ^ activeHelpKey |
346 |
340 |
347 "Modified (comment): / 10-08-2018 / 11:39:30 / Claus Gittinger" |
341 "Modified (comment): / 30-05-2019 / 09:42:26 / Claus Gittinger" |
|
342 ! |
|
343 |
|
344 activeHelpKey:aSymbolicKeyOrClassPlusSymbolAssoc |
|
345 "the key used as index (and argument) to the helpSpec. |
|
346 New: may also be an association; then the assoc's key is the help-text provider, |
|
347 and the assoc's value is the key in that provider's helpspec." |
|
348 |
|
349 activeHelpKey := aSymbolicKeyOrClassPlusSymbolAssoc |
|
350 |
|
351 "Modified (format): / 30-05-2019 / 09:40:16 / Claus Gittinger" |
348 ! |
352 ! |
349 |
353 |
350 argument |
354 argument |
351 "get argument given to the value (selector)" |
355 "get argument given to the value (selector)" |
352 |
356 |