VersionDiffBrowser.st
changeset 17397 f27bb9b31f71
parent 17353 ce7d16ee2886
child 17414 809f41b5b48c
equal deleted inserted replaced
17396:cdea4100c71b 17397:f27bb9b31f71
    98      VersionDiffBrowser open
    98      VersionDiffBrowser open
    99     "
    99     "
   100 
   100 
   101     <resource: #canvas>
   101     <resource: #canvas>
   102 
   102 
   103     ^
   103     ^ 
   104      #(FullSpec
   104     #(FullSpec
   105         name: windowSpec
   105        name: windowSpec
   106         window:
   106        window: 
   107        (WindowSpec
   107       (WindowSpec
   108           label: 'Version DiffBrowser'
   108          label: 'Version DiffBrowser'
   109           name: 'Version DiffBrowser'
   109          name: 'Version DiffBrowser'
   110           min: (Point 10 10)
   110          min: (Point 10 10)
   111           bounds: (Rectangle 0 0 865 504)
   111          bounds: (Rectangle 0 0 865 504)
   112           menu: mainMenu
   112          menu: mainMenu
   113         )
   113        )
   114         component:
   114        component: 
   115        (SpecCollection
   115       (SpecCollection
   116           collection: (
   116          collection: (
   117            (VariableVerticalPanelSpec
   117           (VariableVerticalPanelSpec
   118               name: 'VariableVerticalPanel1'
   118              name: 'VariableVerticalPanel1'
   119               layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
   119              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
   120               component:
   120              component: 
   121              (SpecCollection
   121             (SpecCollection
   122                 collection: (
   122                collection: (
   123                  (HorizontalPanelViewSpec
   123                 (HorizontalPanelViewSpec
   124                     name: 'TopHorizontalPanel'
   124                    name: 'TopHorizontalPanel'
   125                     horizontalLayout: fit
   125                    horizontalLayout: fit
   126                     verticalLayout: fit
   126                    verticalLayout: fit
   127                     horizontalSpace: 3
   127                    horizontalSpace: 3
   128                     verticalSpace: 3
   128                    verticalSpace: 3
   129                     component:
   129                    component: 
   130                    (SpecCollection
   130                   (SpecCollection
   131                       collection: (
   131                      collection: (
   132                        (ViewSpec
   132                       (ViewSpec
   133                           name: 'BoxA'
   133                          name: 'BoxA'
   134                           level: 0
   134                          level: 0
   135                           visibilityChannel: boxAVisible
   135                          visibilityChannel: boxAVisible
   136                           component:
   136                          component: 
   137                          (SpecCollection
   137                         (SpecCollection
   138                             collection: (
   138                            collection: (
   139                              (LabelSpec
   139                             (LabelSpec
   140                                 label: 'Only in A'
   140                                label: 'Only in A'
   141                                 name: 'OnlyInALabel'
   141                                name: 'OnlyInALabel'
   142                                 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
   142                                layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
   143                                 translateLabel: true
   143                                translateLabel: true
   144                                 labelChannel: onlyInALabelHolder
   144                                labelChannel: onlyInALabelHolder
   145                               )
       
   146                              (SequenceViewSpec
       
   147                                 name: 'ListA'
       
   148                                 layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 -3 1.0)
       
   149                                 model: methodsOnlyInASelection
       
   150                                 menu: menuAHolder
       
   151                                 hasHorizontalScrollBar: true
       
   152                                 hasVerticalScrollBar: true
       
   153                                 miniScrollerHorizontal: true
       
   154                                 doubleClickSelector: methodInADoubleClicked:
       
   155                                 valueChangeSelector: methodsOnlyInASelectionChanged
       
   156                                 useIndex: true
       
   157                                 sequenceList: methodsOnlyInA
       
   158                               )
       
   159                              )
   145                              )
   160 
   146                             (SequenceViewSpec
   161                           )
   147                                name: 'ListA'
   162                           extent: (Point 286 199)
   148                                layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 -3 1.0)
   163                         )
   149                                model: methodsOnlyInASelection
   164                        (ViewSpec
   150                                menu: menuAHolder
   165                           name: 'BoxM'
   151                                hasHorizontalScrollBar: true
   166                           visibilityChannel: boxMVisible
   152                                hasVerticalScrollBar: true
   167                           component:
   153                                miniScrollerHorizontal: true
   168                          (SpecCollection
   154                                doubleClickSelector: methodInADoubleClicked:
   169                             collection: (
   155                                valueChangeSelector: methodsOnlyInASelectionChanged
   170                              (LabelSpec
   156                                useIndex: true
   171                                 label: 'Changed'
   157                                sequenceList: methodsOnlyInA
   172                                 name: 'ChangedLabel'
       
   173                                 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
       
   174                                 translateLabel: true
       
   175                                 labelChannel: changedLabelHolder
       
   176                               )
       
   177                              (SequenceViewSpec
       
   178                                 name: 'ListM'
       
   179                                 layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 -3 1.0)
       
   180                                 model: methodsChangedSelection
       
   181                                 menu: menuMHolder
       
   182                                 hasHorizontalScrollBar: true
       
   183                                 hasVerticalScrollBar: true
       
   184                                 miniScrollerHorizontal: true
       
   185                                 doubleClickSelector: methodInChangedDoubleClicked:
       
   186                                 valueChangeSelector: methodsChangedSelectionChanged
       
   187                                 useIndex: true
       
   188                                 sequenceList: methodsChanged
       
   189                               )
       
   190                              )
   158                              )
   191 
   159                             )
   192                           )
   160                           
   193                           extent: (Point 286 199)
   161                          )
   194                         )
   162                          extent: (Point 286 199)
   195                        (ViewSpec
   163                        )
   196                           name: 'BoxB'
   164                       (ViewSpec
   197                           visibilityChannel: boxBVisible
   165                          name: 'BoxM'
   198                           component:
   166                          visibilityChannel: boxMVisible
   199                          (SpecCollection
   167                          component: 
   200                             collection: (
   168                         (SpecCollection
   201                              (LabelSpec
   169                            collection: (
   202                                 label: 'Only in B'
   170                             (LabelSpec
   203                                 name: 'OnlyInBLabel'
   171                                label: 'Changed'
   204                                 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
   172                                name: 'ChangedLabel'
   205                                 translateLabel: true
   173                                layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
   206                                 labelChannel: onlyInBLabelHolder
   174                                translateLabel: true
   207                               )
   175                                labelChannel: changedLabelHolder
   208                              (SequenceViewSpec
       
   209                                 name: 'ListB'
       
   210                                 layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 -3 1.0)
       
   211                                 model: methodsOnlyInBSelection
       
   212                                 menu: menuBHolder
       
   213                                 hasHorizontalScrollBar: true
       
   214                                 hasVerticalScrollBar: true
       
   215                                 miniScrollerHorizontal: true
       
   216                                 doubleClickSelector: methodInBDoubleClicked:
       
   217                                 valueChangeSelector: methodsOnlyInBSelectionChanged
       
   218                                 useIndex: true
       
   219                                 sequenceList: methodsOnlyInB
       
   220                               )
       
   221                              )
   176                              )
   222 
   177                             (SequenceViewSpec
   223                           )
   178                                name: 'ListM'
   224                           extent: (Point 287 199)
   179                                layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 -3 1.0)
   225                         )
   180                                model: methodsChangedSelection
       
   181                                menu: menuMHolder
       
   182                                hasHorizontalScrollBar: true
       
   183                                hasVerticalScrollBar: true
       
   184                                miniScrollerHorizontal: true
       
   185                                doubleClickSelector: methodInChangedDoubleClicked:
       
   186                                valueChangeSelector: methodsChangedSelectionChanged
       
   187                                useIndex: true
       
   188                                sequenceList: methodsChanged
       
   189                              )
       
   190                             )
       
   191                           
       
   192                          )
       
   193                          extent: (Point 286 199)
   226                        )
   194                        )
   227 
   195                       (ViewSpec
   228                     )
   196                          name: 'BoxB'
   229                   )
   197                          visibilityChannel: boxBVisible
   230                  (ViewSpec
   198                          component: 
   231                     name: 'Box4'
   199                         (SpecCollection
   232                     component:
   200                            collection: (
   233                    (SpecCollection
   201                             (LabelSpec
   234                       collection: (
   202                                label: 'Only in B'
   235                        (ViewSpec
   203                                name: 'OnlyInBLabel'
   236                           name: 'diffTextViewBox'
   204                                layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
   237                           layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
   205                                translateLabel: true
   238                           initiallyInvisible: true
   206                                labelChannel: onlyInBLabelHolder
   239                           component:
       
   240                          (SpecCollection
       
   241                             collection: (
       
   242                              (LabelSpec
       
   243                                 label: 'A'
       
   244                                 name: 'DiffTextLabelA'
       
   245                                 layout: (LayoutFrame 0 0 0 0 0 0.5 20 0)
       
   246                                 translateLabel: true
       
   247                                 labelChannel: diffTextLabelA
       
   248                               )
       
   249                              (LabelSpec
       
   250                                 label: 'B'
       
   251                                 name: 'DiffTextLabelB'
       
   252                                 layout: (LayoutFrame 0 0.5 0 0 0 1 20 0)
       
   253                                 translateLabel: true
       
   254                                 labelChannel: diffTextLabelB
       
   255                               )
       
   256                              (ArbitraryComponentSpec
       
   257                                 name: 'diffTextView'
       
   258                                 layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 0 1.0)
       
   259                                 hasBorder: false
       
   260                                 component: diffTextView
       
   261                               )
       
   262                              )
   207                              )
   263 
   208                             (SequenceViewSpec
   264                           )
   209                                name: 'ListB'
   265                         )
   210                                layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 -3 1.0)
   266                        (CodeViewSpec
   211                                model: methodsOnlyInBSelection
   267                           name: 'singleTextView'
   212                                menu: menuBHolder
   268                           layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
   213                                hasHorizontalScrollBar: true
   269                           model: methodText
   214                                hasVerticalScrollBar: true
   270                           hasHorizontalScrollBar: true
   215                                miniScrollerHorizontal: true
   271                           hasVerticalScrollBar: true
   216                                doubleClickSelector: methodInBDoubleClicked:
   272                           miniScrollerHorizontal: true
   217                                valueChangeSelector: methodsOnlyInBSelectionChanged
   273                           isReadOnly: true
   218                                useIndex: true
   274                           hasKeyboardFocusInitially: false
   219                                sequenceList: methodsOnlyInB
   275                         )
   220                              )
       
   221                             )
       
   222                           
       
   223                          )
       
   224                          extent: (Point 287 199)
   276                        )
   225                        )
   277 
   226                       )
   278                     )
   227                     
   279                   )
   228                    )
   280                  )
   229                  )
   281 
   230                 (ViewSpec
   282               )
   231                    name: 'DiffOrSingleMethodCodeBox'
   283               handles: (Any 0.42379958246347 1.0)
   232                    component: 
   284             )
   233                   (SpecCollection
   285            (LabelSpec
   234                      collection: (
   286               name: 'InfoLabel'
   235                       (ViewSpec
   287               layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
   236                          name: 'diffTextViewBox'
   288               level: -1
   237                          layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
   289               translateLabel: true
   238                          initiallyInvisible: true
   290               labelChannel: infoHolder
   239                          component: 
   291               adjust: left
   240                         (SpecCollection
   292             )
   241                            collection: (
       
   242                             (LabelSpec
       
   243                                label: 'A'
       
   244                                name: 'DiffTextLabelA'
       
   245                                layout: (LayoutFrame 0 0 0 0 0 0.5 20 0)
       
   246                                translateLabel: true
       
   247                                labelChannel: diffTextLabelA
       
   248                              )
       
   249                             (LabelSpec
       
   250                                label: 'B'
       
   251                                name: 'DiffTextLabelB'
       
   252                                layout: (LayoutFrame 0 0.5 0 0 0 1 20 0)
       
   253                                translateLabel: true
       
   254                                labelChannel: diffTextLabelB
       
   255                              )
       
   256                             (ArbitraryComponentSpec
       
   257                                name: 'diffTextView'
       
   258                                layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 0 1.0)
       
   259                                hasBorder: false
       
   260                                component: diffTextView
       
   261                              )
       
   262                             )
       
   263                           
       
   264                          )
       
   265                        )
       
   266                       (CodeViewSpec
       
   267                          name: 'singleTextView'
       
   268                          layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
       
   269                          model: methodText
       
   270                          hasHorizontalScrollBar: true
       
   271                          hasVerticalScrollBar: true
       
   272                          miniScrollerHorizontal: true
       
   273                          isReadOnly: true
       
   274                          hasKeyboardFocusInitially: false
       
   275                        )
       
   276                       )
       
   277                     
       
   278                    )
       
   279                  )
       
   280                 )
       
   281               
       
   282              )
       
   283              handles: (Any 0.41999999999999998 1.0)
   293            )
   284            )
   294 
   285           (LabelSpec
   295         )
   286              name: 'InfoLabel'
   296       )
   287              layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
   297 
   288              level: -1
   298     "Modified: / 05-02-2017 / 10:08:34 / cg"
   289              translateLabel: true
       
   290              labelChannel: infoHolder
       
   291              adjust: left
       
   292            )
       
   293           )
       
   294         
       
   295        )
       
   296      )
   299 !
   297 !
   300 
   298 
   301 windowSpecForMultipleVersions
   299 windowSpecForMultipleVersions
   302     "This resource specification was automatically generated
   300     "This resource specification was automatically generated
   303      by the UIPainter of ST/X."
   301      by the UIPainter of ST/X."