equal
deleted
inserted
replaced
1197 |
1197 |
1198 theSingleSelectedProject |
1198 theSingleSelectedProject |
1199 |
1199 |
1200 | selection | |
1200 | selection | |
1201 selection := self packageList selectionHolder value. |
1201 selection := self packageList selectionHolder value. |
1202 ^selection size = 1 |
1202 ^selection size == 1 |
1203 ifTrue:[selection anyOne] |
1203 ifTrue:[selection anyOne] |
1204 ifFalse:[nil] |
1204 ifFalse:[nil] |
1205 |
1205 |
1206 "Created: / 06-06-2008 / 20:08:07 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1206 "Created: / 06-06-2008 / 20:08:07 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1207 ! |
1207 ! |
1717 classCategoryOrPackageTabIndexHolder |
1717 classCategoryOrPackageTabIndexHolder |
1718 |
1718 |
1719 classCategoryOrPackageTabIndexHolder ifNil: |
1719 classCategoryOrPackageTabIndexHolder ifNil: |
1720 [classCategoryOrPackageTabIndexHolder := nil asValue. |
1720 [classCategoryOrPackageTabIndexHolder := nil asValue. |
1721 classCategoryOrPackageTabIndexHolder onChangeEvaluate: |
1721 classCategoryOrPackageTabIndexHolder onChangeEvaluate: |
1722 [classCategoryOrPackageTabIndexHolder value = 1 |
1722 [classCategoryOrPackageTabIndexHolder value == 1 |
1723 ifTrue:[self classCategoryList selectionChanged]. |
1723 ifTrue:[self classCategoryList selectionChanged]. |
1724 classCategoryOrPackageTabIndexHolder value = 2 |
1724 classCategoryOrPackageTabIndexHolder value == 2 |
1725 ifTrue:[self packageList selectionChanged]]]. |
1725 ifTrue:[self packageList selectionChanged]]]. |
1726 ^classCategoryOrPackageTabIndexHolder |
1726 ^classCategoryOrPackageTabIndexHolder |
1727 |
1727 |
1728 "Created: / 05-06-2008 / 21:59:14 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1728 "Created: / 05-06-2008 / 21:59:14 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1729 "Modified: / 06-06-2008 / 12:29:09 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1729 "Modified: / 06-06-2008 / 12:29:09 / Jan Vrany <vranyj1@fel.cvut.cz>" |
2298 "Modified: / 07-02-2010 / 13:41:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2298 "Modified: / 07-02-2010 / 13:41:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2299 ! |
2299 ! |
2300 |
2300 |
2301 updateTimestampFormat |
2301 updateTimestampFormat |
2302 |
2302 |
2303 (results isEmptyOrNil or:[results size = 1]) |
2303 (results isEmptyOrNil or:[results size == 1]) |
2304 ifTrue:[timestampFormat := nil]. |
2304 ifTrue:[timestampFormat := nil]. |
2305 |
2305 |
2306 ((results collect:[:each|each timestamp] as:Set) size = 1) |
2306 ((results collect:[:each|each timestamp] as:Set) size == 1) |
2307 ifTrue: [timestampFormat := ' (%h:%m)'] |
2307 ifTrue: [timestampFormat := ' (%h:%m)'] |
2308 ifFalse:[timestampFormat := ' (%(month)-%(day) %h:%m)'] |
2308 ifFalse:[timestampFormat := ' (%(month)-%(day) %h:%m)'] |
2309 |
2309 |
2310 "Created: / 19-03-2010 / 08:50:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2310 "Created: / 19-03-2010 / 08:50:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2311 "Modified: / 12-09-2010 / 09:50:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2311 "Modified: / 12-09-2010 / 09:50:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2337 | entry children | |
2337 | entry children | |
2338 entry := ListEntry labeled: (class perform:#sunitName ifNotUnderstood:[class name]). |
2338 entry := ListEntry labeled: (class perform:#sunitName ifNotUnderstood:[class name]). |
2339 children := (tests asSortedCollection: [:a :b|a selector < b selector]) |
2339 children := (tests asSortedCollection: [:a :b|a selector < b selector]) |
2340 collect:[:test|self makeTestEntryFor: test result: result]. |
2340 collect:[:test|self makeTestEntryFor: test result: result]. |
2341 entry setChildren: children. |
2341 entry setChildren: children. |
2342 (entry result ~= #passed and:[results size = 1]) ifTrue:[entry expand]. |
2342 (entry result ~= #passed and:[results size == 1]) ifTrue:[entry expand]. |
2343 ^entry |
2343 ^entry |
2344 |
2344 |
2345 "Created: / 19-03-2010 / 08:41:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2345 "Created: / 19-03-2010 / 08:41:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2346 ! |
2346 ! |
2347 |
2347 |
2372 makeRootEntry |
2372 makeRootEntry |
2373 |
2373 |
2374 | entry children | |
2374 | entry children | |
2375 entry := ListEntry labeled: 'Test Results'. |
2375 entry := ListEntry labeled: 'Test Results'. |
2376 results isEmptyOrNil ifTrue:[^entry]. |
2376 results isEmptyOrNil ifTrue:[^entry]. |
2377 children := results size = 1 |
2377 children := results size == 1 |
2378 ifTrue: |
2378 ifTrue: |
2379 [(self makeResultEntryFor: results anyOne) getChildren] |
2379 [(self makeResultEntryFor: results anyOne) getChildren] |
2380 ifFalse: |
2380 ifFalse: |
2381 [results collect:[:result|self makeResultEntryFor:result]]. |
2381 [results collect:[:result|self makeResultEntryFor:result]]. |
2382 entry setChildren: children. |
2382 entry setChildren: children. |