changeset 662 | 28d6cac7968b |
parent 655 | 093cba68e10a |
child 698 | 5bf234e0e451 |
661:34af6869d5b8 | 662:28d6cac7968b |
---|---|
1034 (name endsWith:'Spec') ifTrue:[ |
1034 (name endsWith:'Spec') ifTrue:[ |
1035 name := name copyFrom:1 to:(name size - 4). |
1035 name := name copyFrom:1 to:(name size - 4). |
1036 ] ifFalse:[ |
1036 ] ifFalse:[ |
1037 name := name copy |
1037 name := name copy |
1038 ]. |
1038 ]. |
1039 name at:1 put:(name at:1) asLowercase. |
|
1040 size := name size + 1. |
1039 size := name size + 1. |
1041 next := 0. |
1040 next := 0. |
1042 |
1041 |
1043 treeView propertiesDo:[:p| |
1042 treeView propertiesDo:[:p| |
1044 |n| |
1043 |n| |
1049 ] |
1048 ] |
1050 ]. |
1049 ]. |
1051 next := next + 1. |
1050 next := next + 1. |
1052 name := name, next printString. |
1051 name := name, next printString. |
1053 ^ name |
1052 ^ name |
1053 |
|
1054 |
1054 |
1055 |
1055 |
1056 |
1056 |
1057 ! |
1057 ! |
1058 |
1058 |