equal
deleted
inserted
replaced
1969 view := self selectedView. |
1969 view := self selectedView. |
1970 view isNil ifTrue:[^ nil]. |
1970 view isNil ifTrue:[^ nil]. |
1971 |
1971 |
1972 list := OrderedCollection new. |
1972 list := OrderedCollection new. |
1973 |
1973 |
1974 list add:(MenuDesc title:'fgColor' value:(view foregroundColor)). |
1974 list add:(MenuDesc title:'fgColor' value:(view foregroundColor displayString)). |
1975 list add:(MenuDesc title:'bgColor' value:(view backgroundColor)). |
1975 list add:(MenuDesc title:'bgColor' value:(view backgroundColor displayString)). |
1976 list add:(MenuDesc title:'viewBG' value:(view viewBackground)). |
1976 list add:(MenuDesc title:'viewBG' value:(view viewBackground displayString)). |
1977 |
1977 |
1978 list add:(MenuDesc separator). |
1978 list add:(MenuDesc separator). |
1979 |
1979 |
1980 list add:(MenuDesc title:'font' value:(view font printString)). |
1980 list add:(MenuDesc title:'font' value:(view font printString)). |
1981 |
1981 |