FileVersionDiffBrowser.st
author Claus Gittinger <cg@exept.de>
Fri, 30 Aug 2019 10:47:21 +0200
changeset 3754 0ec001ff25a7
parent 3743 dd619d41915a
child 3807 8f68f4fb0756
permissions -rw-r--r--
#OTHER by exept use allRed and allGray
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3676
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
 COPYRIGHT (c) 2019 by eXept Software AG
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
              All Rights Reserved
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
 This software is furnished under a license and may be used
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
 hereby transferred.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libtool2' }"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
"{ NameSpace: Smalltalk }"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
ApplicationModel subclass:#FileVersionDiffBrowser
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	instanceVariableNames:'diffTextView diffTextLabelA diffTextLabelB versionAHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
		versionBHolder infoHolder isMultipleVersionBrowser
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
		versionInfoList versionList versionEntriesList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
		selectedVersionHolder symbolicVersionList symbolicVersionNameList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
		selectedSymbolicVersionHolder selectedSymbolicVersionIndexHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
		symbolicToVersionMapping selectedVersionIndexHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
		isMultipleFilesVersionBrowser fileListHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
		selectedFileIndexHolder fileHolder diffTextHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
		versionAIfSingleFileDiff versionBIfSingleFileDiff
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
		fileIfSingleFileDiff'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
	classVariableNames:''
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
	poolDictionaries:''
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
	category:'Interface-Tools-File'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
!FileVersionDiffBrowser class methodsFor:'documentation'!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
copyright
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
 COPYRIGHT (c) 2019 by eXept Software AG
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
              All Rights Reserved
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
 This software is furnished under a license and may be used
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
 only in accordance with the terms of that license and with the
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
 inclusion of the above copyright notice.   This software may not
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
 be provided or otherwise made available to, or used by, any
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
 other person.  No title to or ownership of the software is
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
 hereby transferred.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
documentation
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
    A quickly hacked up browser to show differences between file versions,
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
    allowing easy comparison; will also eventually add capabilities
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
    to checkIn / load files into / from the repository.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
    [usages:]
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
        FileVersionDiffBrowser openOnAllVersionsOfFile:'Make.proto'.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
        FileVersionDiffBrowser openOnAllFilesChangedSince:(Date today - 7 days) in:('../../libbasic' asFilename).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
        
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
    [see also:]
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
    [instance variables:]
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
    [class variables:]
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
! !
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
!FileVersionDiffBrowser class methodsFor:'interface specs'!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
windowSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
    "This resource specification was automatically generated
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
     by the UIPainter of ST/X."
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
    "Do not manually edit this!! If it is corrupted,
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
     the UIPainter may not be able to read the specification."
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
     UIPainter new openOnClass:FileVersionDiffBrowser andSelector:#windowSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
     FileVersionDiffBrowser new openInterface:#windowSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
     FileVersionDiffBrowser open
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
    <resource: #canvas>
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
    ^ 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
    #(FullSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
       name: windowSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
       uuid: '34d3baee-a108-11e9-a652-b8f6b1108e05'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
       window: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
      (WindowSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
         label: 'Version DiffBrowser'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
         name: 'Version DiffBrowser'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
         uuid: '90e45e00-7175-11e9-a23a-b8f6b1108e05'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
         min: (Point 10 10)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
         bounds: (Rectangle 0 0 865 504)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
         menu: mainMenu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
       )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
       component: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
      (SpecCollection
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
         collection: (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
          (VariableVerticalPanelSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
             name: 'VariableVerticalPanel1'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
             uuid: '90e460c6-7175-11e9-a23a-b8f6b1108e05'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
             component: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
            (SpecCollection
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
               collection: (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
                (ViewSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
                   name: 'DiffOrSingleMethodCodeBox'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
                   uuid: '90e471a6-7175-11e9-a23a-b8f6b1108e05'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
                   component: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
                  (SpecCollection
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
                     collection: (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
                      (ViewSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   113
                         name: 'diffTextViewBox'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
                         layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   115
                         uuid: '90e47264-7175-11e9-a23a-b8f6b1108e05'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
                         component: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
                        (SpecCollection
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   118
                           collection: (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   119
                            (LabelSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
                               label: 'A'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
                               name: 'DiffTextLabelA'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
                               layout: (LayoutFrame 0 0 0 0 0 0.5 20 0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
                               uuid: '90e47318-7175-11e9-a23a-b8f6b1108e05'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
                               translateLabel: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   125
                               labelChannel: diffTextLabelA
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
                             )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   127
                            (LabelSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
                               label: 'B'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
                               name: 'DiffTextLabelB'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
                               layout: (LayoutFrame 0 0.5 0 0 0 1 20 0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
                               uuid: '90e47412-7175-11e9-a23a-b8f6b1108e05'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
                               translateLabel: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   133
                               labelChannel: diffTextLabelB
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   134
                             )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
                            (ArbitraryComponentSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   136
                               name: 'diffTextView'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   137
                               layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 0 1.0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
                               uuid: '90e47502-7175-11e9-a23a-b8f6b1108e05'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
                               hasBorder: false
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   140
                               component: diffTextView
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   141
                             )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
                            )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
                          
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   144
                         )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
                       )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   146
                      )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   147
                    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   148
                   )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   149
                 )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   150
                )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   151
              
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   152
             )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   153
             handles: (Any 1.0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   154
           )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   155
          (LabelSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   156
             name: 'InfoLabel'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   157
             layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   158
             uuid: '90e47868-7175-11e9-a23a-b8f6b1108e05'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   159
             level: -1
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   160
             translateLabel: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   161
             labelChannel: infoHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
             adjust: left
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
           )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   164
          )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   165
        
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   166
       )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   167
     )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   168
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   169
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   170
windowSpecForMultipleFiles
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   171
    "This resource specification was automatically generated
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   172
     by the UIPainter of ST/X."
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   173
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   174
    "Do not manually edit this!! If it is corrupted,
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   175
     the UIPainter may not be able to read the specification."
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   176
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   177
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   178
     UIPainter new openOnClass:FileVersionDiffBrowser andSelector:#windowSpecForMultipleFiles
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   179
     FileVersionDiffBrowser new openInterface:#windowSpecForMultipleFiles
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   180
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   181
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   182
    <resource: #canvas>
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   183
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   184
    ^ 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   185
    #(FullSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   186
       name: windowSpecForMultipleFiles
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   187
       uuid: '3c5c60f4-a108-11e9-a652-b8f6b1108e05'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   188
       window: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   189
      (WindowSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   190
         label: 'Version DiffBrowser'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   191
         name: 'Version DiffBrowser'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   192
         uuid: '2b3f2546-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   193
         min: (Point 10 10)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   194
         bounds: (Rectangle 0 0 865 504)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   195
         menu: mainMenu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   196
       )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   197
       component: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   198
      (SpecCollection
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   199
         collection: (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   200
          (VariableVerticalPanelSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   201
             name: 'VariableVerticalPanel1'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   202
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   203
             uuid: '2b3f297e-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   204
             component: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   205
            (SpecCollection
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   206
               collection: (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   207
                (VariableHorizontalPanelSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   208
                   name: 'FileAndVersionAndTagPanel'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   209
                   uuid: '17c6805c-7184-11e9-a23a-b8f6b1108e05'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   210
                   component: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   211
                  (SpecCollection
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   212
                     collection: (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   213
                      (SequenceViewSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   214
                         name: 'List2'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   215
                         uuid: '2b3f2d20-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   216
                         model: selectedFileIndexHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   217
                         menu: fileListMenu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   218
                         hasHorizontalScrollBar: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   219
                         hasVerticalScrollBar: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   220
                         useIndex: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   221
                         sequenceList: fileNameListHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   222
                       )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   223
                      (VariableHorizontalPanelSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   224
                         name: 'VersionAndTagPanel'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   225
                         uuid: '2b3f2c08-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   226
                         component: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   227
                        (SpecCollection
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   228
                           collection: (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   229
                            (SequenceViewSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   230
                               name: 'VersionList'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   231
                               uuid: '2b3f2d20-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   232
                               model: selectedVersionIndexHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   233
                               menu: versionsMenu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   234
                               hasHorizontalScrollBar: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   235
                               hasVerticalScrollBar: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   236
                               useIndex: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   237
                               sequenceList: versionEntriesList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   238
                             )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   239
                            (SequenceViewSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   240
                               name: 'List1'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   241
                               uuid: '2b3f3086-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   242
                               model: selectedSymbolicVersionIndexHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   243
                               menu: symbolicVersionsMenu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   244
                               hasHorizontalScrollBar: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   245
                               hasVerticalScrollBar: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   246
                               useIndex: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   247
                               sequenceList: symbolicVersionNameList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   248
                             )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   249
                            )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   250
                          
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   251
                         )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   252
                         handles: (Any 0.5 1.0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   253
                       )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   254
                      )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   255
                    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   256
                   )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   257
                   handles: (Any 0.5 1.0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   258
                 )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   259
                (ViewSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   260
                   name: 'DiffBox'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   261
                   uuid: '2b3f408a-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   262
                   component: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   263
                  (SpecCollection
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   264
                     collection: (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   265
                      (ViewSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
                         name: 'diffTextViewBox'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   267
                         layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   268
                         uuid: '2b3f415c-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   269
                         component: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   270
                        (SpecCollection
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   271
                           collection: (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   272
                            (LabelSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   273
                               label: 'A'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   274
                               name: 'DiffTextLabelA'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   275
                               layout: (LayoutFrame 0 0 0 0 0 0.5 20 0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   276
                               uuid: '2b3f426a-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   277
                               translateLabel: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   278
                               labelChannel: diffTextLabelA
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   279
                             )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   280
                            (LabelSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   281
                               label: 'B'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   282
                               name: 'DiffTextLabelB'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   283
                               layout: (LayoutFrame 0 0.5 0 0 0 1 20 0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   284
                               uuid: '2b3f43d2-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   285
                               translateLabel: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   286
                               labelChannel: diffTextLabelB
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   287
                             )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   288
                            (ArbitraryComponentSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   289
                               name: 'diffTextView'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   290
                               layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 0 1.0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   291
                               uuid: '2b3f4508-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   292
                               hasBorder: false
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   293
                               component: diffTextView
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   294
                             )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   295
                            )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   296
                          
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   297
                         )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   298
                       )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   299
                      )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   300
                    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   301
                   )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   302
                 )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   303
                )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   304
              
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   305
             )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   306
             handles: (Any 0.5 1.0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   307
           )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   308
          (LabelSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   309
             name: 'InfoLabel'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   310
             layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   311
             uuid: '2b3f4a44-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   312
             level: -1
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   313
             translateLabel: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   314
             labelChannel: infoHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   315
             adjust: left
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   316
           )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   317
          )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   318
        
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   319
       )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   320
     )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   321
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   322
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   323
windowSpecForMultipleVersions
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   324
    "This resource specification was automatically generated
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   325
     by the UIPainter of ST/X."
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   326
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   327
    "Do not manually edit this!! If it is corrupted,
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   328
     the UIPainter may not be able to read the specification."
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   329
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   330
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   331
     UIPainter new openOnClass:FileVersionDiffBrowser andSelector:#windowSpecForMultipleVersions
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   332
     FileVersionDiffBrowser new openInterface:#windowSpecForMultipleVersions
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   333
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   334
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   335
    <resource: #canvas>
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   336
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   337
    ^ 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   338
    #(FullSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   339
       name: windowSpecForMultipleVersions
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   340
       uuid: '441c0448-a108-11e9-a652-b8f6b1108e05'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   341
       window: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   342
      (WindowSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   343
         label: 'Version DiffBrowser'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   344
         name: 'Version DiffBrowser'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   345
         uuid: '2b3f2546-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   346
         min: (Point 10 10)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   347
         bounds: (Rectangle 0 0 865 504)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   348
         menu: mainMenu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   349
       )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   350
       component: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   351
      (SpecCollection
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   352
         collection: (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   353
          (VariableVerticalPanelSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   354
             name: 'VariableVerticalPanel1'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   355
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   356
             uuid: '2b3f297e-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   357
             component: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   358
            (SpecCollection
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   359
               collection: (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   360
                (VariableHorizontalPanelSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   361
                   name: 'VersionAndTagBox'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   362
                   uuid: '2b3f2c08-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   363
                   component: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   364
                  (SpecCollection
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   365
                     collection: (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   366
                      (SequenceViewSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   367
                         name: 'VersionList'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   368
                         uuid: '2b3f2d20-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   369
                         model: selectedVersionIndexHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   370
                         menu: versionsMenu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   371
                         hasHorizontalScrollBar: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   372
                         hasVerticalScrollBar: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   373
                         useIndex: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   374
                         sequenceList: versionEntriesList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   375
                       )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   376
                      (SequenceViewSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   377
                         name: 'List1'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   378
                         uuid: '2b3f3086-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   379
                         model: selectedSymbolicVersionIndexHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   380
                         menu: symbolicVersionsMenu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   381
                         hasHorizontalScrollBar: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   382
                         hasVerticalScrollBar: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   383
                         useIndex: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   384
                         sequenceList: symbolicVersionNameList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   385
                       )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   386
                      )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   387
                    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   388
                   )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   389
                   handles: (Any 0.5 1.0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   390
                 )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   391
                (ViewSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   392
                   name: 'DiffBox'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   393
                   uuid: '2b3f408a-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   394
                   component: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   395
                  (SpecCollection
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   396
                     collection: (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   397
                      (ViewSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   398
                         name: 'diffTextViewBox'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   399
                         layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   400
                         uuid: '2b3f415c-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   401
                         component: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   402
                        (SpecCollection
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   403
                           collection: (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   404
                            (LabelSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   405
                               label: 'A'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   406
                               name: 'DiffTextLabelA'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   407
                               layout: (LayoutFrame 0 0 0 0 0 0.5 20 0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   408
                               uuid: '2b3f426a-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   409
                               translateLabel: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   410
                               labelChannel: diffTextLabelA
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   411
                             )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   412
                            (LabelSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   413
                               label: 'B'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   414
                               name: 'DiffTextLabelB'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   415
                               layout: (LayoutFrame 0 0.5 0 0 0 1 20 0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   416
                               uuid: '2b3f43d2-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   417
                               translateLabel: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   418
                               labelChannel: diffTextLabelB
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   419
                             )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   420
                            (ArbitraryComponentSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   421
                               name: 'diffTextView'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   422
                               layout: (LayoutFrame 0 0.0 20 0.0 0 1.0 0 1.0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   423
                               uuid: '2b3f4508-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   424
                               hasBorder: false
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   425
                               component: diffTextView
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   426
                             )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   427
                            )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   428
                          
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   429
                         )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   430
                       )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   431
                      )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   432
                    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   433
                   )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   434
                 )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   435
                )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   436
              
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   437
             )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   438
             handles: (Any 0.5 1.0)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   439
           )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   440
          (LabelSpec
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   441
             name: 'InfoLabel'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   442
             layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   443
             uuid: '2b3f4a44-d4fd-11e7-af82-c42c033b4871'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   444
             level: -1
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   445
             translateLabel: true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   446
             labelChannel: infoHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   447
             adjust: left
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   448
           )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   449
          )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   450
        
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   451
       )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   452
     )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   453
! !
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   454
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   455
!FileVersionDiffBrowser class methodsFor:'menu specs'!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   456
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   457
mainMenu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   458
    "This resource specification was automatically generated
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   459
     by the MenuEditor of ST/X."
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   460
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   461
    "Do not manually edit this!! If it is corrupted,
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   462
     the MenuEditor may not be able to read the specification."
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   463
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   464
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   465
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   466
     MenuEditor new openOnClass:FileVersionDiffBrowser andSelector:#mainMenu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   467
     (Menu new fromLiteralArrayEncoding:(FileVersionDiffBrowser mainMenu)) startUp
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   468
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   469
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   470
    <resource: #menu>
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   471
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   472
    ^ 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   473
     #(Menu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   474
        (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   475
         (MenuItem
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   476
            label: 'File'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   477
            submenu: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   478
           (Menu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   479
              (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   480
               (MenuItem
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   481
                  label: 'Create PatchFile...'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   482
                  itemValue: createPatchFile
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   483
                )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   484
               (MenuItem
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   485
                  label: '-'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   486
                )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   487
               (MenuItem
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   488
                  label: 'Exit'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   489
                  itemValue: closeRequest
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   490
                )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   491
               )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   492
              nil
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   493
              nil
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   494
            )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   495
          )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   496
         (MenuItem
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   497
            label: 'View'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   498
            submenuChannel: viewMenu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   499
          )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   500
         (MenuItem
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   501
            label: 'MENU_Help'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   502
            startGroup: conditionalRight
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   503
            submenu: 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   504
           (Menu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   505
              (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   506
               (MenuItem
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   507
                  label: 'Documentation'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   508
                  itemValue: openDocumentation
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   509
                )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   510
               (MenuItem
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   511
                  label: '-'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   512
                )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   513
               (MenuItem
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   514
                  label: 'About this Application...'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   515
                  itemValue: openAboutThisApplication
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   516
                )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   517
               )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   518
              nil
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   519
              nil
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   520
            )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   521
          )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   522
         )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   523
        nil
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   524
        nil
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   525
      )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   526
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   527
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   528
versionsMenu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   529
    "This resource specification was automatically generated
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   530
     by the MenuEditor of ST/X."
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   531
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   532
    "Do not manually edit this!! If it is corrupted,
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   533
     the MenuEditor may not be able to read the specification."
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   534
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   535
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   536
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   537
     MenuEditor new openOnClass:VersionDiffBrowser andSelector:#mainMenu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   538
     (Menu new fromLiteralArrayEncoding:(VersionDiffBrowser mainMenu)) startUp
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   539
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   540
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   541
    <resource: #menu>
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   542
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   543
    ^ 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   544
     #(Menu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   545
              (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   546
               (MenuItem
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   547
                  label: 'Compare against Previous (Older) Version'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   548
                  nameKey: CompareAgainstPreviousVersion
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   549
                  itemValue: versionMenuCompareAgainstPreviousVersion
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   550
                  enabled: hasPreviousVersionInVersionList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   551
                )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   552
               (MenuItem
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   553
                  label: 'Compare against Next (Younger) Version'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   554
                  nameKey: CompareAgainstNextVersion
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   555
                  itemValue: versionMenuCompareAgainstNextVersion
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   556
                  enabled: hasNextVersionInVersionList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   557
                )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   558
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   559
               )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   560
              nil
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   561
              nil
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   562
            )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   563
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   564
    "Created: / 05-02-2017 / 11:11:30 / cg"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   565
    "Modified: / 06-02-2017 / 09:27:22 / cg"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   566
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   567
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   568
viewMenu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   569
    "This resource specification was automatically generated
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   570
     by the MenuEditor of ST/X."
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   571
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   572
    "Do not manually edit this!! If it is corrupted,
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   573
     the MenuEditor may not be able to read the specification."
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   574
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   575
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   576
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   577
     MenuEditor new openOnClass:FileVersionDiffBrowser andSelector:#viewMenu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   578
     (Menu new fromLiteralArrayEncoding:(FileVersionDiffBrowser viewMenu)) startUp
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   579
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   580
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   581
    <resource: #menu>
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   582
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   583
    ^ 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   584
     #(Menu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   585
        (
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   586
         (MenuItem
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   587
            label: 'Show Log Messages'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   588
            itemValue: showLogMessages
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   589
          )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   590
         )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   591
        nil
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   592
        nil
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   593
      )
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   594
! !
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   595
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   596
!FileVersionDiffBrowser class methodsFor:'startup'!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   597
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   598
openOnAllFilesChangedSince:aDateOrTimestamp in:aSetOfFilesOrADirectoryFilename
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   599
    "create a FileVersionDiffBrowser instance and set the list of files.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   600
     When a file is selected, the version list is extracted,
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   601
     and the diff list is generated from the file's current version against
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   602
     the selected version in the top selection list"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   603
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   604
    |setOfFiles theBrowser filesChangedSince sinceTimestamp|
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   605
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   606
    sinceTimestamp := aDateOrTimestamp asTimestamp.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   607
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   608
    setOfFiles := aSetOfFilesOrADirectoryFilename.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   609
    setOfFiles isFilename ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   610
        setOfFiles := setOfFiles directoryContentsAsFilenames.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   611
    ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   612
    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   613
    filesChangedSince := setOfFiles 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   614
        select:[:fn | fn modificationTime > sinceTimestamp].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   615
    filesChangedSince sort:[:a :b | a name < b name].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   616
    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   617
    theBrowser := self new.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   618
    theBrowser allButOpenInterface:#windowSpecForMultipleFiles.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   619
    theBrowser beMultipleFilesVersionBrowser.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   620
    theBrowser fileList:filesChangedSince.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   621
    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   622
    "/ theBrowser classHolder:(ValueHolder with:aClass).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   623
    "/ theBrowser setupForClass:aClass againstVersion:nil.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   624
    theBrowser window label:(self resources string:'Versions of %1 files' with:setOfFiles size).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   625
    theBrowser openWindow.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   626
    ^ theBrowser.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   627
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   628
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   629
     FileVersionDiffBrowser 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   630
        openOnAllFilesChangedSince:(Date today - 7 days) 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   631
        in:('../../libbasic' asFilename files).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   632
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   633
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   634
    "Created: / 07-07-2019 / 18:58:01 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   635
    "Modified: / 08-07-2019 / 01:36:01 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   636
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   637
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   638
openOnAllVersionsOfFile:aFilename
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   639
    "create a VersionDiffBrowser instance and set the file. 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   640
     The diff is generated from aFilename's current version against
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   641
     the selected version in the top selection list"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   642
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   643
    |theBrowser|
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   644
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   645
    theBrowser := self new.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   646
    theBrowser allButOpenInterface:#windowSpecForMultipleVersions.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   647
    theBrowser beMultipleVersionBrowser.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   648
    theBrowser fileHolder value:aFilename.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   649
    theBrowser setupForAllVersionsOfFile:aFilename.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   650
    theBrowser window label:(self resources string:'Versions of %1' with:aFilename baseName).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   651
    theBrowser openWindow.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   652
    ^ theBrowser.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   653
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   654
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   655
     self openOnAllVersionsOfFile:'Make.proto' asFilename
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   656
     self openOnAllVersionsOfFile:'../../libbasic/Array.st' asFilename
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   657
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   658
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   659
    "Created: / 07-07-2019 / 19:26:28 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   660
    "Modified: / 07-07-2019 / 22:40:38 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   661
    "Modified (comment): / 08-07-2019 / 01:27:03 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   662
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   663
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   664
openOnAllVersionsOfFiles:aSetOfFilenames
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   665
    "create a VersionDiffBrowser instance and set the list of files.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   666
     When a file is selected, the version list is extracted,
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   667
     and the diff set is generated from the file's current version against
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   668
     the selected version in the top selection list"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   669
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   670
    |theBrowser|
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   671
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   672
    theBrowser := self new.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   673
    theBrowser allButOpenInterface:#windowSpecForMultipleFiles.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   674
    theBrowser beMultipleFilesVersionBrowser.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   675
    theBrowser beMultipleVersionBrowser.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   676
    theBrowser fileList:(aSetOfFilenames collect:#asFilename).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   677
    theBrowser window label:(self resources string:'Versions of %1 files' with:aSetOfFilenames size).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   678
    theBrowser openWindow.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   679
    ^ theBrowser.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   680
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   681
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   682
     self openOnAllVersionsOfFiles:#('Make.proto' 'Make.spec')
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   683
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   684
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   685
    "Created: / 07-07-2019 / 19:29:38 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   686
    "Modified: / 08-07-2019 / 00:30:31 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   687
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   688
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   689
openOnFile:aFilename againstVersion:aVersionA
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   690
    "create a VersionDiffBrowser instance and set the diffs of the
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   691
     browser. The diffs are generated from aFilename's current against some version
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   692
     via the source code manager."
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   693
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   694
    |theBrowser fn|
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   695
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   696
    fn := aFilename asFilename.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   697
    theBrowser := self new.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   698
    theBrowser allButOpen.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   699
    theBrowser setupForFile:fn againstVersion:aVersionA.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   700
    theBrowser window label:(self resources string:'Diffs of %1 %2 against current' with:fn baseName with:aVersionA).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   701
    theBrowser openWindow.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   702
    ^ theBrowser.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   703
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   704
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   705
     self openOnFile:'Make.proto' againstVersion:'1.2'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   706
     self openOnFile:'Make.proto' againstVersion:#newest        - against the newest repository version
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   707
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   708
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   709
    "Created: / 07-07-2019 / 19:31:13 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   710
    "Modified: / 08-07-2019 / 00:42:22 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   711
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   712
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   713
openOnFile:file1 andFile:file2
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   714
    |fn1 fn2|
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   715
    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   716
    fn1 := file1 asFilename.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   717
    fn2 := file2 asFilename.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   718
    ^ self 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   719
        openOnFile:fn1 labelA:fn1 baseName andFile:fn2 labelB:fn2 baseName 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   720
        title:(self resources string:'%1 vs. %2' 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   721
                                with:fn1 baseName with:fn2 baseName)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   722
        ifSame:nil
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   723
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   724
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   725
     FileVersionDiffBrowser
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   726
        openOnFile:'../../libbasic/FloatArray.st'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   727
        andFile:'../../libbasic/DoubleArray.st'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   728
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   729
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   730
    "Created: / 08-07-2019 / 00:52:18 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   731
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   732
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   733
openOnFile:fileA labelA:aLabelA andFile:fileB labelB:aLabelB title:title
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   734
    "create a VersionDiffBrowser instance and set the difflist of the
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   735
     browser. The diffs are generated from two files."
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   736
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   737
    ^ self
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   738
        openOnFile:fileA labelA:aLabelA
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   739
        andFile:fileB labelB:aLabelB
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   740
        title:title ifSame:nil
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   741
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   742
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   743
     self
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   744
        openOnFile:'../../libbasic/FloatArray.st' labelA:'FloatArray'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   745
        andFile:'../../libbasic/DoubleArray.st' labelB:'DoubleArray'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   746
        title:'FloatArray vs. DoubleArray'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   747
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   748
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   749
    "Created: / 07-07-2019 / 19:32:07 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   750
    "Modified (comment): / 08-07-2019 / 00:37:50 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   751
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   752
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   753
openOnFile:fileA labelA:aLabelA andFile:fileB labelB:aLabelB title:title ifSame:sameAction
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   754
    "create a VersionDiffBrowser instance and set the class change set of the
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   755
     browser. The class diff set is generated from two classes."
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   756
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   757
    |theBrowser fn1 fn2|
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   758
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   759
    fn1 := fileA asFilename.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   760
    fn2 := fileB asFilename.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   761
    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   762
    theBrowser := self new.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   763
    theBrowser allButOpen.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   764
    theBrowser setupForFile:fn1 labelA:aLabelA andFile:fn2 labelB:aLabelB.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   765
    theBrowser window label:title.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   766
    theBrowser openWindow.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   767
    ^ theBrowser.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   768
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   769
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   770
     FileVersionDiffBrowser
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   771
        openOnFile:'../../libbasic/FloatArray.st' labelA:'FloatArray'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   772
        andFile:'../../libbasic/DoubleArray.st' labelB:'DoubleArray'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   773
        title:'Some diffs' ifSame:nil
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   774
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   775
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   776
    "Created: / 07-07-2019 / 20:05:16 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   777
    "Modified (comment): / 08-07-2019 / 00:51:29 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   778
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   779
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   780
openOnFile:aFilename versionA:versionA versionB:versionB
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   781
    "create a VersionDiffBrowser instance and set the class change set of the
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   782
     browser. The class diff set is generated from two versions of aClass via
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   783
     the source code manager."
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   784
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   785
    |theBrowser|
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   786
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   787
    theBrowser := self new.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   788
    theBrowser allButOpen.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   789
    theBrowser setupForFile:aFilename versionA:versionA versionB:versionB.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   790
    theBrowser window label:(self resources 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   791
                                string:'%1 Versions %2 vs. %3' 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   792
                                with:aFilename baseName with:versionA with:versionB).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   793
    theBrowser openWindow.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   794
    ^ theBrowser.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   795
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   796
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   797
     self openOnFile:'Make.proto' versionA:'1.1' versionB:'1.2'
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   798
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   799
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   800
    "Created: / 07-07-2019 / 20:06:15 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   801
! !
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   802
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   803
!FileVersionDiffBrowser methodsFor:'accessing'!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   804
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   805
beMultipleFilesVersionBrowser
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   806
    isMultipleFilesVersionBrowser := true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   807
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   808
    "Created: / 07-07-2019 / 18:58:49 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   809
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   810
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   811
beMultipleVersionBrowser
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   812
    isMultipleVersionBrowser := true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   813
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   814
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   815
isMultipleFilesVersionBrowser
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   816
    ^ isMultipleFilesVersionBrowser
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   817
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   818
    "Created: / 07-07-2019 / 19:53:15 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   819
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   820
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   821
isMultipleVersionBrowser
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   822
    ^ isMultipleVersionBrowser
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   823
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   824
    "Modified: / 08-05-2019 / 10:59:40 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   825
! !
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   826
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   827
!FileVersionDiffBrowser methodsFor:'aspects'!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   828
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   829
diffTextHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   830
    diffTextHolder isNil ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   831
        diffTextHolder := '' asValue
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   832
    ].    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   833
    ^ diffTextHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   834
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   835
    "Created: / 07-07-2019 / 20:04:23 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   836
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   837
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   838
diffTextLabelA
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   839
    "aspect for the label for version A"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   840
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   841
    ^ diffTextLabelA.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   842
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   843
    "Modified: / 08-05-2019 / 11:03:23 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   844
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   845
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   846
diffTextLabelB
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   847
    "aspect for the label for version B"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   848
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   849
    ^ diffTextLabelB.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   850
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   851
    "Modified: / 08-05-2019 / 11:03:32 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   852
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   853
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   854
diffTextView
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   855
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   856
    return the component for the diff text view.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   857
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   858
    <return: HVScrollableView>
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   859
    "
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   860
    |v|
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   861
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   862
    diffTextView isNil ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   863
        v := DiffCodeView new.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   864
        v textViewClass:CodeView.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   865
        v initialize.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   866
        diffTextView := HVScrollableView
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   867
                           forView:v
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   868
                           miniScrollerH:true miniScrollerV:false.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   869
        diffTextView addNextPreviousButtons.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   870
    ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   871
    ^ diffTextView
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   872
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   873
    "Modified: / 06-10-2006 / 14:30:42 / cg"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   874
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   875
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   876
fileHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   877
    fileHolder isNil ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   878
        fileHolder := nil asValue
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   879
    ].    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   880
    ^ fileHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   881
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   882
    "Created: / 07-07-2019 / 20:10:47 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   883
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   884
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   885
fileList:aList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   886
    self fileListHolder contents:aList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   887
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   888
    "Created: / 08-07-2019 / 00:28:32 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   889
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   890
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   891
fileListHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   892
    "aspect for the 'list of files' list.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   893
     <return: List>"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   894
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   895
    fileListHolder isNil ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   896
        fileListHolder := List new
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   897
    ].    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   898
    ^ fileListHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   899
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   900
    "Created: / 07-07-2019 / 19:46:44 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   901
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   902
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   903
fileNameListHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   904
    "aspect for the 'list of file' list.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   905
     <return: List>"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   906
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   907
    ^ BlockValue
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   908
        with:[:l | l collect:#baseName]
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   909
        argument:(self fileListHolder)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   910
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   911
    "Created: / 07-07-2019 / 19:47:13 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   912
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   913
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   914
infoHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   915
    ^ infoHolder.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   916
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   917
    "Modified: / 08-05-2019 / 11:05:10 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   918
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   919
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   920
selectedFileIndexHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   921
    selectedFileIndexHolder isNil ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   922
        selectedFileIndexHolder := nil asValue. 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   923
        selectedFileIndexHolder onChangeSend:#selectedFileIndexHolderChanged to:self.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   924
    ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   925
    ^ selectedFileIndexHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   926
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   927
    "Created: / 07-07-2019 / 19:00:13 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   928
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   929
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   930
selectedSymbolicVersionHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   931
    ^ selectedSymbolicVersionHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   932
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   933
    "Modified: / 08-05-2019 / 11:08:42 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   934
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   935
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   936
selectedSymbolicVersionIndexHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   937
    ^ selectedSymbolicVersionIndexHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   938
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   939
    "Created: / 28-05-2019 / 15:32:03 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   940
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   941
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   942
selectedVersionHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   943
    ^ selectedVersionHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   944
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   945
    "Modified: / 08-05-2019 / 11:09:18 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   946
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   947
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   948
selectedVersionIndex
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   949
    ^ selectedVersionIndexHolder value ? 0
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   950
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   951
    "Created: / 23-05-2018 / 11:35:50 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   952
    "Modified: / 08-05-2019 / 11:09:50 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   953
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   954
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   955
selectedVersionIndexHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   956
    ^ selectedVersionIndexHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   957
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   958
    "Created: / 29-11-2017 / 13:02:49 / cg"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   959
    "Modified: / 08-05-2019 / 11:09:46 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   960
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   961
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   962
symbolicVersionList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   963
    ^ symbolicVersionList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   964
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   965
    "Modified: / 08-05-2019 / 11:10:23 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   966
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   967
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   968
symbolicVersionNameList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   969
    ^ symbolicVersionNameList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   970
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   971
    "Created: / 28-05-2019 / 15:42:12 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   972
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   973
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   974
versionEntriesList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   975
    ^ versionEntriesList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   976
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   977
    "Created: / 29-11-2017 / 13:06:14 / cg"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   978
    "Modified: / 08-05-2019 / 11:10:38 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   979
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   980
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   981
versionList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   982
    ^ versionList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   983
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   984
    "Modified: / 08-05-2019 / 11:10:53 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   985
! !
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   986
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   987
!FileVersionDiffBrowser methodsFor:'aspects-menu'!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   988
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   989
hasNextVersionInVersionList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   990
    "versions are sorted youngest first.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   991
     If the current selected one is the first, there is no next version"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   992
     
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   993
    ^ (self selectedVersionIndex) > 1.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   994
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   995
    "Modified: / 23-05-2018 / 11:36:33 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   996
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   997
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   998
hasPreviousVersionInVersionList 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   999
    "versions are sorted youngest first.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1000
     If the current selected one is the last, there is no previous version"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1001
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1002
    ^ (self selectedVersionIndex) < versionList value size.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1003
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1004
    "Modified: / 23-05-2018 / 11:36:38 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1005
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1006
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1007
versionsMenu
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1008
    ^ [ 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1009
        |m item nextVersion prevVersion|
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1010
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1011
        m := self class versionsMenu.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1012
        m := m decodeAsLiteralArray.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1013
        m findGuiResourcesIn:self.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1014
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1015
        self hasNextVersionInVersionList ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1016
            nextVersion := self versionList at:(self selectedVersionIndex - 1).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1017
            item := m atNameKey:#CompareAgainstNextVersion. 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1018
            item label:(resources string:(item label,' (%1)') with:nextVersion).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1019
        ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1020
        self hasPreviousVersionInVersionList ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1021
            prevVersion := self versionList at:(self selectedVersionIndex + 1).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1022
            item := m atNameKey:#CompareAgainstPreviousVersion.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1023
            item label:(resources string:(item label,'(%1)') with:prevVersion).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1024
        ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1025
        m
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1026
      ]
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1027
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1028
    "Modified: / 23-05-2018 / 11:36:18 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1029
! !
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1030
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1031
!FileVersionDiffBrowser methodsFor:'change & update'!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1032
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1033
selectVersion:version
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1034
    |idx numShownBefore numShownAfter|
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1035
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1036
    idx := versionList indexOf:version.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1037
    "/ if not found, get more version infos
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1038
    [idx == 0] whileTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1039
        numShownBefore := versionList size.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1040
        self updateVersionList.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1041
        numShownAfter := versionList size.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1042
        idx := versionList indexOf:version.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1043
        idx == 0 ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1044
            numShownBefore == numShownAfter ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1045
                ^ self
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1046
            ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1047
        ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1048
    ].    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1049
    self selectedVersionIndexHolder value:idx.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1050
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1051
    "Created: / 28-05-2019 / 14:58:37 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1052
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1053
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1054
selectedFileIndexHolderChanged
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1055
    |fn|
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1056
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1057
    fn := self fileListHolder value at:(self selectedFileIndexHolder value).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1058
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1059
    self fileHolder value:fn.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1060
    (self isMultipleVersionBrowser or:[self isMultipleFilesVersionBrowser]) ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1061
        self withWaitCursorDo:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1062
            self updateVersionList.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1063
        ]
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1064
    ]
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1065
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1066
    "Created: / 07-07-2019 / 19:51:17 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1067
    "Modified: / 08-07-2019 / 00:30:51 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1068
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1069
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1070
selectedSymbolicVersionHolderChanged
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1071
    |symbolicTag version|
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1072
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1073
    symbolicTag := self selectedSymbolicVersionHolder value.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1074
    version := symbolicToVersionMapping at:symbolicTag ifAbsent:nil.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1075
    version isNil ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1076
        symbolicTag = '-' ifFalse:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1077
            Dialog warn:'No version has this tag ("%1")' with:symbolicTag.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1078
        ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1079
        ^ self.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1080
    ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1081
    self selectVersion:version
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1082
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1083
    "Modified: / 28-05-2019 / 14:57:56 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1084
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1085
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1086
selectedSymbolicVersionIndexHolderChanged
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1087
    self selectedSymbolicVersionHolder value:(symbolicVersionList at:self selectedSymbolicVersionIndexHolder value)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1088
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1089
    "Created: / 28-05-2019 / 15:32:47 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1090
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1091
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1092
selectedVersionHolderChanged
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1093
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1094
    self withWaitCursorDo:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1095
        |idx|
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1096
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1097
        "/ possibly expand a contracted list
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1098
        selectedVersionHolder value = '...' ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1099
            idx := self versionList size.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1100
            self updateVersionList.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1101
            selectedVersionHolder setValue:(self versionList at:idx).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1102
        ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1103
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1104
        "/ update the view
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1105
        self 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1106
            setupForFile:fileHolder value 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1107
            againstVersion:(selectedVersionHolder value).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1108
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1109
        "/ self showVersionInfoIfNothingSelected
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1110
    ]
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1111
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1112
    "Modified: / 06-02-2017 / 02:32:24 / cg"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1113
    "Modified: / 08-07-2019 / 00:05:30 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1114
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1115
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1116
selectedVersionIndexHolderChanged
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1117
    self selectedVersionHolder value:(versionList at:self selectedVersionIndexHolder value)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1118
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1119
    "Created: / 29-11-2017 / 13:04:12 / cg"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1120
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1121
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1122
showActivity:someMessage
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1123
    "some activityNotification shalt be communicated to the user."
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1124
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1125
    infoHolder value:someMessage.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1126
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1127
    "Created: / 28-05-2019 / 15:26:34 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1128
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1129
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1130
update:something with:parameter from:changedObject
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1131
    (changedObject == fileHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1132
    or:[changedObject == versionAHolder
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1133
    or:[changedObject == versionBHolder]]) ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1134
        self setupForFile:(fileHolder value) versionA:(versionAHolder value) versionB:(versionBHolder value).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1135
        ^ self
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1136
    ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1137
    super update:something with:parameter from:changedObject
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1138
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1139
    "Modified: / 17-07-2012 / 17:48:58 / cg"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1140
    "Modified: / 08-07-2019 / 00:09:19 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1141
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1142
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1143
updateLists
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1144
    "walk over the changeSet(s) and setup the 3 lists:
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1145
     onlyInA, changed, onlyInB,
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1146
     Optionally filter extensions, categoryChanges and versionMethods,
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1147
     changes with same semantic (variable renames)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1148
     and changes which have been explicitly filtered by the user."
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1149
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1150
    |listOnlyInA listOnlyInB listChanged
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1151
     printStringGenerator "sortBlockForChangeLists" filteredList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1152
     numIgnoredExtensions numIgnoredVersionMethods 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1153
     info needFilter entryIsForCommentOrFormatOnly
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1154
     isIgnoredChange|
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1155
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1156
"/    listOnlyInA := filteredList := self methodsOnlyInA.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1157
"/    listOnlyInA removeAll.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1158
"/    classChangeSet notNil ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1159
"/        "/ classChangeSet methodsOnlyInA sort:sortBlockForChangeLists.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1160
"/        filteredList := classChangeSet methodsOnlyInA reject:isIgnoredChange.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1161
"/        listOnlyInA addAll: (filteredList collect:printStringGenerator).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1162
"/    ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1163
"/    methodsOnlyInAFiltered := filteredList.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1164
"/
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1165
"/    listOnlyInB := filteredList := self methodsOnlyInB.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1166
"/    listOnlyInB removeAll.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1167
"/    classChangeSet notNil ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1168
"/        "/ classChangeSet methodsOnlyInB sort:sortBlockForChangeLists.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1169
"/        filteredList := classChangeSet methodsOnlyInB reject:isIgnoredChange.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1170
"/        listOnlyInB addAll: (filteredList collect:printStringGenerator).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1171
"/    ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1172
"/    methodsOnlyInBFiltered := filteredList.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1173
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1174
"/    entryIsForCommentOrFormatOnly :=
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1175
"/        [:entry |
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1176
"/            |commentOnly changeA changeB mthdA mthdB|
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1177
"/
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1178
"/            commentOnly := false.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1179
"/            
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1180
"/            changeA := entry first.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1181
"/            changeB := entry second.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1182
"/            changeA isMethodChange ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1183
"/                changeA isMethodCodeChange ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1184
"/                    RBCodeDuplicationRule notNil ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1185
"/                        mthdA := RBMethod forMethodChange:changeA.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1186
"/                        mthdB := RBMethod forMethodChange:changeB.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1187
"/                        commentOnly := RBCodeDuplicationRule hasMethod:mthdA sameSemanticAs:mthdB.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1188
"/                    ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1189
"/                ] ifFalse:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1190
"/                    changeA isMethodCategoryChange ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1191
"/                        commentOnly := true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1192
"/                    ] ifFalse:[    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1193
"/                        self breakPoint:#cg
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1194
"/                    ].    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1195
"/                ].    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1196
"/            ] ifFalse:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1197
"/                changeA isClassDefinitionChange ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1198
"/                    changeA source = changeB source ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1199
"/                        commentOnly := true
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1200
"/                    ] ifFalse:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1201
"/                        self breakPoint:#cg
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1202
"/                    ].    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1203
"/                ] ifFalse:[    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1204
"/                    self breakPoint:#cg
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1205
"/                ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1206
"/            ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1207
"/            commentOnly
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1208
"/        ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1209
        
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1210
"/    listChanged := filteredList := self methodsChanged.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1211
"/    listChanged removeAll.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1212
"/    classChangeSet notNil ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1213
"/        "/ classChangeSet methodsChanged sort:[:a :b | sortBlockForChangeLists value:a first value:b first].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1214
"/        filteredList := classChangeSet methodsChanged reject:[:entry | isIgnoredChange value:entry first].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1215
"/
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1216
"/        (self hideDiffsWithCommentOrFormattingChangeOnly) ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1217
"/            filteredList := filteredList reject:entryIsForCommentOrFormatOnly.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1218
"/            listChanged addAll: (filteredList collect:[:entry| printStringGenerator value:(entry first)]).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1219
"/        ] ifFalse:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1220
"/            filteredList do:[:entry| 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1221
"/                |string|
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1222
"/
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1223
"/                string := printStringGenerator value:(entry first).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1224
"/                (entryIsForCommentOrFormatOnly value:entry) ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1225
"/                    string := string withColor:Color grey.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1226
"/                ].    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1227
"/                listChanged add:string
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1228
"/            ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1229
"/        ].    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1230
"/    ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1231
"/    methodsChangedFiltered := filteredList.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1232
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1233
"/    self boxAVisible value:(listOnlyInA notEmpty).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1234
"/    self boxBVisible value:(listOnlyInB notEmpty).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1235
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1236
"/    self boxMVisible value:(listChanged isEmpty
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1237
"/                            and: [(listOnlyInA notEmpty
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1238
"/                                  or:[listOnlyInB notEmpty])]) not.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1239
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1240
    self information:info
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1241
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1242
    "Modified (comment): / 06-02-2017 / 10:09:11 / cg"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1243
    "Modified (format): / 16-02-2017 / 11:11:49 / stefan"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1244
    "Modified: / 07-07-2019 / 19:08:03 / Claus Gittinger"
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1245
!
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1246
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1247
updateVersionList
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1248
    "asks the classes source code manager for a list of revisions;
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1249
     construct versionInfoList (containing the full info), versionList (containing version numbers only)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1250
     and tagList (containing symbolic names only).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1251
     This is only used when comparing multiple versions."
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1252
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1253
    |fn sourceCodeManager numShown newNumShown numOverallRevisions
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1254
     partialLog newestRev revisions revisionEntries symbolicNames
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1255
     stableRevision releasedRevision tagList logMessages|
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1256
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1257
    fn := fileHolder value.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1258
    fn isNil ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1259
        symbolicVersionList contents:#().
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1260
        symbolicVersionNameList contents:#().
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1261
        self versionList contents:#().
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1262
        self versionEntriesList contents:#().
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1263
        ^ self
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1264
    ]. 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1265
 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1266
    sourceCodeManager := CVSSourceCodeManager.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1267
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1268
    numShown := versionList size - 1.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1269
    newNumShown := (numShown + 50) max:30.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1270
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1271
    infoHolder value:'Getting version log...'.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1272
    partialLog := sourceCodeManager revisionLogOfFile:fn numberOfRevisions:newNumShown.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1273
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1274
    partialLog isNil ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1275
        self warn:'Could not find/access the container for ',fn name,' in the repository.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1276
This could be due to:
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1277
    - invalid/wrong CVS-Root setting
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1278
    - missing CVS access rights
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1279
        (no access / not logged in)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1280
    - changed CVSRoot after compilation
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1281
        (i.e. wrong CVS-path in classes version method)
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1282
'.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1283
        ^ nil
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1284
    ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1285
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1286
    numOverallRevisions := partialLog at:#numberOfRevisions.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1287
    newestRev := partialLog at:#newestRevision.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1288
    revisions := partialLog at:#revisions.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1289
    
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1290
    "/ fetch the symbolic (tag) version list
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1291
    symbolicNames := partialLog at:#symbolicNames ifAbsent:[].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1292
    symbolicNames notNil ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1293
        stableRevision := symbolicNames at:'stable' ifAbsent:[].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1294
        releasedRevision := symbolicNames at:'released' ifAbsent:[].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1295
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1296
        tagList := ((symbolicNames associations 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1297
                        sort:[:a :b | sourceCodeManager versionString:(a value) isLessThan:(b value)])
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1298
                            collect:[:assoc | assoc key]) reverse.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1299
"/        tagList := ((symbolicNames associations 
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1300
"/                        sort:[:a :b | a key < b key])
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1301
"/                            collect:[:assoc | assoc key]) reverse.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1302
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1303
        tagList remove:'stable' ifAbsent:[].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1304
        stableRevision notNil ifTrue:[
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1305
            tagList notEmpty ifTrue:[tagList addFirst:'-'].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1306
            tagList addFirst:'stable'.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1307
        ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1308
    ].
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1309
    logMessages := Dictionary new.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1310
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1311
    versionInfoList := revisions.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1312
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1313
"/    items := versionInfoList collect:[:each | |rev date who flag|
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1314
"/                                    rev := each at:#revision.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1315
"/                                    logMessages at:rev put:(each at:#logMessage).
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1316
"/                                    date := (each at:#date ifAbsent:nil) ? '?'.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1317
"/                                    who := (each at:#author ifAbsent:nil) ? '?'.
319c68f831df initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
<