equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 "{ Package: 'stx:libtool' }" |
12 "{ Package: 'stx:libtool' }" |
14 |
13 |
15 "{ NameSpace: Tools }" |
14 "{ NameSpace: Tools }" |
16 |
15 |
17 BrowserList subclass:#MethodList |
16 BrowserList subclass:#MethodList |
1033 "Modified: / 1.3.2000 / 21:00:26 / cg" |
1032 "Modified: / 1.3.2000 / 21:00:26 / cg" |
1034 ! |
1033 ! |
1035 |
1034 |
1036 makeDependent |
1035 makeDependent |
1037 Smalltalk addDependent:self. |
1036 Smalltalk addDependent:self. |
|
1037 "/ ChangeSet addDependent:self. |
|
1038 |
|
1039 "Modified: / 10-11-2006 / 17:57:01 / cg" |
1038 ! |
1040 ! |
1039 |
1041 |
1040 makeIndependent |
1042 makeIndependent |
1041 Smalltalk removeDependent:self. |
1043 Smalltalk removeDependent:self. |
1042 ! |
1044 ! |
1306 inheritance indicators, |
1308 inheritance indicators, |
1307 highlight accessors of variable" |
1309 highlight accessors of variable" |
1308 |
1310 |
1309 |clsName s icn variablesToHighlight classVarsToHighLight |
1311 |clsName s icn variablesToHighlight classVarsToHighLight |
1310 doHighLight doHighLightRed emp cat l redefIcon |
1312 doHighLight doHighLightRed emp cat l redefIcon |
1311 metrics complexity complexityString complexityIcon| |
1313 metrics complexity complexityString complexityIcon mark| |
1312 |
1314 |
1313 aMethod isAssociation ifTrue:[ |
1315 aMethod isAssociation ifTrue:[ |
1314 self halt:'should not happen'. |
1316 self halt:'should not happen'. |
1315 ]. |
1317 ]. |
1316 |
1318 |
1386 cat notNil ifTrue:[ |
1388 cat notNil ifTrue:[ |
1387 s := s , ' {' , cat "asText allItalic" , '}' |
1389 s := s , ' {' , cat "asText allItalic" , '}' |
1388 ] |
1390 ] |
1389 ]. |
1391 ]. |
1390 (ChangeSet current includesChangeForClass:cls selector:selector) ifTrue:[ |
1392 (ChangeSet current includesChangeForClass:cls selector:selector) ifTrue:[ |
1391 s := s , self class markForBeingInChangeList. |
1393 mark := self class markForBeingInChangeList. |
1392 s := s asText emphasisAllAdd:(UserPreferences current emphasisForChangedCode). |
1394 mark := self colorizeForChangedCode:mark. |
|
1395 s := s , mark. |
|
1396 "/ s := self colorizeForChangedCode:s. |
|
1397 ]. |
|
1398 |
|
1399 (SmallTeam notNil and:[SmallTeam includesChangeForClass:cls selector:selector]) ifTrue:[ |
|
1400 s := (self colorizeForChangedCodeInSmallTeam:'!! '),s |
1393 ]. |
1401 ]. |
1394 |
1402 |
1395 variablesToHighlight := variableFilter value. |
1403 variablesToHighlight := variableFilter value. |
1396 variablesToHighlight size > 0 ifTrue:[ |
1404 variablesToHighlight size > 0 ifTrue:[ |
1397 classVarsToHighLight := filterClassVars value. |
1405 classVarsToHighLight := filterClassVars value. |
1444 ^ l |
1452 ^ l |
1445 ]. |
1453 ]. |
1446 ^ s |
1454 ^ s |
1447 |
1455 |
1448 "Created: / 22-10-1996 / 19:51:00 / cg" |
1456 "Created: / 22-10-1996 / 19:51:00 / cg" |
1449 "Modified: / 29-08-2006 / 10:28:04 / cg" |
1457 "Modified: / 10-11-2006 / 17:51:30 / cg" |
1450 ! ! |
1458 ! ! |
1451 |
1459 |
1452 !MethodList methodsFor:'private-watching'! |
1460 !MethodList methodsFor:'private-watching'! |
1453 |
1461 |
1454 startWatchProcess |
1462 startWatchProcess |
1494 ! ! |
1502 ! ! |
1495 |
1503 |
1496 !MethodList class methodsFor:'documentation'! |
1504 !MethodList class methodsFor:'documentation'! |
1497 |
1505 |
1498 version |
1506 version |
1499 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.24 2006-09-13 09:48:01 cg Exp $' |
1507 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.25 2006-11-10 16:56:55 cg Exp $' |
1500 ! ! |
1508 ! ! |