![]() | |
![]() | |
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | |
![]() |
String streamContents: [ :stream | self systemCategoryList do: [ :cat stream nextPutAll: '!', cat asString, String cr.(systemOrganizer listAtCategoryNumber: (self systemCategoryList indexOf: cat )) do: [ :class | stream nextPutAll: '-', class asString, String cr. ] ] ].