equal
deleted
inserted
replaced
331 "set dictionaries" |
331 "set dictionaries" |
332 |
332 |
333 (dictionaries := aDictionaryOfDictionaries) isNil ifTrue:[ |
333 (dictionaries := aDictionaryOfDictionaries) isNil ifTrue:[ |
334 dictionaries := Dictionary new. |
334 dictionaries := Dictionary new. |
335 ]. |
335 ]. |
336 self updateList |
336 self updateList. |
337 ! |
337 ! |
338 |
338 |
339 dictionary |
339 dictionary |
340 "return dictionary" |
340 "return dictionary" |
341 |
341 |
427 ] |
427 ] |
428 ] |
428 ] |
429 ] |
429 ] |
430 |
430 |
431 |
431 |
|
432 ! |
|
433 |
|
434 specClass |
|
435 |
|
436 ^specClass |
432 ! ! |
437 ! ! |
433 |
438 |
434 !UIHelpTool methodsFor:'actions'! |
439 !UIHelpTool methodsFor:'actions'! |
435 |
440 |
436 accept |
441 accept |
515 cls isNil ifTrue:[ |
520 cls isNil ifTrue:[ |
516 ^ self information:'No application class defined!!'. |
521 ^ self information:'No application class defined!!'. |
517 ]. |
522 ]. |
518 |
523 |
519 aClass = cls name asString |
524 aClass = cls name asString |
520 ifTrue: [self listOfHelpSpecClasses value do: [:c| c ~~ cls name ifTrue: [self installHelpSpecInto: (Smalltalk at: c)]. isModified := true]]. |
525 ifTrue: [self listOfHelpSpecClasses value do: [:c| c ~~ cls name ifTrue: [self installHelpSpecInto: (Smalltalk at: c). isModified := true]]]. |
521 |
526 |
522 isModified not ifTrue:[ |
527 isModified not ifTrue:[ |
523 ^nil |
528 ^nil |
524 ]. |
529 ]. |
525 |
530 |
541 hasChanged := false. |
546 hasChanged := false. |
542 implementedHelpSpec associationsDo: [:h| (helpSpec includesAssociation: h) ifFalse: [hasChanged := true]]. |
547 implementedHelpSpec associationsDo: [:h| (helpSpec includesAssociation: h) ifFalse: [hasChanged := true]]. |
543 helpSpec associationsDo: [:h| (implementedHelpSpec includesAssociation: h) ifFalse: [hasChanged := true]]. |
548 helpSpec associationsDo: [:h| (implementedHelpSpec includesAssociation: h) ifFalse: [hasChanged := true]]. |
544 |
549 |
545 (implementedHelpSpec notEmpty and: [hasChanged and: |
550 (implementedHelpSpec notEmpty and: [hasChanged and: |
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 ']]) |
551 [DialogBox confirm: 'Class ', cls name asBoldText, ' already implements\a help spec!!\\Do only replace, if you have removed\help keys in an existing help spec.\' withCRs yesLabel: ' Merge ' noLabel: ' Replace ']]) |
547 ifTrue: |
552 ifTrue: |
548 [ |
553 [ |
549 implementedHelpSpec associationsDo: [:h| (helpSpec includesKey: h key) |
554 implementedHelpSpec associationsDo: [:h| (helpSpec includesKey: h key) |
550 ifFalse: [helpSpec at: h key put: h value]]. |
555 ifFalse: [helpSpec at: h key put: h value]]. |
551 ] |
556 ] |