equal
deleted
inserted
replaced
51 NoteBookView |
51 NoteBookView |
52 UIPainter |
52 UIPainter |
53 |
53 |
54 [author:] |
54 [author:] |
55 Claus Atzkern, eXept Software AG |
55 Claus Atzkern, eXept Software AG |
|
56 Thomas Zwick, eXept Software AG |
56 " |
57 " |
57 |
58 |
58 |
59 |
59 ! ! |
60 ! ! |
60 |
61 |
278 |
279 |
279 #(#FullSpec |
280 #(#FullSpec |
280 #window: |
281 #window: |
281 #(#WindowSpec |
282 #(#WindowSpec |
282 #name: 'Tab List Editor' |
283 #name: 'Tab List Editor' |
283 #layout: #(#LayoutFrame 516 0 302 0 984 0 630 0) |
284 #layout: #(#LayoutFrame 117 0 340 0 586 0 669 0) |
284 #label: 'Tab List Editor' |
285 #label: 'Tab List Editor' |
285 #min: #(#Point 10 10) |
286 #min: #(#Point 440 280) |
286 #max: #(#Point 1152 900) |
287 #max: #(#Point 1152 900) |
287 #bounds: #(#Rectangle 516 302 985 631) |
288 #bounds: #(#Rectangle 117 340 587 670) |
288 #menu: #menu |
289 #menu: #menu |
289 #usePreferredExtent: false |
290 #usePreferredExtent: false |
290 ) |
291 ) |
291 #component: |
292 #component: |
292 #(#SpecCollection |
293 #(#SpecCollection |
501 ) nil |
502 ) nil |
502 nil |
503 nil |
503 ) |
504 ) |
504 ) |
505 ) |
505 #(#MenuItem |
506 #(#MenuItem |
506 #label: 'History' |
|
507 #activeHelpKey: #history |
|
508 #submenuChannel: #menuHistory |
|
509 ) |
|
510 #(#MenuItem |
|
511 #label: 'Settings' |
507 #label: 'Settings' |
512 #submenu: |
508 #submenu: |
513 #(#Menu |
509 #(#Menu |
514 |
510 |
515 #( |
511 #( |
518 #submenuChannel: #menuFont |
514 #submenuChannel: #menuFont |
519 ) |
515 ) |
520 ) nil |
516 ) nil |
521 nil |
517 nil |
522 ) |
518 ) |
|
519 ) |
|
520 #(#MenuItem |
|
521 #label: 'History' |
|
522 #activeHelpKey: #history |
|
523 #submenuChannel: #menuHistory |
523 ) |
524 ) |
524 #(#MenuItem |
525 #(#MenuItem |
525 #label: 'Help' |
526 #label: 'Help' |
526 #startGroup: #right |
527 #startGroup: #right |
527 #activeHelpKey: #help |
528 #activeHelpKey: #help |
1026 |
1027 |
1027 doCopy |
1028 doCopy |
1028 "copy selected tab |
1029 "copy selected tab |
1029 " |
1030 " |
1030 selectedIndex ~~ 0 ifTrue:[ |
1031 selectedIndex ~~ 0 ifTrue:[ |
1031 self clipboard:(listOfTabs at:selectedIndex) deepCopy |
1032 self clipboard:(listOfTabs at:selectedIndex) deepCopy. |
|
1033 self updateAllToolInstances. |
1032 ] |
1034 ] |
1033 ! |
1035 ! |
1034 |
1036 |
1035 doCreateTabItem |
1037 doCreateTabItem |
1036 |
1038 |
1066 index > list size ifTrue:[ |
1068 index > list size ifTrue:[ |
1067 index := index - 1 |
1069 index := index - 1 |
1068 ]. |
1070 ]. |
1069 self selectionHolder value:index. |
1071 self selectionHolder value:index. |
1070 self listOfLabels isEmpty ifTrue: [self canShowTestMode value: false]. |
1072 self listOfLabels isEmpty ifTrue: [self canShowTestMode value: false]. |
|
1073 self updateAllToolInstances. |
1071 modified := true. |
1074 modified := true. |
1072 ]. |
1075 ]. |
1073 |
1076 |
1074 ! |
1077 ! |
1075 |
1078 |