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