Tools__ChangeList.st
author Claus Gittinger <cg@exept.de>
Sun, 01 Feb 2015 14:17:11 +0100
changeset 15150 940d37c7d3ac
parent 14719 7d5cc009a201
child 15432 e4656b4e606d
permissions -rw-r--r--
class: Tools::ChangeList fixed the following redraw bug in ModelListView (which is already fixed in SelectionInListView): if a colored item is shown with selection, the color attribute should be removed (or relaxed), to avoid drawing the label invisible. I.e. if the text color is blue or grey, and the selection bg is blue. we should draw white-on-blue, instead of blue/grey on blue. For this to work, the info whether drawing a selection must be passed down through the renderer to the item's draw routine.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
10064
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
     2
 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
     3
              All Rights Reserved
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
10064
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
     5
Permission is hereby granted, free of charge, to any person
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
     6
obtaining a copy of this software and associated documentation
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
     7
files (the 'Software'), to deal in the Software without
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
     8
restriction, including without limitation the rights to use,
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
     9
copy, modify, merge, publish, distribute, sublicense, and/or sell
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    10
copies of the Software, and to permit persons to whom the
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    11
Software is furnished to do so, subject to the following
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    12
conditions:
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    13
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    14
The above copyright notice and this permission notice shall be
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    15
included in all copies or substantial portions of the Software.
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    16
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    17
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    18
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    19
OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    20
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    21
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    22
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    23
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    24
OTHER DEALINGS IN THE SOFTWARE.
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
"{ Package: 'stx:libtool' }"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
"{ NameSpace: Tools }"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
10925
7cb47ef997fb inherits from BrowserListWithFilter
vrany
parents: 10881
diff changeset
    30
BrowserListWithFilter subclass:#ChangeList
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
    31
	instanceVariableNames:'listHolder showRemovedHolder showSameHolder showTimestampHolder
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
    32
		allowRemoveHolder allowAcceptHolder scrollToBottom applyAction
13970
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
    33
		showConflictsOnlyHolder showDefinitionsOnlyHolder'
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
	classVariableNames:'LastSelectionConditionString'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
	poolDictionaries:''
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
	category:'Interface-Browsers-ChangeSet'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
HierarchicalItem subclass:#ListEntry
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
	instanceVariableNames:'change application x'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
	classVariableNames:''
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
	poolDictionaries:''
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
	privateIn:ChangeList
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
!ChangeList class methodsFor:'documentation'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
copyright
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
"
10064
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    50
 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    51
              All Rights Reserved
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    52
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    53
Permission is hereby granted, free of charge, to any person
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    54
obtaining a copy of this software and associated documentation
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    55
files (the 'Software'), to deal in the Software without
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    56
restriction, including without limitation the rights to use,
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    57
copy, modify, merge, publish, distribute, sublicense, and/or sell
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    58
copies of the Software, and to permit persons to whom the
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    59
Software is furnished to do so, subject to the following
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    60
conditions:
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
10064
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    62
The above copyright notice and this permission notice shall be
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    63
included in all copies or substantial portions of the Software.
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    64
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    65
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    66
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    67
OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    68
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    69
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    70
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    71
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
7949933c6a57 copyright
Claus Gittinger <cg@exept.de>
parents: 10009
diff changeset
    72
OTHER DEALINGS IN THE SOFTWARE.
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
! !
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
!ChangeList class methodsFor:'image specs'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
iconEqual
10657
7df080baff44 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 10451
diff changeset
    79
    ^ ToolbarIconLibrary iconEqual12x12
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
10657
7df080baff44 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 10451
diff changeset
    81
    "Modified: / 31-08-2011 / 10:52:34 / cg"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
iconEqualGrayed
10657
7df080baff44 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 10451
diff changeset
    85
    ^ ToolbarIconLibrary iconEqualGray12x12
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
10657
7df080baff44 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 10451
diff changeset
    87
    "Modified: / 31-08-2011 / 10:54:00 / cg"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
12666
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
    90
iconExcla
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
    91
    ^ ToolbarIconLibrary iconExclaRed12x12
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
    92
!
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
    93
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
iconMinus
11657
20ecaec63deb changed:
Claus Gittinger <cg@exept.de>
parents: 11245
diff changeset
    95
    ^ ToolbarIconLibrary iconMinusRed12x12
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
11657
20ecaec63deb changed:
Claus Gittinger <cg@exept.de>
parents: 11245
diff changeset
    97
    "Modified: / 24-07-2012 / 16:43:36 / cg"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
iconMinusGrayed
10657
7df080baff44 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 10451
diff changeset
   101
    ^ ToolbarIconLibrary iconMinusGray12x12
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
10657
7df080baff44 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 10451
diff changeset
   103
    "Modified: / 31-08-2011 / 10:54:40 / cg"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
14719
7d5cc009a201 class: Tools::ChangeList
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14199
diff changeset
   106
iconNone
7d5cc009a201 class: Tools::ChangeList
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14199
diff changeset
   107
    ^ nil
7d5cc009a201 class: Tools::ChangeList
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14199
diff changeset
   108
7d5cc009a201 class: Tools::ChangeList
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14199
diff changeset
   109
    "Created: / 05-09-2014 / 00:34:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7d5cc009a201 class: Tools::ChangeList
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14199
diff changeset
   110
!
7d5cc009a201 class: Tools::ChangeList
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14199
diff changeset
   111
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
iconPlus
11657
20ecaec63deb changed:
Claus Gittinger <cg@exept.de>
parents: 11245
diff changeset
   113
    ^ ToolbarIconLibrary iconPlusBlue12x12
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
11657
20ecaec63deb changed:
Claus Gittinger <cg@exept.de>
parents: 11245
diff changeset
   115
    "Modified: / 24-07-2012 / 16:43:31 / cg"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   118
iconPlusGrayed
10657
7df080baff44 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 10451
diff changeset
   119
    ^ ToolbarIconLibrary iconPlusGray12x12
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
10657
7df080baff44 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 10451
diff changeset
   121
    "Modified: / 31-08-2011 / 10:54:46 / cg"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
! !
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
!ChangeList class methodsFor:'interface specs'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   125
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
windowSpec
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   127
    "This resource specification was automatically generated
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
     by the UIPainter of ST/X."
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
    "Do not manually edit this!! If it is corrupted,
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
     the UIPainter may not be able to read the specification."
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   133
    "
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   134
     UIPainter new openOnClass:Tools::ChangeList andSelector:#windowSpec
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
     Tools::ChangeList new openInterface:#windowSpec
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   136
     Tools::ChangeList open
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   137
    "
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
    <resource: #canvas>
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   140
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   141
    ^
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
     #(FullSpec
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   143
	name: windowSpec
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   144
	window:
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
       (WindowSpec
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   146
	  label: 'Change List'
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   147
	  name: 'Change List'
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   148
	  min: (Point 10 10)
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   149
	  bounds: (Rectangle 0 0 300 300)
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   150
	)
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   151
	component:
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   152
       (SpecCollection
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   153
	  collection: (
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   154
	   (InputFieldSpec
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   155
	      name: 'Filter'
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   156
	      layout: (LayoutFrame 0 0 0 0 0 1 25 0)
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   157
	      initiallyInvisible: true
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   158
	      model: filterPatternHolder
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   159
	      immediateAccept: true
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   160
	      acceptOnLeave: false
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   161
	      acceptOnReturn: false
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   162
	      acceptOnTab: false
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   163
	      acceptOnPointerLeave: false
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   164
	      emptyFieldReplacementText: 'Search Filter...'
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   165
	      postBuildCallback: postBuildFilterView:
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   166
	    )
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   167
	   (DataSetSpec
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   168
	      name: 'List'
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   169
	      layout: (LayoutFrame 0 0 0 0 0 1 0 1)
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   170
	      model: selectionHolder
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   171
	      menu: menuHolderWithShowFilter
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   172
	      hasHorizontalScrollBar: true
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   173
	      hasVerticalScrollBar: true
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   174
	      dataList: listHolder
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   175
	      useIndex: false
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   176
	      doubleClickSelector: selectionDoubleclicked
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   177
	      columnHolder: listColumns
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   178
	      showLabels: false
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   179
	      multipleSelectOk: true
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   180
	      postBuildCallback: postBuildListView:
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   181
	      properties:
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   182
	     (PropertyListDictionary
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   183
		startDragSelector: nil
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   184
		dropObjectSelector: dragObjects:
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   185
		canDropSelector: canDrop:
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   186
		dropSelector: dropObjects:
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   187
	      )
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   188
	    )
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   189
	   )
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   190
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   191
	)
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   192
      )
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   193
! !
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   194
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   195
!ChangeList class methodsFor:'list specs'!
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   196
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   197
listColumnSpec
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   198
    "This resource specification was automatically generated
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   199
     by the DataSetBuilder of ST/X."
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   200
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   201
    "Do not manually edit this!! If it is corrupted,
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   202
     the DataSetBuilder may not be able to read the specification."
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   203
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   204
    "
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   205
     DataSetBuilder new openOnClass:Tools::ChangeList andSelector:#listColumnSpec
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   206
    "
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   207
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   208
    <resource: #tableColumns>
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   209
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   210
    ^#(
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   211
      (DataSetColumnSpec
14199
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   212
         label: 'Removed'
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   213
         id: 'removed'
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   214
         labelButtonType: Button
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   215
         width: 20
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   216
         minWidth: 20
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   217
         height: heightOfFirstRow
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   218
         editorType: CheckToggle
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   219
         rendererType: CheckToggle
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   220
         model: notRemoved
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   221
         menuFromApplication: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   222
         printSelector: notRemoved
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   223
         isResizeable: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   224
         showRowSeparator: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   225
         showColSeparator: false
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   226
       )
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   227
      (DataSetColumnSpec
14199
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   228
         label: 'Delta'
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   229
         id: 'delta'
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   230
         labelButtonType: Button
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   231
         width: 20
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   232
         minWidth: 20
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   233
         height: heightOfFirstRow
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   234
         menuFromApplication: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   235
         printSelector: iconDelta
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   236
         canSelect: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   237
         isResizeable: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   238
         showRowSeparator: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   239
         showColSeparator: false
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   240
       )
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   241
      (DataSetColumnSpec
14199
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   242
         label: 'Change'
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   243
         id: change
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   244
         labelAlignment: left
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   245
         labelButtonType: Button
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   246
         height: heightOfFirstRow
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   247
         menuFromApplication: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   248
         printSelector: label
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   249
         canSelect: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   250
         showRowSeparator: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   251
         showColSeparator: false
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   252
       )
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   253
      (DataSetColumnSpec
14199
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   254
         label: 'Class'
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   255
         id: 'className'
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   256
         labelAlignment: left
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   257
         activeHelpKey: ''
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   258
         activeHelpKeyForLabel: ''
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   259
         labelButtonType: Button
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   260
         usePreferredWidth: true
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   261
         height: heightOfFirstRow
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   262
         model: className
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   263
         menuFromApplication: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   264
         canSelect: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   265
         showRowSeparator: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   266
         showColSeparator: false
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   267
       )
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   268
      (DataSetColumnSpec
14199
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   269
         label: 'Selector'
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   270
         id: 'selector'
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   271
         labelAlignment: left
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   272
         activeHelpKey: ''
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   273
         activeHelpKeyForLabel: ''
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   274
         labelButtonType: Button
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   275
         usePreferredWidth: true
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   276
         height: heightOfFirstRow
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   277
         model: selector
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   278
         menuFromApplication: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   279
         canSelect: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   280
         showRowSeparator: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   281
         showColSeparator: false
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   282
       )
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   283
      (DataSetColumnSpec
14199
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   284
         label: 'Category'
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   285
         id: category
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   286
         labelAlignment: left
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   287
         labelButtonType: Button
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   288
         usePreferredWidth: true
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   289
         height: heightOfFirstRow
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   290
         model: category
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   291
         menuFromApplication: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   292
         canSelect: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   293
         showRowSeparator: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   294
         showColSeparator: false
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   295
       )
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   296
      (DataSetColumnSpec
14199
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   297
         label: 'Time Stamp'
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   298
         id: timeStamp
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   299
         labelAlignment: left
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   300
         labelButtonType: Button
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   301
         usePreferredWidth: true
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   302
         height: heightOfFirstRow
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   303
         model: timeStamp
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   304
         menuFromApplication: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   305
         canSelect: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   306
         showRowSeparator: false
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   307
         showColSeparator: false
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   308
       )
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   309
      )
14199
e065c059bc38 Minor UI fixes - draw selection backgound for checkbox and delta columns.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14197
diff changeset
   310
    
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   311
! !
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   312
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   313
!ChangeList class methodsFor:'menu specs'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   314
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   315
listMenu
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   316
    "This resource specification was automatically generated
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   317
     by the MenuEditor of ST/X."
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   318
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   319
    "Do not manually edit this!! If it is corrupted,
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   320
     the MenuEditor may not be able to read the specification."
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   321
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   322
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   323
    "
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   324
     MenuEditor new openOnClass:Tools::ChangeList andSelector:#listMenu
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   325
     (Menu new fromLiteralArrayEncoding:(Tools::ChangeList listMenu)) startUp
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   326
    "
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   327
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   328
    <resource: #menu>
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   329
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   330
    ^ 
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   331
     #(Menu
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   332
        (
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   333
         (MenuItem
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   334
            enabled: hasChangeSelectedAndNotRemoved
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   335
            label: 'Apply'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   336
            itemValue: listMenuApply
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   337
            translateLabel: true
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   338
            isVisible: allowAcceptHolder
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   339
            shortcutKey: Accept
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   340
          )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   341
         (MenuItem
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   342
            label: 'Apply all'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   343
            itemValue: listMenuApplyAll
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   344
            translateLabel: true
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   345
            isVisible: allowAcceptHolder
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   346
          )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   347
         (MenuItem
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   348
            enabled: hasSingleChangeSelectedAndCanBrowse
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   349
            label: 'Browse'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   350
            itemValue: listMenuBrowse
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   351
            translateLabel: true
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   352
          )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   353
         (MenuItem
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   354
            label: '-'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   355
          )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   356
         (MenuItem
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   357
            label: 'Delete'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   358
            itemValue: listMenuDeleteSelection
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   359
            nameKey: Delete
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   360
            translateLabel: true
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   361
            isVisible: allowRemoveHolder
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   362
            shortcutKey: Delete
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   363
          )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   364
         (MenuItem
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   365
            label: '-'
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   366
            isVisible: allowRemoveHolder
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   367
          )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   368
         (MenuItem
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   369
            label: 'Select...'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   370
            translateLabel: true
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   371
            submenu: 
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   372
           (Menu
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   373
              (
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   374
               (MenuItem
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   375
                  label: 'Select same'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   376
                  itemValue: listMenuSelectSame
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   377
                  translateLabel: true
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   378
                )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   379
               (MenuItem
12577
3ca47412263f class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12108
diff changeset
   380
                  label: 'Select conflicts (redefined classes/methods)'
3ca47412263f class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12108
diff changeset
   381
                  itemValue: listMenuSelectConflicts
3ca47412263f class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12108
diff changeset
   382
                  translateLabel: true
3ca47412263f class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12108
diff changeset
   383
                )
3ca47412263f class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12108
diff changeset
   384
               (MenuItem
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   385
                  label: 'Select additions (new classes/methods)'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   386
                  itemValue: listMenuSelectAdditions
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   387
                  translateLabel: true
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   388
                )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   389
               (MenuItem
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   390
                  label: 'Select removals'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   391
                  itemValue: listMenuSelectRemovals
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   392
                  translateLabel: true
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   393
                )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   394
               (MenuItem
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   395
                  label: '-'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   396
                )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   397
               (MenuItem
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   398
                  label: 'Select all'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   399
                  itemValue: listMenuSelectAll
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   400
                  translateLabel: true
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   401
                )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   402
               (MenuItem
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   403
                  label: 'Select none'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   404
                  itemValue: listMenuSelectNone
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   405
                  translateLabel: true
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   406
                )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   407
               (MenuItem
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   408
                  label: '-'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   409
                )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   410
               (MenuItem
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   411
                  label: 'Select using block'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   412
                  itemValue: listMenuSelectUsingBlock
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   413
                  translateLabel: true
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   414
                )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   415
               )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   416
              nil
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   417
              nil
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   418
            )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   419
          )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   420
         (MenuItem
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   421
            label: '-'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   422
          )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   423
         (MenuItem
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   424
            label: 'Show Deleted'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   425
            translateLabel: true
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   426
            isVisible: allowRemoveHolder
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   427
            indication: showRemovedHolder
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   428
          )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   429
         (MenuItem
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   430
            label: 'Inspect change'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   431
            itemValue: listMenuInspect
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   432
            translateLabel: true
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   433
          )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   434
         )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   435
        nil
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   436
        nil
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   437
      )
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   438
! !
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   439
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   440
!ChangeList class methodsFor:'plugIn spec'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   441
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   442
aspectSelectors
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   443
    "This resource specification was automatically generated
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   444
     by the UIPainter of ST/X."
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   445
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   446
    "Do not manually edit this. If it is corrupted,
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   447
     the UIPainter may not be able to read the specification."
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   448
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   449
    "Return a description of exported aspects;
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   450
     these can be connected to aspects of an embedding application
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   451
     (if this app is embedded in a subCanvas)."
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   452
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   453
    ^ #(
14032
407dd3ef555b Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13970
diff changeset
   454
        environmentHolder
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   455
        #allowAcceptHolder
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   456
        #allowRemoveHolder
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   457
        #inGeneratorHolder
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   458
        #menuHolder
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   459
        #outGeneratorHolder
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   460
        #selectionHolder
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   461
        #showFilterHolder
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   462
        #showRemovedHolder
10449
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   463
        #showSameHolder
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   464
        #showTimestampHolder
12657
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   465
        #showConflictsOnlyHolder
13970
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   466
        #showDefinitionsOnlyHolder
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   467
      ).
14032
407dd3ef555b Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13970
diff changeset
   468
407dd3ef555b Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13970
diff changeset
   469
    "Modified: / 24-02-2014 / 10:37:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   470
! !
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   471
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   472
!ChangeList methodsFor:'accessing'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   473
11245
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   474
acceptEnabled
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   475
    ^ self allowAccept
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   476
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   477
    "Created: / 08-02-2012 / 14:45:12 / cg"
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   478
!
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   479
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   480
allowAccept
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   481
    ^ self allowAcceptHolder value
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   482
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   483
    "Created: / 24-01-2012 / 19:52:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   484
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   485
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   486
allowAccept: aBoolean
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   487
    ^ self allowAcceptHolder value: aBoolean
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   488
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   489
    "Created: / 24-01-2012 / 19:52:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   490
!
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   491
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   492
allowRemoved
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   493
    ^ self allowRemoveHolder value ? true
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   494
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   495
    "Created: / 05-12-2009 / 14:28:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   496
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   497
11795
894f104886b8 changed: #applyAction:
Claus Gittinger <cg@exept.de>
parents: 11794
diff changeset
   498
applyAction:aBlock
894f104886b8 changed: #applyAction:
Claus Gittinger <cg@exept.de>
parents: 11794
diff changeset
   499
    applyAction := aBlock.
894f104886b8 changed: #applyAction:
Claus Gittinger <cg@exept.de>
parents: 11794
diff changeset
   500
894f104886b8 changed: #applyAction:
Claus Gittinger <cg@exept.de>
parents: 11794
diff changeset
   501
    "Modified (format): / 10-09-2012 / 14:15:30 / cg"
11794
3d2efe798a56 added: #applyAction:
Claus Gittinger <cg@exept.de>
parents: 11710
diff changeset
   502
!
3d2efe798a56 added: #applyAction:
Claus Gittinger <cg@exept.de>
parents: 11710
diff changeset
   503
11035
Claus Gittinger <cg@exept.de>
parents: 10957
diff changeset
   504
list
Claus Gittinger <cg@exept.de>
parents: 10957
diff changeset
   505
    ^ listHolder value
Claus Gittinger <cg@exept.de>
parents: 10957
diff changeset
   506
Claus Gittinger <cg@exept.de>
parents: 10957
diff changeset
   507
    "Created: / 05-12-2009 / 14:48:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
Claus Gittinger <cg@exept.de>
parents: 10957
diff changeset
   508
    "Created: / 27-12-2011 / 14:18:25 / cg"
Claus Gittinger <cg@exept.de>
parents: 10957
diff changeset
   509
!
Claus Gittinger <cg@exept.de>
parents: 10957
diff changeset
   510
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   511
scrollToBottom:aBoolean
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   512
    "If set to true, list will automaticallu scroll to bottom
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   513
     ehen the list is updated and clears this flag.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   514
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   515
     This is required as the list is updated asynchronously"
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   516
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   517
    scrollToBottom := aBoolean.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   518
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   519
    "Modified (comment): / 30-03-2012 / 17:05:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   520
!
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   521
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   522
selection
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   523
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   524
    ^(self selectionHolder value ? #()) reject:[:e|e isNil].
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   525
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   526
    "Created: / 05-12-2009 / 14:48:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   527
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   528
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   529
selection: selection
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   530
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   531
    self selectionHolder value: selection
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   532
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   533
    "Created: / 30-03-2012 / 12:29:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   534
!
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   535
11035
Claus Gittinger <cg@exept.de>
parents: 10957
diff changeset
   536
selectionIndices
Claus Gittinger <cg@exept.de>
parents: 10957
diff changeset
   537
    |sel|
Claus Gittinger <cg@exept.de>
parents: 10957
diff changeset
   538
Claus Gittinger <cg@exept.de>
parents: 10957
diff changeset
   539
    (sel := self selectionHolder value) isEmptyOrNil ifTrue:[^ #()].
Claus Gittinger <cg@exept.de>
parents: 10957
diff changeset
   540
    ^ sel collect:[:each | self list identityIndexOf:each].
Claus Gittinger <cg@exept.de>
parents: 10957
diff changeset
   541
Claus Gittinger <cg@exept.de>
parents: 10957
diff changeset
   542
    "Created: / 05-12-2009 / 14:48:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
Claus Gittinger <cg@exept.de>
parents: 10957
diff changeset
   543
    "Created: / 27-12-2011 / 10:56:20 / cg"
Claus Gittinger <cg@exept.de>
parents: 10957
diff changeset
   544
!
Claus Gittinger <cg@exept.de>
parents: 10957
diff changeset
   545
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   546
showRemoved
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   547
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   548
    ^self showRemovedHolder value ? true
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   549
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   550
    "Created: / 05-12-2009 / 14:28:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   551
! !
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   552
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   553
!ChangeList methodsFor:'actions'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   554
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   555
selectionDoubleclicked
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   556
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   557
    self listMenuBrowse
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   558
"/    | app |
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   559
"/
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   560
"/    self selection do:
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   561
"/        [:e|e removed: e removed not].
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   562
"/    ((app := self masterApplication) respondsTo: #redrawChangeListViews)
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   563
"/        ifTrue:[app redrawChangeListViews].
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   564
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   565
    "Modified: / 24-01-2012 / 22:01:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   566
! !
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   567
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   568
!ChangeList methodsFor:'aspects'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   569
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   570
allowAcceptHolder
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   571
    "return/create the valueHolder 'acceptEnabledHolder'"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   572
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   573
    allowAcceptHolder isNil ifTrue:[
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   574
        allowAcceptHolder := ValueHolder with:nil "defaultValue here".
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   575
    ].
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   576
    ^ allowAcceptHolder
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   577
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   578
    "Created: / 24-01-2012 / 19:53:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   579
!
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   580
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   581
allowAcceptHolder:something
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   582
    "set the 'allowAcceptHolder' value holder (automatically generated)"
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   583
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   584
    allowAcceptHolder := something.
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   585
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   586
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   587
allowRemoveHolder
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   588
    "return/create the 'allowRemoveHolder' value holder (automatically generated)"
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   589
    
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   590
    allowRemoveHolder isNil ifTrue:[
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   591
        allowRemoveHolder := ValueHolder with:true.
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   592
        allowRemoveHolder addDependent:self.
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   593
    ].
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   594
    ^ allowRemoveHolder
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   595
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   596
    "Modified (comment): / 24-01-2012 / 19:44:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   597
!
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   598
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   599
allowRemoveHolder:something 
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   600
    "set the 'showRemovedHolder' value holder (automatically generated)"
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   601
    
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   602
    |oldValue newValue|
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   603
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   604
    allowRemoveHolder notNil ifTrue:[
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   605
        oldValue := allowRemoveHolder value.
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   606
        allowRemoveHolder removeDependent:self.
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   607
    ].
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   608
    allowRemoveHolder := something.
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   609
    allowRemoveHolder notNil ifTrue:[
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   610
        allowRemoveHolder addDependent:self.
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   611
    ].
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   612
    newValue := allowRemoveHolder value.
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   613
    oldValue ~~ newValue ifTrue:[
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   614
        self 
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   615
            update:#value
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   616
            with:newValue
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   617
            from:allowRemoveHolder.
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   618
    ].
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   619
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   620
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   621
listColumns
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   622
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   623
    |holder|
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   624
    (holder := builder bindingAt:#listColumns) isNil ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   625
	builder aspectAt:#listColumns put:(holder := List new).
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   626
	self listColumnShow: #delta.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   627
	self listColumnShow: #change.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   628
    ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   629
    ^ holder
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   630
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   631
    "Created: / 26-07-2012 / 18:03:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   632
!
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   633
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   634
listHolder
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   635
    listHolder isNil ifTrue:[
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   636
        listHolder := ValueHolder new.
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   637
    ].
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   638
    ^ listHolder
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   639
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   640
12657
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   641
showConflictsOnlyHolder
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   642
    "return/create the 'showConflictsOnlyHolder' value holder (automatically generated)"
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   643
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   644
    showConflictsOnlyHolder isNil ifTrue:[
14719
7d5cc009a201 class: Tools::ChangeList
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14199
diff changeset
   645
        showConflictsOnlyHolder := ValueHolder with: false.
12657
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   646
        showConflictsOnlyHolder addDependent: self.
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   647
    ].
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   648
    ^ showConflictsOnlyHolder
14719
7d5cc009a201 class: Tools::ChangeList
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14199
diff changeset
   649
7d5cc009a201 class: Tools::ChangeList
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14199
diff changeset
   650
    "Modified: / 05-09-2014 / 00:54:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12657
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   651
!
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   652
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   653
showConflictsOnlyHolder:something
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   654
    "set the 'showConflictsOnlyHolder' value holder (automatically generated)"
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   655
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   656
    |oldValue newValue|
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   657
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   658
    showConflictsOnlyHolder notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   659
        oldValue := showConflictsOnlyHolder value.
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   660
        showConflictsOnlyHolder removeDependent:self.
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   661
    ].
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   662
    showConflictsOnlyHolder := something.
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   663
    showConflictsOnlyHolder notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   664
        showConflictsOnlyHolder addDependent:self.
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   665
    ].
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   666
    newValue := showConflictsOnlyHolder value.
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   667
    oldValue ~~ newValue ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   668
        self update:#value with:newValue from:showConflictsOnlyHolder.
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   669
    ].
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   670
!
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   671
13970
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   672
showDefinitionsOnlyHolder
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   673
    "return/create the 'showDefinitionsOnlyHolder' value holder (automatically generated)"
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   674
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   675
    showDefinitionsOnlyHolder isNil ifTrue:[
14719
7d5cc009a201 class: Tools::ChangeList
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14199
diff changeset
   676
        showDefinitionsOnlyHolder := ValueHolder with: false.
13970
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   677
        showDefinitionsOnlyHolder addDependent: self.
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   678
    ].
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   679
    ^ showDefinitionsOnlyHolder
14719
7d5cc009a201 class: Tools::ChangeList
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14199
diff changeset
   680
7d5cc009a201 class: Tools::ChangeList
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14199
diff changeset
   681
    "Modified: / 05-09-2014 / 00:52:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13970
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   682
!
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   683
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   684
showDefinitionsOnlyHolder:something
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   685
    "set the 'showDefinitionsOnlyHolder' value holder (automatically generated)"
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   686
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   687
    |oldValue newValue|
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   688
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   689
    showDefinitionsOnlyHolder notNil ifTrue:[
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   690
        oldValue := showDefinitionsOnlyHolder value.
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   691
        showDefinitionsOnlyHolder removeDependent:self.
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   692
    ].
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   693
    showDefinitionsOnlyHolder := something.
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   694
    showDefinitionsOnlyHolder notNil ifTrue:[
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   695
        showDefinitionsOnlyHolder addDependent:self.
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   696
    ].
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   697
    newValue := showDefinitionsOnlyHolder value.
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   698
    oldValue ~~ newValue ifTrue:[
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   699
        self update:#value with:newValue from:showDefinitionsOnlyHolder.
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   700
    ].
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   701
!
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   702
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   703
showRemovedHolder
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   704
    "return/create the 'showRemovedHolder' value holder (automatically generated)"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   705
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   706
    showRemovedHolder isNil ifTrue:[
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   707
        showRemovedHolder := ValueHolder with: true.
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   708
        showRemovedHolder addDependent: self.
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   709
    ].
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   710
    ^ showRemovedHolder
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   711
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   712
10449
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   713
showRemovedHolder:something
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   714
    "set the 'showRemovedHolder' value holder (automatically generated)"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   715
10449
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   716
    |oldValue newValue|
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   717
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   718
    showRemovedHolder notNil ifTrue:[
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   719
        oldValue := showRemovedHolder value.
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   720
        showRemovedHolder removeDependent:self.
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   721
    ].
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   722
    showRemovedHolder := something.
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   723
    showRemovedHolder notNil ifTrue:[
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   724
        showRemovedHolder addDependent:self.
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   725
    ].
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   726
    newValue := showRemovedHolder value.
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   727
    oldValue ~~ newValue ifTrue:[
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   728
        self update:#value with:newValue from:showRemovedHolder.
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   729
    ].
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   730
!
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   731
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   732
showSameHolder
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   733
    "return/create the 'showSameHolder' value holder (automatically generated)"
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   734
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   735
    showSameHolder isNil ifTrue:[
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   736
        showSameHolder := ValueHolder with: true.
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   737
        showSameHolder addDependent:self.
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   738
    ].
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   739
    ^ showSameHolder
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   740
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   741
    "Modified: / 04-08-2011 / 18:39:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   742
!
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   743
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   744
showSameHolder:something
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   745
    "set the 'showSameHolder' value holder (automatically generated)"
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   746
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   747
    |oldValue newValue|
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   748
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   749
    showSameHolder notNil ifTrue:[
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   750
        oldValue := showSameHolder value.
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   751
        showSameHolder removeDependent:self.
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   752
    ].
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   753
    showSameHolder := something.
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   754
    showSameHolder notNil ifTrue:[
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   755
        showSameHolder addDependent:self.
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   756
    ].
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   757
    newValue := showSameHolder value.
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   758
    oldValue ~~ newValue ifTrue:[
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   759
        self update:#value with:newValue from:showSameHolder.
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   760
    ].
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   761
!
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   762
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   763
showTimestampHolder
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   764
    "return/create the 'showTimestampHolder' value holder (automatically generated)"
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   765
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   766
    showTimestampHolder isNil ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   767
	showTimestampHolder := ValueHolder new.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   768
	showTimestampHolder addDependent:self.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   769
    ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   770
    ^ showTimestampHolder
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   771
!
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   772
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   773
showTimestampHolder:something
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   774
    "set the 'showTimestampHolder' value holder (automatically generated)"
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   775
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   776
    |oldValue newValue|
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   777
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   778
    showTimestampHolder notNil ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   779
	oldValue := showTimestampHolder value.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   780
	showTimestampHolder removeDependent:self.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   781
    ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   782
    showTimestampHolder := something.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   783
    showTimestampHolder notNil ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   784
	showTimestampHolder addDependent:self.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   785
    ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   786
    newValue := showTimestampHolder value.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   787
    oldValue ~~ newValue ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   788
	self update:#value with:newValue from:showTimestampHolder.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   789
    ].
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   790
! !
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   791
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   792
!ChangeList methodsFor:'change & update'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   793
12657
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   794
selectionChanged
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   795
   super selectionChanged
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   796
!
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   797
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   798
update: aspect with: param from: sender
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   799
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   800
    sender == allowRemoveHolder ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   801
        self listColumn: #removed visible: allowRemoveHolder value.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   802
        ^self.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   803
    ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   804
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   805
    sender == showTimestampHolder ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   806
        self listColumn: #timeStamp visible: showTimestampHolder value.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   807
        ^self.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   808
    ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   809
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   810
10449
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   811
    sender == selectionHolder ifTrue:[
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   812
        self selectionChanged.
12657
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   813
        ^ self
10449
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   814
    ].
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   815
    sender == showSameHolder ifTrue:[
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   816
        self updateList.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   817
        ^self.
10449
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   818
    ].
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   819
    sender == showRemovedHolder ifTrue:[
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   820
        self updateList
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   821
    ].
12657
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   822
    sender == showConflictsOnlyHolder ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   823
        self updateList
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   824
    ].
13970
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   825
    sender == showDefinitionsOnlyHolder ifTrue:[
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   826
        self updateList
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
   827
    ].
10449
bdc2ecfadf41 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10334
diff changeset
   828
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   829
    ^super update: aspect with: param from: sender
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   830
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   831
    "Created: / 24-10-2009 / 19:47:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11036
Claus Gittinger <cg@exept.de>
parents: 11035
diff changeset
   832
    "Modified (format): / 27-12-2011 / 14:20:30 / cg"
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   833
    "Modified: / 26-07-2012 / 18:44:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   834
! !
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   836
!ChangeList methodsFor:'drag & drop'!
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   837
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   838
canDrop: aDropContext
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   839
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   840
    ^(self inGeneratorHolder value isKindOf: Iterator) not
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   841
	and:[aDropContext dropObjects allSatisfy:[:obj|(obj theObject isKindOf: Change)]].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   842
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   843
    "Created: / 01-08-2012 / 17:53:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   844
!
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   845
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   846
dragObjects: aDropSource
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   847
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   848
    ^self selection collect:[:item|(DropObject new: item change) displayObject: (item labelAndIcon)]
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   849
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   850
    "Created: / 01-08-2012 / 17:50:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   851
!
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   852
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   853
dropObjects:aDropContext
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   854
    "drop manager wants to drop.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   855
     This is ony sent, if #canDrop: returned true.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   856
     Must be redefined in order for drop to work."
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   857
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   858
    | changes |
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   859
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   860
    changes := self inGeneratorHolder value.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   861
    aDropContext dropObjects do:[:obj|changes add: obj theObject].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   862
    self inGeneratorHolder changed: #value
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   863
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   864
    "Modified: / 01-08-2012 / 18:15:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   865
! !
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   866
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   867
!ChangeList methodsFor:'event processing'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   868
11245
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   869
handlesKeyPress:key inView:aView
12108
efa871deeab7 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 11795
diff changeset
   870
    <resource: #keyboard (#Accept #Ctrls)>
efa871deeab7 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 11795
diff changeset
   871
14197
0ffe853febbc Fixed deleting/undeleting items by clicking to check box.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14032
diff changeset
   872
    (super handlesKeyPress:key inView:aView)
0ffe853febbc Fixed deleting/undeleting items by clicking to check box.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14032
diff changeset
   873
        or:[(key == #Accept or:[ key == #Ctrls]) 
0ffe853febbc Fixed deleting/undeleting items by clicking to check box.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14032
diff changeset
   874
                and:[ listView scrolledView == aView ]]
11245
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   875
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   876
    "Created: / 08-02-2012 / 14:43:11 / cg"
14197
0ffe853febbc Fixed deleting/undeleting items by clicking to check box.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14032
diff changeset
   877
    "Modified: / 10-04-2014 / 11:31:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11245
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   878
!
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   879
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   880
keyPress:key x:x y:y view:aView
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   881
    (key == #Accept or:[ key == #Ctrls]) ifTrue:[
14197
0ffe853febbc Fixed deleting/undeleting items by clicking to check box.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14032
diff changeset
   882
        self listMenuApply.
0ffe853febbc Fixed deleting/undeleting items by clicking to check box.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14032
diff changeset
   883
        ^ self
0ffe853febbc Fixed deleting/undeleting items by clicking to check box.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14032
diff changeset
   884
    ]. 
0ffe853febbc Fixed deleting/undeleting items by clicking to check box.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14032
diff changeset
   885
0ffe853febbc Fixed deleting/undeleting items by clicking to check box.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14032
diff changeset
   886
    super keyPress:key x:x y:y view:aView
11245
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   887
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   888
    "Created: / 08-02-2012 / 14:42:18 / cg"
14197
0ffe853febbc Fixed deleting/undeleting items by clicking to check box.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14032
diff changeset
   889
    "Modified: / 10-04-2014 / 11:31:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   890
! !
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   891
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   892
!ChangeList methodsFor:'generators'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   893
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   894
makeGenerator
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   895
    "Superclass Tools::BrowserList says that I am responsible to implement this method"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   896
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   897
    ^Iterator on:
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   898
        [:whatToDo|
12657
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
   899
13937
92692b01ed8e class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 13929
diff changeset
   900
        (selectionHolder value ? #()) do:
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   901
            [:changeListItem| | change |
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   902
            change := changeListItem change.
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   903
            change isCompositeChange ifTrue:
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   904
                [change changes do: whatToDo]]].
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   905
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   906
    "Modified: / 24-07-2009 / 23:00:41 / Jan Vrany <vranyj1@fel.cvut.cz>"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   907
    "Modified: / 24-10-2009 / 20:00:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   908
! !
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   909
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   910
!ChangeList methodsFor:'hooks'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   911
10925
7cb47ef997fb inherits from BrowserListWithFilter
vrany
parents: 10881
diff changeset
   912
postBuildListView: aView
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   913
10925
7cb47ef997fb inherits from BrowserListWithFilter
vrany
parents: 10881
diff changeset
   914
    super postBuildListView: aView.
14197
0ffe853febbc Fixed deleting/undeleting items by clicking to check box.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14032
diff changeset
   915
    aView scrolledView delegate: self.
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   916
10925
7cb47ef997fb inherits from BrowserListWithFilter
vrany
parents: 10881
diff changeset
   917
    "Created: / 29-11-2011 / 14:56:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14197
0ffe853febbc Fixed deleting/undeleting items by clicking to check box.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14032
diff changeset
   918
    "Modified: / 10-04-2014 / 11:29:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   919
! !
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   920
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   921
!ChangeList methodsFor:'initialization'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   922
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   923
initialize
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   924
11794
3d2efe798a56 added: #applyAction:
Claus Gittinger <cg@exept.de>
parents: 11710
diff changeset
   925
    super initialize.
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   926
    menuHolder := [self menuFor: #listMenu].
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   927
    scrollToBottom := false.
11794
3d2efe798a56 added: #applyAction:
Claus Gittinger <cg@exept.de>
parents: 11710
diff changeset
   928
    applyAction isNil ifTrue:[
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
   929
	applyAction := [:change | change apply ].
11794
3d2efe798a56 added: #applyAction:
Claus Gittinger <cg@exept.de>
parents: 11710
diff changeset
   930
    ].
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   931
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   932
    "Created: / 29-10-2010 / 12:50:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   933
! !
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   934
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   935
!ChangeList methodsFor:'menu actions'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   936
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   937
listMenuApply
12666
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
   938
    |sel list idx selectionHolder|
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   939
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   940
    self acceptEnabled ifFalse:[^self].
12666
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
   941
    selectionHolder := self selectionHolder.
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   942
12666
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
   943
    (sel := selectionHolder value) do:[:e| applyAction value:e change].
11245
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   944
    sel size == 1 ifTrue:[
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   945
        list := self listHolder value. 
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   946
        idx := list indexOf:(sel first). 
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   947
        idx < list size ifTrue:[
12666
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
   948
            selectionHolder value:(Array with:(list at:idx+1))
11245
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   949
        ] ifFalse:[
12666
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
   950
            selectionHolder value:#()
11245
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   951
        ].
bd76570b2cc4 accept (Ctrl-s) (implement it - not only claim it in the menu!);
Claus Gittinger <cg@exept.de>
parents: 11194
diff changeset
   952
    ].
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   953
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   954
    "Modified: / 24-10-2009 / 22:02:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11794
3d2efe798a56 added: #applyAction:
Claus Gittinger <cg@exept.de>
parents: 11710
diff changeset
   955
    "Modified: / 10-09-2012 / 13:57:46 / cg"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   956
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   957
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   958
listMenuApplyAll
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   959
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   960
    self acceptEnabled ifFalse:[^self].
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   961
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   962
    self selection value do:
11794
3d2efe798a56 added: #applyAction:
Claus Gittinger <cg@exept.de>
parents: 11710
diff changeset
   963
        [:e|e removed ifFalse:[applyAction value:e change]].
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   964
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   965
    "Created: / 05-12-2009 / 14:53:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11794
3d2efe798a56 added: #applyAction:
Claus Gittinger <cg@exept.de>
parents: 11710
diff changeset
   966
    "Modified: / 10-09-2012 / 13:57:58 / cg"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   967
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   968
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   969
listMenuBrowse
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   970
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   971
    self listMenuBrowseChanges:
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   972
        ((self selectionHolder value ? #()) collect:[:e|e change])
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   973
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   974
    "Modified: / 24-01-2012 / 22:00:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   975
!
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   976
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   977
listMenuBrowseChanges: changes
12666
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
   978
    | classes methods methodsOnly browserClass|
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   979
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   980
    classes := Set new.
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   981
    methods := Set new.
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   982
    methodsOnly := true.
12666
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
   983
    changes do: [:each |
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
   984
        each isClassChange ifTrue:[
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
   985
            each changeClass ifNotNil:[
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
   986
                classes add: each  changeClass.
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   987
                each isMethodCodeChange 
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   988
                    ifTrue:
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   989
                        [each changeMethod ifNotNil:
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
   990
                            [methods add:each changeMethod]]
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   991
                    ifFalse:
12666
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
   992
                        [methodsOnly := false]
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
   993
            ]
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
   994
        ]
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
   995
    ].
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
   996
13498
b8d845e42988 Added `environment` instance variable to Tools__NewSystemBrowser and
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12666
diff changeset
   997
    browserClass := environment browserClass.
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   998
    methodsOnly 
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   999
        ifTrue:
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1000
            [methods size = 1 
12666
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1001
                ifTrue:[ browserClass openInMethod: methods anyOne]
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1002
                ifFalse:[ browserClass browseMethods: methods asArray title: 'Selected methods from changeset' sort: true]]
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1003
        ifFalse:
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1004
            [classes size = 1
12666
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1005
                ifTrue:[ browserClass browseClass: classes anyOne]
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1006
                ifFalse:[ browserClass browseClasses: classes]]
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1007
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1008
    "Modified: / 24-10-2009 / 22:02:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11194
b7882ec27c05 refactoring in ChangeSetBrowser2
vrany
parents: 11039
diff changeset
  1009
    "Created: / 24-01-2012 / 22:00:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1010
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1011
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1012
listMenuDeleteSelection
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1013
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1014
    self selectionHolder value do:
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1015
        [:each|each removed: true].
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1016
    self updateList
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1017
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1018
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1019
listMenuInspect
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1020
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1021
    | selection |
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1022
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1023
    selection := self selectionHolder value collect:[:e|e change].
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1024
    selection size = 1
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1025
        ifTrue:[selection anyOne inspect]
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1026
        ifFalse:[selection inspect].
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1027
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1028
    "Modified: / 24-10-2009 / 22:02:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1029
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1030
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1031
listMenuSelectAdditions
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1032
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1033
    self listMenuSelectAllSuchThat:[:change|change delta = #+]
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1034
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1035
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1036
listMenuSelectAll
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1037
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1038
    self listMenuSelectAllSuchThat:[:change|true]
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1039
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1040
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1041
listMenuSelectAllSuchThat:conditionBlock 
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1042
    |newSelection|
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1043
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1044
    newSelection := self listHolder value 
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1045
                select:[:entry | conditionBlock value:entry change ].
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1046
    self selectionHolder value:newSelection
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1047
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1048
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1049
listMenuSelectNone
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1050
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1051
    self listMenuSelectAllSuchThat:[:change|false]
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1052
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1053
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1054
listMenuSelectRemovals
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1055
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1056
    self listMenuSelectAllSuchThat:[:change|change delta = #-]
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1057
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1058
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1059
listMenuSelectSame
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1060
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1061
    self listMenuSelectAllSuchThat:[:change|change delta = #=]
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1062
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1063
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1064
listMenuSelectUsingBlock
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1065
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1066
    |conditionBlockString conditionBlock dialog textHolder template|
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1067
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1068
    template :=
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1069
'[:change|
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1070
     "/ Define condition for selection below:
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1071
     "/ change is an instance of Change
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1072
     "/ change will be selected if and only if block returns true
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1073
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1074
    
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1075
     true"/always select the change
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1076
]
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1077
'.
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1078
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1079
    LastSelectionConditionString isNil ifTrue:[
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1080
        LastSelectionConditionString := template.
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1081
    ].
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1082
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1083
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1084
    textHolder := ValueHolder new.
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1085
    dialog := Dialog
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1086
                 forRequestText:(resources string:'Enter condition for selection')
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1087
                 lines:20
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1088
                 columns:70
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1089
                 initialAnswer:LastSelectionConditionString
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1090
                 model:textHolder.
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1091
    dialog addButton:(Button label:'Template' action:[textHolder value:template. textHolder changed:#value.]).
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1092
    dialog open.
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1093
    dialog accepted ifFalse:[^ self].
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1094
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1095
    conditionBlockString := textHolder value.
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1096
    LastSelectionConditionString := conditionBlockString.
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1097
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1098
    conditionBlock := Parser evaluate:conditionBlockString.
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1099
    conditionBlock isBlock ifFalse:[
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1100
        self error:'Bad selection block (syntax error?)'.
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1101
        ^ self
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1102
    ].
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1103
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1104
    self listMenuSelectAllSuchThat: conditionBlock
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1105
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1106
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1107
listMenuUndeleteSelection
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1108
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1109
    self selectionHolder value do:
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1110
        [:each|each removed: false].
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1111
    self updateList
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1112
! !
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1113
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1114
!ChangeList methodsFor:'private'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1115
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1116
application
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1117
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1118
    ^self
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1119
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1120
    "Created: / 05-12-2009 / 14:10:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1121
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1122
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1123
browserNameList
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1124
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1125
    ^'Change list'
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1126
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1127
    "Modified: / 24-07-2009 / 22:06:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1128
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1129
12666
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1130
iconSelectorForChange:change
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1131
    | delta sym selectorOrNil |
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1132
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1133
    masterApplication notNil ifTrue:[
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1134
        selectorOrNil := masterApplication iconSelectorForChange:change.
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1135
        selectorOrNil notNil ifTrue:[ ^ selectorOrNil ].
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1136
    ].
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1137
    delta := change deltaDetail.
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1138
    sym := delta shortDeltaSymbol.
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1139
    sym = #+ ifTrue:[^#iconPlus].
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1140
    sym = #- ifTrue:[^#iconMinus].
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1141
    sym = #= ifTrue:[^#iconEqual].
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1142
    "/ different.
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1143
    ^ nil.
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1144
!
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1145
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1146
listColumn: columnId visible: visible
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1147
    visible ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1148
        self listColumnShow: columnId
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1149
    ] ifFalse:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1150
        self listColumnHide: columnId
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1151
    ]
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1152
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1153
    "Created: / 26-07-2012 / 18:20:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1154
!
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1155
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1156
listColumnHide: columnId
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1157
    self listColumns do:[:spec|
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1158
	spec id = columnId ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1159
	    self listColumns remove: spec.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1160
	    listView notNil ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1161
		listView invalidate.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1162
	    ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1163
	    ^self
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1164
	].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1165
    ]
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1166
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1167
    "Created: / 26-07-2012 / 18:19:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1168
!
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1169
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1170
listColumnShow: columnId
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1171
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1172
    | columns |
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1173
    columns := self listColumns.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1174
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1175
    columns do:[:spec|
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1176
	spec id = columnId ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1177
	    ^self.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1178
	]
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1179
    ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1180
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1181
    self class listColumnSpec do:[:specArray|
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1182
	| spec |
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1183
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1184
	spec := specArray decodeAsLiteralArray.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1185
	spec id = columnId ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1186
	    columnId == #removed ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1187
		columns addFirst: spec.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1188
	    ] ifFalse:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1189
		columns add: spec.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1190
	    ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1191
	    listView notNil ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1192
		listView invalidate.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1193
	    ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1194
	    ^self.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1195
	]
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1196
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1197
    ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1198
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1199
    "Created: / 26-07-2012 / 17:56:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1200
!
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1201
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1202
listEntryFor:chg 
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1203
    ^ListEntry change:chg application: self
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1204
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1205
    "Modified: / 05-12-2009 / 14:39:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1206
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1207
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1208
makeDependent
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1209
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1210
    "Modified: / 24-07-2009 / 22:06:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1211
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1212
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1213
makeIndependent
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1214
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1215
    "Modified: / 24-07-2009 / 22:06:37 / Jan Vrany <vranyj1@fel.cvut.cz>"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1216
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1217
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1218
parentOrModel
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1219
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1220
    ^self
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1221
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1222
    "Created: / 05-12-2009 / 14:14:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1223
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1224
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1225
updateList
13970
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1226
    |inGenerator changeset firstLineShown oldSel newList newSel|
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1227
12657
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
  1228
    self withWaitCursorDo:[
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
  1229
        inGenerator := self inGeneratorHolder value.
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1230
        listView notNil ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1231
            ((listView isKindOf: ScrollableView) not or:[listView scrolledView notNil]) ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1232
                firstLineShown := listView firstLineShown
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1233
            ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1234
        ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1235
        oldSel := self selection.
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1236
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1237
        changeset := inGenerator isNil ifTrue:[ #() ] ifFalse:[ inGenerator ].
13970
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1238
        self showDefinitionsOnlyHolder value ifTrue:[
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1239
            newList := changeset select: [:chg | chg isOrContainsClassDefinitionChange ].
13927
78883c6c8297 Bug fixes:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13835
diff changeset
  1240
        ] ifFalse:[
13970
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1241
            self showConflictsOnlyHolder value ifTrue:[
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1242
                newList := changeset select: [:chg | chg isConflict ].
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1243
            ] ifFalse:[
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1244
                | showRemoved showSame |
13927
78883c6c8297 Bug fixes:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13835
diff changeset
  1245
13970
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1246
                showRemoved := self showRemovedHolder value.
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1247
                showSame := self showSameHolder value.
13927
78883c6c8297 Bug fixes:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13835
diff changeset
  1248
13970
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1249
                newList := changeset select: [:chg | 
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1250
                               (showRemoved or:[ chg removed not ])
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1251
                                   and:[showSame or:[chg delta ~~ #=]]
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1252
                           ].
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1253
            ].
13927
78883c6c8297 Bug fixes:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13835
diff changeset
  1254
        ].
78883c6c8297 Bug fixes:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13835
diff changeset
  1255
"/ OLD CODE
78883c6c8297 Bug fixes:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13835
diff changeset
  1256
"/        newList := changeset
78883c6c8297 Bug fixes:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13835
diff changeset
  1257
"/                    select:
78883c6c8297 Bug fixes:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13835
diff changeset
  1258
"/                        [:chg |
78883c6c8297 Bug fixes:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13835
diff changeset
  1259
"/                        (self showRemovedHolder value or:[ chg removed not ])
78883c6c8297 Bug fixes:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13835
diff changeset
  1260
"/                            and:[self showSameHolder value or:[chg delta ~~ #=]]
78883c6c8297 Bug fixes:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13835
diff changeset
  1261
"/                        ].
12657
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
  1262
        newList := self filterList: newList.
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
  1263
        newList := newList collect:[:chg | self listEntryFor:chg ].
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
  1264
        self listHolder value ~= newList ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
  1265
            self listHolder value: newList.
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1266
            ((newList size ~~ 0) and:[scrollToBottom]) ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1267
                self selection: { newList last }
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1268
            ] ifFalse:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1269
                oldSel notEmptyOrNil ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1270
                    newSel := OrderedCollection new: oldSel size.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1271
                    oldSel := oldSel reject:[:e|e isNil].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1272
                    oldSel := oldSel collect:[:e|e change].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1273
                    newList do:[:e|(oldSel includes:e change) ifTrue:[newSel add:e]].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1274
                    self selection: newSel.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1275
                ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1276
                (listView notNil and:[firstLineShown notNil]) ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1277
                    listView scrollToLine: (newList size min: firstLineShown).
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1278
                ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1279
            ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1280
            scrollToBottom := false.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1281
12657
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
  1282
        ]
11039
0795b98cd5f8 changed: #updateList
Claus Gittinger <cg@exept.de>
parents: 11036
diff changeset
  1283
    ]
13927
78883c6c8297 Bug fixes:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13835
diff changeset
  1284
11039
0795b98cd5f8 changed: #updateList
Claus Gittinger <cg@exept.de>
parents: 11036
diff changeset
  1285
    "Modified: / 28-12-2011 / 15:46:15 / cg"
13927
78883c6c8297 Bug fixes:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13835
diff changeset
  1286
    "Modified: / 12-02-2014 / 17:15:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1287
! !
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1288
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1289
!ChangeList methodsFor:'queries'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1290
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1291
hasChangeSelected
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1292
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1293
    ^self selectionHolder value size > 0
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1294
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1295
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1296
hasChangeSelectedAndNotRemoved
13513
97b651d76972 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 13498
diff changeset
  1297
    | selection |
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1298
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1299
    selection := self selectionHolder value ? #().
13513
97b651d76972 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 13498
diff changeset
  1300
    ^selection size > 0 and: [selection conform:[:e|e removed not]].
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1301
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1302
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1303
hasSingleChangeSelected
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1304
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1305
    ^self selectionHolder value size = 1
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1306
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1307
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1308
hasSingleChangeSelectedAndCanBrowse
12666
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1309
    self selectionHolder value ? #() do: [:each |
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1310
        |chg|
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1311
12666
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1312
        chg := each change.
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1313
        chg isClassChange ifTrue:[
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1314
            (chg isMethodChange not or:[chg isMethodCodeChange]) ifFalse:[^ false]
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1315
        ].
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1316
    ].
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1317
    ^ true
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1318
!
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1319
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1320
showColumn: columnSymbol
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1321
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1322
    ^self showColumnSpecHolder value includes: columnSymbol.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1323
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1324
    "Created: / 03-04-2012 / 11:28:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1325
! !
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1326
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1327
!ChangeList::ListEntry class methodsFor:'instance creation'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1328
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1329
change: aChange
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1330
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1331
    ^self new change: aChange
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1332
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1333
    "Created: / 24-07-2009 / 22:43:41 / Jan Vrany <vranyj1@fel.cvut.cz>"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1334
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1335
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1336
change: aChange application: anApplicationModel
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1337
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1338
    ^self new change: aChange; application: anApplicationModel
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1339
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1340
    "Created: / 05-12-2009 / 14:16:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1341
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1342
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1343
change: aChange parent: aChangeList
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1344
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1345
    ^self new change: aChange; parent: aChangeList
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1346
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1347
    "Created: / 25-07-2009 / 23:33:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1348
! !
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1349
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1350
!ChangeList::ListEntry methodsFor:'accessing'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1351
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1352
application
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1353
    ^ application ifNil:[super application]
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1354
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1355
    "Modified: / 05-12-2009 / 14:16:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1356
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1357
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1358
application:anApplicationModel
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1359
    application := anApplicationModel.
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1360
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1361
    "Modified: / 05-12-2009 / 14:15:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1362
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1363
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1364
change
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1365
    ^ change
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1366
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1367
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1368
change:aChange
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1369
    self assert: ((aChange isKindOf: Change) or:[aChange isKindOf: RefactoryChange]).
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1370
    change := aChange.
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1371
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1372
    "Modified: / 25-07-2009 / 23:40:38 / Jan Vrany <vranyj1@fel.cvut.cz>"
10957
53571e562d5e bugfixes
vrany
parents: 10925
diff changeset
  1373
    "Modified (format): / 04-12-2011 / 14:58:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1374
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1375
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1376
changeClass
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1377
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1378
    ^change changeClass
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1379
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1380
10334
3ac95963b1a5 Improvements in diffing tools
vrany
parents: 10064
diff changeset
  1381
changeSource
11662
ec99e522b4c9 code cleanup
Claus Gittinger <cg@exept.de>
parents: 11657
diff changeset
  1382
    "the changes source"
10334
3ac95963b1a5 Improvements in diffing tools
vrany
parents: 10064
diff changeset
  1383
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1384
    "/ Hack to make sure code is displayed in similar way
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1385
    "/ (i.e., with no namespace pragma)
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1386
    ^ (change isClassDefinitionChange and:[change isPrivateClassDefinitionChange]) ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1387
        change definitionStringInNamespace: nil.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1388
    ] ifFalse:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1389
        change changeSource.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1390
    ].
10334
3ac95963b1a5 Improvements in diffing tools
vrany
parents: 10064
diff changeset
  1391
3ac95963b1a5 Improvements in diffing tools
vrany
parents: 10064
diff changeset
  1392
    "Created: / 19-07-2011 / 12:03:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11662
ec99e522b4c9 code cleanup
Claus Gittinger <cg@exept.de>
parents: 11657
diff changeset
  1393
    "Modified (comment): / 25-07-2012 / 17:39:39 / cg"
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1394
    "Modified: / 14-11-2013 / 14:55:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10334
3ac95963b1a5 Improvements in diffing tools
vrany
parents: 10064
diff changeset
  1395
!
3ac95963b1a5 Improvements in diffing tools
vrany
parents: 10064
diff changeset
  1396
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1397
children
13970
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1398
    |app addIf showRemoved showSame|
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1399
10881
07359595b386 changed: #buttonPress:x:y:view:
Claus Gittinger <cg@exept.de>
parents: 10657
diff changeset
  1400
    children isNil ifTrue:[
10957
53571e562d5e bugfixes
vrany
parents: 10925
diff changeset
  1401
        change isCompositeChange ifTrue:[
13970
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1402
            app := self application.
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1403
10957
53571e562d5e bugfixes
vrany
parents: 10925
diff changeset
  1404
            children := OrderedCollection new: change changes size.
13970
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1405
            app showDefinitionsOnlyHolder value ifTrue:[
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1406
                addIf := [:chg | chg isOrContainsClassDefinitionChange].
12657
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
  1407
            ] ifFalse:[
13970
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1408
                app showConflictsOnlyHolder value ifTrue:[
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1409
                    addIf := [:chg | chg isConflict].
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1410
                ] ifFalse:[
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1411
                    showRemoved := app showRemovedHolder value.
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1412
                    showSame := app showSameHolder value.
12657
Claus Gittinger <cg@exept.de>
parents: 12640
diff changeset
  1413
13970
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1414
                    addIf := [:chg | 
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1415
                                ((showRemoved or:[ chg removed not ])
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1416
                                and:[showSame or:[chg delta ~~ #=]])
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1417
                             ].
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1418
                ]
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1419
            ].
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1420
            change changes do:[:chg|
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1421
                (addIf value:chg) ifTrue:[
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1422
                    children add: ((app listEntryFor: chg) parent: self)
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1423
                ]
d280c182f218 added a "show definitions only" filter (menu)
Claus Gittinger <cg@exept.de>
parents: 13937
diff changeset
  1424
            ].
10957
53571e562d5e bugfixes
vrany
parents: 10925
diff changeset
  1425
        ] ifFalse:[
53571e562d5e bugfixes
vrany
parents: 10925
diff changeset
  1426
            children :=  #()
53571e562d5e bugfixes
vrany
parents: 10925
diff changeset
  1427
        ]
10881
07359595b386 changed: #buttonPress:x:y:view:
Claus Gittinger <cg@exept.de>
parents: 10657
diff changeset
  1428
    ].
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1429
    ^children
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1430
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1431
    "Created: / 25-07-2009 / 23:32:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
10881
07359595b386 changed: #buttonPress:x:y:view:
Claus Gittinger <cg@exept.de>
parents: 10657
diff changeset
  1432
    "Modified (format): / 18-11-2011 / 14:56:25 / cg"
10957
53571e562d5e bugfixes
vrany
parents: 10925
diff changeset
  1433
    "Modified: / 04-12-2011 / 15:08:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1434
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1435
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1436
delta
10657
7df080baff44 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 10451
diff changeset
  1437
    "/ obsolete: please use deltaDetail
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1438
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1439
    ^change delta
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1440
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1441
    "Created: / 29-10-2010 / 14:32:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10657
7df080baff44 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 10451
diff changeset
  1442
    "Modified (comment): / 31-08-2011 / 10:30:02 / cg"
7df080baff44 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 10451
diff changeset
  1443
!
7df080baff44 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 10451
diff changeset
  1444
7df080baff44 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 10451
diff changeset
  1445
deltaDetail
7df080baff44 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 10451
diff changeset
  1446
7df080baff44 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 10451
diff changeset
  1447
    ^change deltaDetail
7df080baff44 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 10451
diff changeset
  1448
7df080baff44 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 10451
diff changeset
  1449
    "Created: / 29-10-2010 / 14:32:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7df080baff44 changed:6 methods
Claus Gittinger <cg@exept.de>
parents: 10451
diff changeset
  1450
    "Created: / 31-08-2011 / 10:29:21 / cg"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1451
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1452
10334
3ac95963b1a5 Improvements in diffing tools
vrany
parents: 10064
diff changeset
  1453
imageSource
11662
ec99e522b4c9 code cleanup
Claus Gittinger <cg@exept.de>
parents: 11657
diff changeset
  1454
    "return the source for the in-image version of the change"
10334
3ac95963b1a5 Improvements in diffing tools
vrany
parents: 10064
diff changeset
  1455
11662
ec99e522b4c9 code cleanup
Claus Gittinger <cg@exept.de>
parents: 11657
diff changeset
  1456
    ^ change imageSource
10334
3ac95963b1a5 Improvements in diffing tools
vrany
parents: 10064
diff changeset
  1457
3ac95963b1a5 Improvements in diffing tools
vrany
parents: 10064
diff changeset
  1458
    "Created: / 19-07-2011 / 12:03:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11662
ec99e522b4c9 code cleanup
Claus Gittinger <cg@exept.de>
parents: 11657
diff changeset
  1459
    "Modified (comment): / 25-07-2012 / 17:38:57 / cg"
10334
3ac95963b1a5 Improvements in diffing tools
vrany
parents: 10064
diff changeset
  1460
!
3ac95963b1a5 Improvements in diffing tools
vrany
parents: 10064
diff changeset
  1461
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1462
label
11710
f2c0566732e7 codeAspect fixes (almost)
Claus Gittinger <cg@exept.de>
parents: 11662
diff changeset
  1463
    | label |
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1464
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1465
    label := change displayString.
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1466
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1467
    "Hack: if the printString contains multiple lines, then
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1468
     if there are just 2 lines, then merge them, otherwise add
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1469
     ... to the first line"
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1470
    (label includes: Character cr) ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1471
        | firstCR secondCR |
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1472
        firstCR := label indexOf: Character cr.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1473
        firstCR ~~ label size ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1474
            secondCR := label indexOf: Character cr startingAt: firstCR + 1.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1475
        ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1476
        secondCR isNil ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1477
            "/2 lines only
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1478
            label := label copy at: firstCR put: Character space.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1479
        ] ifFalse:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1480
            label := (label copyTo: firstCR - 1) , '...'
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1481
        ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1482
    ].
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1483
    self removed ifTrue:[label := label asText colorizeAllWith: Color gray].
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1484
    ^label
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1485
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1486
    "Created: / 05-11-2008 / 08:20:02 / Jan Vrany <vranyj1@fel.cvut.cz>"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1487
    "Modified: / 25-07-2009 / 23:43:23 / Jan Vrany <vranyj1@fel.cvut.cz>"
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1488
    "Modified: / 05-12-2009 / 14:46:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11710
f2c0566732e7 codeAspect fixes (almost)
Claus Gittinger <cg@exept.de>
parents: 11662
diff changeset
  1489
    "Modified (format): / 27-07-2012 / 21:26:34 / cg"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1490
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1491
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1492
labelAndIcon
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1493
    ^(LabelAndIcon label: self label icon: self iconDelta)
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1494
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1495
    "Created: / 01-08-2012 / 18:14:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1496
!
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1497
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1498
notRemoved
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1499
    ^ self removed not
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1500
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1501
    "Created: / 26-07-2012 / 18:31:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1502
!
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1503
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1504
notRemoved: aBoolean
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1505
    ^ self removed: aBoolean not
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1506
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1507
    "Created: / 26-07-2012 / 18:31:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1508
!
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1509
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1510
removed
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1511
    ^ change removed == true
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1512
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1513
    "Modified: / 26-07-2012 / 18:30:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1514
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1515
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1516
removed:aBoolean
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1517
    change removed: aBoolean.
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1518
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1519
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1520
source
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1521
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1522
    ^change source
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1523
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1524
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1525
timeStamp
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1526
    ^change timeOfChangeIfKnown
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1527
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1528
    "Created: / 26-07-2012 / 18:38:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1529
!
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1530
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1531
x
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1532
    ^ x
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1533
! !
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1534
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1535
!ChangeList::ListEntry methodsFor:'displaying'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1536
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1537
displayLabel:aLabel h:lH on:aGC x:newX y:y h:h
13929
7447bbfa1126 class: Tools::ChangeList
Stefan Vogel <sv@exept.de>
parents: 13927
diff changeset
  1538
    | list cx icon |
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1539
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1540
    list := self application.
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1541
    cx := x := newX.
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1542
    (list allowRemoveHolder value and:[list showRemovedHolder value]) ifTrue: [
13929
7447bbfa1126 class: Tools::ChangeList
Stefan Vogel <sv@exept.de>
parents: 13927
diff changeset
  1543
        (icon := self iconRemoved) notNil ifTrue:[
7447bbfa1126 class: Tools::ChangeList
Stefan Vogel <sv@exept.de>
parents: 13927
diff changeset
  1544
            icon displayOn: aGC x: cx y: y + (h / 2) - (icon height / 2)
7447bbfa1126 class: Tools::ChangeList
Stefan Vogel <sv@exept.de>
parents: 13927
diff changeset
  1545
        ].
7447bbfa1126 class: Tools::ChangeList
Stefan Vogel <sv@exept.de>
parents: 13927
diff changeset
  1546
        cx := cx + 22."experimental value - this looks good"
11710
f2c0566732e7 codeAspect fixes (almost)
Claus Gittinger <cg@exept.de>
parents: 11662
diff changeset
  1547
    ].
f2c0566732e7 codeAspect fixes (almost)
Claus Gittinger <cg@exept.de>
parents: 11662
diff changeset
  1548
    (icon := self iconDelta) notNil ifTrue:[
13929
7447bbfa1126 class: Tools::ChangeList
Stefan Vogel <sv@exept.de>
parents: 13927
diff changeset
  1549
        icon displayOn: aGC x: cx y: y + (h / 2) - (icon height / 2)
11710
f2c0566732e7 codeAspect fixes (almost)
Claus Gittinger <cg@exept.de>
parents: 11662
diff changeset
  1550
    ].
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1551
    cx := cx + 16."12 + 2px gap"
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1552
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1553
    super displayLabel:aLabel h:lH on:aGC x:cx y:y h:h.
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1554
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1555
"/    "Now, display additional columns..."
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1556
"/    (list showColumn: #timestamp) ifTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1557
"/        cx := cx + (aLabel widthOn: aGC) + 5."px - padding"
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1558
"/        colS := change timeOfChangeIfKnown notNil
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1559
"/                    ifTrue:[change timeOfChangeIfKnown printString]
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1560
"/                    ifFalse:['???'].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1561
"/        [ (colW := colS widthOn: aGC) > (aGC width - cx - 5) ] whileTrue:[
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1562
"/            colS = '...' ifTrue:[ ^ self ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1563
"/            colS := '...' , (colS copyFrom: 6).
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1564
"/        ].
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1565
"/        super displayLabel:colS h:lH on:aGC x: (aGC width - 5 - colW) y:y h:h.
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1566
"/    ].
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1567
13835
7dfb57f5f5e7 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13513
diff changeset
  1568
    "Modified: / 27-07-2012 / 17:13:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12666
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1569
!
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1570
15150
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1571
displayLabel:aLabel h:lH on:aGC x:newX y:y h:h isHighlightedAsSelected:isHighlightedAsSelected
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1572
    | list cx icon |
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1573
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1574
    list := self application.
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1575
    cx := x := newX.
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1576
    (list allowRemoveHolder value and:[list showRemovedHolder value]) ifTrue: [
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1577
        (icon := self iconRemoved) notNil ifTrue:[
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1578
            icon displayOn: aGC x: cx y: y + (h / 2) - (icon height / 2)
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1579
        ].
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1580
        cx := cx + 22."experimental value - this looks good"
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1581
    ].
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1582
    (icon := self iconDelta) notNil ifTrue:[
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1583
        icon displayOn: aGC x: cx y: y + (h / 2) - (icon height / 2)
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1584
    ].
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1585
    cx := cx + 16."12 + 2px gap"
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1586
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1587
    super displayLabel:aLabel h:lH on:aGC x:cx y:y h:h isHighlightedAsSelected:isHighlightedAsSelected.
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1588
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1589
"/    "Now, display additional columns..."
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1590
"/    (list showColumn: #timestamp) ifTrue:[
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1591
"/        cx := cx + (aLabel widthOn: aGC) + 5."px - padding"
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1592
"/        colS := change timeOfChangeIfKnown notNil
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1593
"/                    ifTrue:[change timeOfChangeIfKnown printString]
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1594
"/                    ifFalse:['???'].
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1595
"/        [ (colW := colS widthOn: aGC) > (aGC width - cx - 5) ] whileTrue:[
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1596
"/            colS = '...' ifTrue:[ ^ self ].
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1597
"/            colS := '...' , (colS copyFrom: 6).
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1598
"/        ].
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1599
"/        super displayLabel:colS h:lH on:aGC x: (aGC width - 5 - colW) y:y h:h.
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1600
"/    ].
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1601
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1602
    "Modified: / 27-07-2012 / 17:13:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1603
!
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1604
12666
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1605
iconDelta
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1606
    | iconSelector |
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1607
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1608
    iconSelector := self iconSelector.
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1609
    iconSelector isNil ifTrue:[^nil].
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1610
    self removed ifTrue:[iconSelector := iconSelector , #Grayed].
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1611
    ^self application class perform: iconSelector asSymbol.
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1612
12666
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1613
    "Created: / 05-12-2009 / 14:11:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1614
    "Modified: / 18-11-2011 / 14:56:33 / cg"
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1615
!
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1616
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1617
iconRemoved
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1618
    |appClass|
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1619
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1620
    appClass := self application class.
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1621
    ^self removed 
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1622
        ifTrue: [appClass uncheckedIcon ]
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1623
        ifFalse:[appClass checkedIcon ]
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1624
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1625
    "Created: / 05-12-2009 / 14:11:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1626
!
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1627
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1628
iconSelector
12666
c90e266fc135 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 12657
diff changeset
  1629
    ^ application iconSelectorForChange:change
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1630
! !
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1631
10957
53571e562d5e bugfixes
vrany
parents: 10925
diff changeset
  1632
!ChangeList::ListEntry methodsFor:'protocol-queries'!
53571e562d5e bugfixes
vrany
parents: 10925
diff changeset
  1633
53571e562d5e bugfixes
vrany
parents: 10925
diff changeset
  1634
hasChildren
53571e562d5e bugfixes
vrany
parents: 10925
diff changeset
  1635
    ^ change isCompositeChange and:[change changes notEmptyOrNil ].
53571e562d5e bugfixes
vrany
parents: 10925
diff changeset
  1636
53571e562d5e bugfixes
vrany
parents: 10925
diff changeset
  1637
    "Created: / 04-12-2011 / 14:45:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11710
f2c0566732e7 codeAspect fixes (almost)
Claus Gittinger <cg@exept.de>
parents: 11662
diff changeset
  1638
    "Modified (format): / 27-07-2012 / 21:25:34 / cg"
10957
53571e562d5e bugfixes
vrany
parents: 10925
diff changeset
  1639
! !
53571e562d5e bugfixes
vrany
parents: 10925
diff changeset
  1640
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1641
!ChangeList class methodsFor:'documentation'!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1642
10451
3fe1648adef5 ChangeSetBrowser2 - fixes
vrany
parents: 10449
diff changeset
  1643
version
15150
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1644
    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.36 2015-02-01 13:17:11 cg Exp $'
10451
3fe1648adef5 ChangeSetBrowser2 - fixes
vrany
parents: 10449
diff changeset
  1645
!
3fe1648adef5 ChangeSetBrowser2 - fixes
vrany
parents: 10449
diff changeset
  1646
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1647
version_CVS
15150
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1648
    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.36 2015-02-01 13:17:11 cg Exp $'
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1649
!
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1650
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1651
version_SVN
15150
940d37c7d3ac class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 14719
diff changeset
  1652
    ^ '$Id: Tools__ChangeList.st,v 1.36 2015-02-01 13:17:11 cg Exp $'
10009
fe8b32698600 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1653
! !
12108
efa871deeab7 class: Tools::ChangeList
Claus Gittinger <cg@exept.de>
parents: 11795
diff changeset
  1654