equal
deleted
inserted
replaced
319 ) |
319 ) |
320 ! ! |
320 ! ! |
321 |
321 |
322 !UIHelpTool methodsFor:'accessing'! |
322 !UIHelpTool methodsFor:'accessing'! |
323 |
323 |
|
324 dictionaries |
|
325 "return dictionaries" |
|
326 |
|
327 ^dictionaries |
|
328 ! |
|
329 |
|
330 dictionaries:aDictionaryOfDictionaries |
|
331 "set dictionaries" |
|
332 |
|
333 (dictionaries := aDictionaryOfDictionaries) isNil ifTrue:[ |
|
334 dictionaries := Dictionary new. |
|
335 ]. |
|
336 self updateList |
|
337 ! |
|
338 |
324 dictionary |
339 dictionary |
325 "return the value of the instance variable 'dictionary' (automatically generated)" |
340 "return dictionary" |
326 |
341 |
327 ^ dictionary! |
342 ^ dictionary |
|
343 ! |
328 |
344 |
329 dictionary:aDictionary |
345 dictionary:aDictionary |
330 "set the value of the instance variable 'dictionary' (automatically generated)" |
346 "set dictionary" |
331 |
347 |
332 (dictionary := aDictionary) isNil ifTrue:[ |
348 (dictionary := aDictionary) isNil ifTrue:[ |
333 dictionary := Dictionary new. |
349 dictionary := Dictionary new. |
334 ]. |
350 ]. |
335 self updateList |
351 self updateList |
528 |
544 |
529 (implementedHelpSpec notEmpty and: [hasChanged and: |
545 (implementedHelpSpec notEmpty and: [hasChanged and: |
530 [DialogBox confirm: 'Class ', cls name asBoldText, ' already implements\a menu spec!!\\Do only replace, if you have removed\help keys in an existing help spec.\' withCRs yesLabel: ' Merge ' noLabel: ' Replace ']]) |
546 [DialogBox confirm: 'Class ', cls name asBoldText, ' already implements\a menu spec!!\\Do only replace, if you have removed\help keys in an existing help spec.\' withCRs yesLabel: ' Merge ' noLabel: ' Replace ']]) |
531 ifTrue: |
547 ifTrue: |
532 [ |
548 [ |
533 implementedHelpSpec associationsDo: [:h| helpSpec at: h key put: h value]. |
549 implementedHelpSpec associationsDo: [:h| (helpSpec includesKey: h key) |
|
550 ifFalse: [helpSpec at: h key put: h value]]. |
534 ] |
551 ] |
535 ]. |
552 ]. |
536 |
553 |
537 helpSpec isEmpty ifTrue:[ |
554 helpSpec isEmpty ifTrue:[ |
538 (cls superclass respondsTo: #helpSpec) ifTrue: [cls class removeSelector: #helpSpec]. |
555 (cls superclass respondsTo: #helpSpec) ifTrue: [cls class removeSelector: #helpSpec]. |