Change Details
| trunk/RemObjects.Oxygene.CS2Pas/OxygeneVisitor.pas |
|---|
| 17 | 17 | class var fDefaultTypeMap: Dictionary<string, string> := new Dictionary<String,string>(StringComparer.InvariantCultureIgnoreCase); |
| 18 | 18 | var fErrors: Errors := new Errors; |
| 19 | 19 | var fNestStack: List<string> := new List<String>; |
| 20 | var fType: TypeDeclaration; |
| 20 | 21 | var fCurrentVisibility: MemberVisibility; |
| 21 | 22 | fUses: List<String> := new List<String>; |
| 22 | 23 | fNamespace: String; |
| ... | ... | |
| 447 | 448 | lFullName := fNestStack[i] + '.'+ lFullName; |
| 448 | 449 | end; |
| 449 | 450 | end; |
| 451 | fType := typeDeclaration; |
| 450 | 452 | Write(' = '); |
| 451 | 453 | |
| 452 | 454 | // modifiers here |
| ... | ... | |
| 1500 | 1502 | |
| 1501 | 1503 | method OxygeneOutputVisitor.ChangeVisibility(&mod: Modifiers); |
| 1502 | 1504 | begin |
| 1505 | if fType:&Type = ClassType.Interface then exit; |
| 1503 | 1506 | var lRealModifier: MemberVisibility := MemberVisibility.Private; |
| 1504 | 1507 | if Modifiers.Public in &mod then lRealModifier := MemberVisibility.Public else |
| 1505 | 1508 | if Modifiers.Private in &mod then lRealModifier := MemberVisibility.Private else |
| 1506 | 1509 | |
Download the corresponding diff file
