The Trunk: Tools-mt.704.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Tools-mt.704.mcz

commits-2
Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.704.mcz

==================== Summary ====================

Name: Tools-mt.704
Author: mt
Time: 11 June 2016, 9:52:26.607012 am
UUID: 12f40ef5-bf69-0b4d-8587-0d9a622b4195
Ancestors: Tools-cmm.703

Speed-up the code browser if icons or balloon helps are disabled for message lists. Browser >> #messageList is an expensive call.

=============== Diff against Tools-cmm.703 ===============

Item was changed:
  ----- Method: Browser>>messageHelpAt: (in category 'message list') -----
  messageHelpAt: anIndex
  "Show the first n lines of the sources code of the selected message."
+ Preferences balloonHelpInMessageLists ifFalse: [^ nil].
  self messageList size < anIndex ifTrue: [^ nil].
  ^ self messageHelpFor: (self messageList at: anIndex)
  !

Item was changed:
  ----- Method: Browser>>messageIconAt: (in category 'message list') -----
  messageIconAt: anIndex
 
+ self class showMessageIcons ifFalse: [^ nil].
  ^ self messageIconFor: (self messageList at: anIndex ifAbsent: [^nil])!


Reply | Threaded
Open this post in threaded view
|

Re: The Trunk: Tools-mt.704.mcz

marcel.taeumel
commits-2 wrote
Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.704.mcz

==================== Summary ====================

Name: Tools-mt.704
Author: mt
Time: 11 June 2016, 9:52:26.607012 am
UUID: 12f40ef5-bf69-0b4d-8587-0d9a622b4195
Ancestors: Tools-cmm.703

Speed-up the code browser if icons or balloon helps are disabled for message lists. Browser >> #messageList is an expensive call.

=============== Diff against Tools-cmm.703 ===============

Item was changed:
  ----- Method: Browser>>messageHelpAt: (in category 'message list') -----
  messageHelpAt: anIndex
  "Show the first n lines of the sources code of the selected message."
+ Preferences balloonHelpInMessageLists ifFalse: [^ nil].
  self messageList size < anIndex ifTrue: [^ nil].
  ^ self messageHelpFor: (self messageList at: anIndex)
  !

Item was changed:
  ----- Method: Browser>>messageIconAt: (in category 'message list') -----
  messageIconAt: anIndex
 
+ self class showMessageIcons ifFalse: [^ nil].
  ^ self messageIconFor: (self messageList at: anIndex ifAbsent: [^nil])!
Thanks to Chris for pointing me to this!

Best,
Marcel