use same help dict if started from the gui painter rel3_4_3_1
authortz
Fri, 06 Mar 1998 16:45:37 +0100
changeset 7108c968790c885
parent 709 b81a8a284267
child 711 e88e6d2e2809
use same help dict if started from the gui painter
MenuEditor.st
UIHelpTool.st
     1.1 --- a/MenuEditor.st	Fri Mar 06 15:35:09 1998 +0100
     1.2 +++ b/MenuEditor.st	Fri Mar 06 16:45:37 1998 +0100
     1.3 @@ -240,7 +240,6 @@
     1.4  'Selector returning an image.'
     1.5  
     1.6  )
     1.7 -
     1.8  ! !
     1.9  
    1.10  !MenuEditor class methodsFor:'interface specs'!
    1.11 @@ -264,11 +263,11 @@
    1.12            #window: 
    1.13             #(#WindowSpec
    1.14                #name: 'unnamed canvas'
    1.15 -              #layout: #(#LayoutFrame 429 0 338 0 695 0 656 0)
    1.16 +              #layout: #(#LayoutFrame 302 0 220 0 568 0 538 0)
    1.17                #label: 'unnamed canvas'
    1.18                #min: #(#Point 10 10)
    1.19                #max: #(#Point 1160 870)
    1.20 -              #bounds: #(#Rectangle 429 338 696 657)
    1.21 +              #bounds: #(#Rectangle 302 220 569 539)
    1.22                #usePreferredExtent: false
    1.23            )
    1.24            #component: 
    1.25 @@ -1515,10 +1514,11 @@
    1.26      ^menu
    1.27  !
    1.28  
    1.29 -useHelpDictionary:aDictionary
    1.30 +useHelpDictionary:dictionaries
    1.31  
    1.32      self noteBookView.
    1.33 -    self helpTool helpSpecFrom: specClass
    1.34 +    self helpTool helpSpecFrom: specClass.
    1.35 +    self helpTool dictionaries: dictionaries
    1.36  ! !
    1.37  
    1.38  !MenuEditor methodsFor:'aspects'!
    1.39 @@ -1861,7 +1861,7 @@
    1.40      self askForModification
    1.41      ifTrue: 
    1.42      [
    1.43 -        specClass := specSelector := nil.
    1.44 +        self isStandAlone ifTrue: [specClass := specSelector := nil].
    1.45          self buildFromClass: nil andSelector: #menu
    1.46      ]
    1.47  !
     2.1 --- a/UIHelpTool.st	Fri Mar 06 15:35:09 1998 +0100
     2.2 +++ b/UIHelpTool.st	Fri Mar 06 16:45:37 1998 +0100
     2.3 @@ -321,13 +321,29 @@
     2.4  
     2.5  !UIHelpTool methodsFor:'accessing'!
     2.6  
     2.7 +dictionaries
     2.8 +    "return dictionaries"
     2.9 +
    2.10 +    ^dictionaries
    2.11 +!
    2.12 +
    2.13 +dictionaries:aDictionaryOfDictionaries
    2.14 +    "set dictionaries"
    2.15 +
    2.16 +    (dictionaries := aDictionaryOfDictionaries) isNil ifTrue:[
    2.17 +        dictionaries := Dictionary new.
    2.18 +    ].
    2.19 +    self updateList
    2.20 +!
    2.21 +
    2.22  dictionary
    2.23 -    "return the value of the instance variable 'dictionary' (automatically generated)"
    2.24 +    "return dictionary"
    2.25  
    2.26 -    ^ dictionary!
    2.27 +    ^ dictionary
    2.28 +!
    2.29  
    2.30  dictionary:aDictionary
    2.31 -    "set the value of the instance variable 'dictionary' (automatically generated)"
    2.32 +    "set dictionary"
    2.33  
    2.34      (dictionary := aDictionary) isNil ifTrue:[
    2.35          dictionary := Dictionary new.
    2.36 @@ -530,7 +546,8 @@
    2.37          [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 ']])
    2.38          ifTrue:
    2.39          [
    2.40 -             implementedHelpSpec associationsDo: [:h| helpSpec at: h key put: h value].
    2.41 +             implementedHelpSpec associationsDo: [:h| (helpSpec includesKey: h key) 
    2.42 +                ifFalse: [helpSpec at: h key put: h value]].
    2.43          ]
    2.44      ].
    2.45