equal
deleted
inserted
replaced
20 classVariableNames:'' |
20 classVariableNames:'' |
21 poolDictionaries:'' |
21 poolDictionaries:'' |
22 category:'Interface-UIPainter' |
22 category:'Interface-UIPainter' |
23 ! |
23 ! |
24 |
24 |
25 Array subclass:#Row |
25 Array variableSubclass:#Row |
26 instanceVariableNames:'' |
26 instanceVariableNames:'' |
27 classVariableNames:'' |
27 classVariableNames:'' |
28 poolDictionaries:'' |
28 poolDictionaries:'' |
29 privateIn:DataSetBuilder |
29 privateIn:DataSetBuilder |
30 ! |
30 ! |
1560 ) |
1560 ) |
1561 ) nil |
1561 ) nil |
1562 nil |
1562 nil |
1563 ) |
1563 ) |
1564 ) |
1564 ) |
1565 #(#MenuItem |
1565 "/ #(#MenuItem |
1566 #label: 'Settings' |
1566 "/ #label: 'Settings' |
1567 #translateLabel: true |
1567 "/ #translateLabel: true |
1568 #activeHelpKey: #settings |
1568 "/ #activeHelpKey: #settings |
1569 #submenu: |
1569 "/ #submenu: |
1570 #(#Menu |
1570 "/ #(#Menu |
1571 |
1571 "/ |
1572 #( |
1572 "/ #( |
1573 #(#MenuItem |
1573 "/ #(#MenuItem |
1574 #label: 'Fonts' |
1574 "/ #label: 'Fonts' |
1575 #translateLabel: true |
1575 "/ #translateLabel: true |
1576 #submenuChannel: #menuFont |
1576 "/ #submenuChannel: #menuFont |
1577 ) |
1577 "/ ) |
1578 ) nil |
1578 "/ ) nil |
1579 nil |
1579 "/ nil |
1580 ) |
1580 "/ ) |
1581 ) |
1581 "/ ) |
1582 #(#MenuItem |
1582 #(#MenuItem |
1583 #label: 'History' |
1583 #label: 'History' |
1584 #translateLabel: true |
1584 #translateLabel: true |
1585 #activeHelpKey: #history |
1585 #activeHelpKey: #history |
1586 #submenuChannel: #menuHistory |
1586 #submenuChannel: #menuHistory |
2494 (tabSelection := something) ~~ 0 ifTrue:[ |
2494 (tabSelection := something) ~~ 0 ifTrue:[ |
2495 specSelector := (self class slices at:tabSelection) last |
2495 specSelector := (self class slices at:tabSelection) last |
2496 ] |
2496 ] |
2497 ]. |
2497 ]. |
2498 self specChannel value:specSelector. |
2498 self specChannel value:specSelector. |
2499 (self window notNil and: [self window shown]) ifTrue: [self updateFonts] |
2499 "/ (self window notNil and: [self window shown]) ifTrue: [self updateFonts] |
2500 |
2500 |
2501 ! ! |
2501 ! ! |
2502 |
2502 |
2503 !DataSetBuilder methodsFor:'startup / release'! |
2503 !DataSetBuilder methodsFor:'startup / release'! |
2504 |
2504 |