Tools__InternationalLanguageTranslationEditor.st
author Claus Gittinger <cg@exept.de>
Thu, 25 Oct 2018 16:26:05 +0200
changeset 3626 4cc3a9c52aa7
parent 3620 c0f9b9ddd6bd
child 3627 9ee9d719f243
permissions -rw-r--r--
#FEATURE by cg class: Tools::InternationalLanguageTranslationEditor prepared: #searchTranslation (unfinished) changed: #addTranslation (send #isEmptyOrNil instead of #isEmpty) #objectsList #searchNextTextIncludingCurrentSelection: class: Tools::InternationalLanguageTranslationEditor class changed: #translationsMenuSpec
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
     1
"{ Encoding: utf8 }"
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
     2
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
"{ Package: 'stx:libtool2' }"
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
"{ NameSpace: Tools }"
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
ApplicationModel subclass:#InternationalLanguageTranslationEditor
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
	instanceVariableNames:'languagesList keyStringsToLanguageMappings languageTextHolder
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
		originalTextHolder modified shownLanguages selectedKeyRow
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
		showMissingTranslationsOnly
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
		keyStringAndLanguageSelectionTableColumnDescriptionHolder
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
		languageShownHolders dataSetView lastExtractedClass
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
		lastExtractedApplicationClass stopApplicationIconVisibleHolder
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
		monitoredApplication originalTextModifiedHolder
2048
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
    15
		languageTextModifiedHolder languageTextAcceptHolder
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
    16
		inSingleFileMode lastExtractedProject lastLanguage
2050
fm
parents: 2049
diff changeset
    17
		lastSelectedKey autoAcceptHolder languageEditor
fm
parents: 2049
diff changeset
    18
		selectedColIndexHolder exampleLanguageSelectionHolder
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
    19
		exampleLanguageTextHolder pastePreviousTranslationEnableHolder
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
    20
		searchForSimilarTranslationEnableHolder alwaysWriteUTF8Holder
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
    21
		lastNameSpace pasteOriginalEnableHolder ignoreCaseHolder
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
    22
		closeSearchBar searchTextModifiedHolder searchNextText
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
    23
		searchBarImageInfoLabelHolder searchPreviousText searchBoxVisible
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
    24
		searchBarInfoLabelHolder searchTextHolder searchTextView
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
    25
		searchBoxView translationsPanel lastPackage methodsUsingKey'
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
    26
	classVariableNames:'LastExtractedClass LastExtractedApplicationClass
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
    27
		LastExtractedProject LastProject'
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
	poolDictionaries:''
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
	category:'Interface-UIPainter'
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
Object subclass:#AccessCollectingPseudoResourcePack
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
    33
	instanceVariableNames:'collectedKeys realResourcePack watchingTranslationEditor'
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
	classVariableNames:''
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
	poolDictionaries:''
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
	privateIn:InternationalLanguageTranslationEditor
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
Collection subclass:#KeyStringsToLanguageMappings
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
    40
	instanceVariableNames:'keys keyInfo perLanguageInfo perLanguageMappings languageMappings
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
    41
		languages rowPerKey'
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
	classVariableNames:''
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
	poolDictionaries:''
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
	privateIn:InternationalLanguageTranslationEditor
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
Object subclass:#LanguageMappingRow
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
	instanceVariableNames:'key mappings'
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
	classVariableNames:''
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
	poolDictionaries:''
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
	privateIn:InternationalLanguageTranslationEditor
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
Visitor subclass:#UISpecVisitor
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
	instanceVariableNames:'translatedLabels'
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
	classVariableNames:''
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
	poolDictionaries:''
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
	privateIn:InternationalLanguageTranslationEditor
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
!InternationalLanguageTranslationEditor class methodsFor:'documentation'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
documentation
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
"
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
    documentation to be added.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
    [author:]
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
    68
	cg (cg@FUSI)
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
    [instance variables:]
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
    [class variables:]
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
    [see also:]
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
"
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
examples
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
"
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
  Starting the application:
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
    82
								[exBegin]
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
    InternationalLanguageTranslationEditor open
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
    85
								[exEnd]
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
  more examples to be added:
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
    88
								[exBegin]
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
    89
    ... add code fragment for
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
    ... executable example here ...
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
    91
								[exEnd]
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
"
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
history
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
    "Created: / 04-03-2006 / 09:07:19 / cg"
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
    99
!InternationalLanguageTranslationEditor class methodsFor:'help spec'!
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   100
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   101
helpSpec
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   102
    <resource: #help>
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   103
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   104
    ^ super helpSpec addPairsFrom:#(
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   105
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   106
#searchBox
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   107
'Show a search box at the bottom to search for substrings in the string keys'
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   108
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   109
#browseReferringMethods
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   110
'Browse methods which refer to this string'
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   111
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   112
)
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   113
! !
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   114
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   115
!InternationalLanguageTranslationEditor class methodsFor:'image specs'!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   116
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   117
closeSearchBarIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   118
    "This resource specification was automatically generated
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   119
     by the ImageEditor of ST/X."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   120
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   121
    "Do not manually edit this!! If it is corrupted,
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   122
     the ImageEditor may not be able to read the specification."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   123
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   124
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   125
     self closeSearchBar inspect
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   126
     ImageEditor openOnClass:self andSelector:#closeSearchBar
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   127
     Icon flushCachedIcons
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   128
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   129
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   130
    <resource: #image>
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   131
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   132
    ^Icon
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   133
	constantNamed:#'Psiware::SystemManagement class closeSearchBar'
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   134
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   135
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GQ\SD1LSD1LSD1LSD1LWGP@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   136
@ATGA@HA@PDA@PDA@PHDA1T@@@@@@@@TAENG!!(VB XA?_''57QPPT@@@@@@@@E NJ^V)&X%)UTT5IV7 KE @@@@@@@A A"7Q,#&9VS%^MQ$E<DQ @@@@@@@@Z
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   137
@X%-#9NRX52R$80:^1@Z@@@@@@@@F0FHY6>R$9JR$9ION''(PF0@@@@@@@A<A 5ABT)FS$9D=KR13C1<@@@@@@@@)@WUCND*Q$9NQM"T!!XP8)@@@@@@@@K E2
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   138
O4RQ$9FQ$9@2G%8JK @@@@@@@CLA\S2D$9D9M)BS]!!1]BSL@@@@@@@@7@W@5LXP6J2\2]"P"VP 7@@@@@@@@O U+R3@*I2T#HA0&N5 RO @@@@@@@D LPF%(
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   139
YVQ W59]VU 4CD @@@@@@@AGFP4F@PDA@PDA@PDFCQ%G@@@@@@@@K41TUEQTUEQTUEQTUEQLK0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   140
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 167 25 15 170 49 40 171 50 39 174 68 60 176 56 48 176 58 49 183 118 110 184 45 32 184 46 32 184 47 34 184 71 58 184 85 78 184 86 79 185 53 39 186 57 42 186 59 43 186 60 45 186 68 58 190 187 180 192 188 181 193 189 182 194 190 183 195 192 184 197 194 186 202 148 142 202 199 191 205 202 195 207 64 48 207 203 195 208 65 49 208 205 198 209 65 49 209 66 49 209 69 52 210 66 49 210 78 64 211 67 51 211 71 54 212 69 51 212 208 200 212 208 202 213 69 52 213 70 52 213 79 57 215 80 59 215 212 206 217 214 207 218 79 62 218 84 67 219 107 95 219 216 210 221 84 63 221 84 67 221 109 96 221 218 213 222 76 56 222 110 96 222 113 79 223 87 67 223 87 70 223 115 99 224 221 216 225 89 72 225 105 91 225 117 84 227 89 64 227 91 73 227 112 98 227 115 95 227 122 92 227 224 219 227 225 219 228 113 83 228 113 99 229 102 87 229 226 221 230 115 84 230 117 81 230 142 117 231 102 80 231 116 86 231 120 103 231 131 119 231 228 224 232 118 88 232 119 82 233 143 117 234 99 76 234 102 79 234 119 89 234 127 100 234 145 119 235 104 82 235 106 86 236 108 89 236 110 92 236 113 92 236 121 91 236 146 119 237 113 95 237 115 98 237 122 92 237 132 100 238 117 101 238 119 104 238 123 93 238 123 109 238 131 98 238 133 102 238 146 120 238 148 121 239 125 112 239 127 115 239 129 118 239 131 105 239 134 102 240 135 122 240 200 196 242 135 113 242 141 116 242 141 119 242 145 116 242 147 118 242 148 120 243 137 115 243 138 118 243 141 121 243 142 123 243 144 126 243 145 129 243 151 134 243 202 197 244 147 132 244 149 135 244 152 137 244 163 142 244 164 145 245 160 143 245 164 146 245 213 204 246 213 203 248 215 205 249 215 206 252 244 243 253 244 243 253 247 245 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@G?? G?? G?? G?? G?? G?? G?? G?? G?? G?? G?? G?? G?? G?? G?? G?? @@@@@@@@@@@@') ; yourself); yourself]
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   141
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   142
    "Created: / 15-06-2007 / 18:04:38 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   143
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   144
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   145
restartSearchBarIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   146
    "This resource specification was automatically generated
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   147
     by the ImageEditor of ST/X."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   148
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   149
    "Do not manually edit this!! If it is corrupted,
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   150
     the ImageEditor may not be able to read the specification."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   151
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   152
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   153
     self restartSearchBarIcon inspect
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   154
     ImageEditor openOnClass:self andSelector:#restartSearchBarIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   155
     Icon flushCachedIcons
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   156
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   157
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   158
    <resource: #image>
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   159
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   160
    ^Icon
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   161
	constantNamed:#'Psiware::SystemManagement class restartSearchBarIcon'
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   162
	ifAbsentPut:[(Depth24Image new) width: 20; height: 20; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:'
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   163
@@@@@@@@@@@@@@@@@@@@@@@@?>SX?>''V?>;)?>O!!?>G]?>WY@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?=3\:[>''5;JF/Y-.+XY),(U.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   164
6JZK?=J1?>V<>.+I@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?>?'':+:!!19]U6*-Q?]Y/?>RC?>*!!?>F_>+=939UL2Y!!L>MJT??W[@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   165
@@@@??[-=\^&1IEP=<Q[?>1/?=5$?=52?>NT?=^Q?>BP?>FG>;1]6JEO8;^H?]3I@@@@@@@@@@@@@@@@@@@@?\*95Y-)<+!!$??.F?>)17+-U8,E40Y-.09I)
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   166
:Z1-?=I??=)8?<1.>K597;NL??K,@@@@@@@@@@@@?=#M6I>B>+:@?>2U=,]]5[IN7,^C5LB[<MWL?]#O=,BZ7)=\>;Y[??FP?=>O1YEW8<B$;=WH@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   167
>,"%8Z:A?>N#?>._5KA$9-JW7=+FX6M+V%U3"''*T0Y>V4ZA7595T=;1"?=&D?=&L,W(93IU\:KE9=LBG9[Q9;K1<?=^R:K591*-6??''[@@@@RE%37>7?=?/?
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   168
>^_''3*.M0YAU<K5,?>ZO?=>G?<!!6?<Y6>+U(69YI3:IG?=Z@?>NU5:=19,6%@@@@@@@@OU5*2.+7;O??5-KF2;JS?=*&?>&"?=.E?>2R?=&F?>"X8I-N5)ED
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   169
29$&?>M:?=*F3:E&>]/A@@@@@@@@O5=.7O??5^/(?O++<M.>0I-/;LNE??2)?=&B?>^%,W)A8:14?=FX3)TR?>U/?=Q:3IAZ?=?T@@@@@@@@P5Y68_#?7.70
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   170
??[1??C_:,F%6;A=>MJA?>6":,6+&G91?>+^?>+]79<$?<1\?=:C5IM[?<;F@@@@@@@@Q$1>6N_?<?+?<.W.?>3*??S(=,.(2Z!!#=-:^+9>P4,[P<>''46=O^
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   171
=+MX;Z)O?>^Q:Z]*;+Z''@@@@@@@@TD:O9^/?;/C??>???>/:?>71?>7Z;]^%0+JA7=CI8]O"0+[D8=#&?<&V79="?=2L?\E88[BG@@@@@@@@VU&M=_3?9N''?
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   172
>/C???K??NK/??[1???#9M?B??3;(IV#/[WD;^_5@@@@;KR]<[10?=Q68[9,8,>W@@@@TU9&;/??9__9:.;/?_#<??/?>?[==?79>_?=<_S9T5M[0,WN7^G*
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   173
@@@@@@@@1Y= >=!!>9,]-3[],6]B''TEH=;O_''=O?6>O77>O''=>//?=_+?:O_?:_''?>O??SEM[/<[P6.O,@@@@@@@@8-F%1*%/9[>@?>R(7+VG_%,;\E]CW$=H
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   174
U5AWV5%.U5);R5M:Q5M;S%-=TE]*[GI>):696M;*@@@@@@@@@@@@6\F[2Y914)9.;[VF?L"!!8[^_3J>''0KB:0;?V0,_''-<C),K/(,;7!!+[OI,K[D2=G_9N+8
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   175
@@@@@@@@@@@@@@@@@@@@?\*_7*]>3))5/II9+9FF+9> 0;7I5-#-7NO?7^#?8^/?:/G?7NK07>W3@@@@@@@@@@@@@@@@@@@@@@@@?>N;?>N;?=:9?>7T?>#X
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   176
>^_%=N?6<OK?@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@?@OC?0OO?8O_?<O_?>O???O?????_??>_??>_??>_??>_??>_??>_??__??O???O???G???A??/A? O') ; yourself); yourself]
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   177
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   178
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   179
searchNextIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   180
    "This resource specification was automatically generated
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   181
     by the ImageEditor of ST/X."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   182
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   183
    "Do not manually edit this!! If it is corrupted,
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   184
     the ImageEditor may not be able to read the specification."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   185
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   186
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   187
     self searchNextIcon inspect
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   188
     ImageEditor openOnClass:self andSelector:#searchNextIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   189
     Icon flushCachedIcons
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   190
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   191
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   192
    <resource: #image>
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   193
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   194
    ^Icon
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   195
	constantNamed:#'Psiware::SystemManagement class searchNextIcon'
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   196
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   197
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZE)ZZ@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   198
@@@@@@AFF XA@PXUQ @@@@@@@@@@@@@@@@@*@Q5G^WX6E0D*@@@@@@@@@@@@@@@,AVQ?\&1#W&X8@20@@@@@@@@@@@A[@U==\F-"VUQOUSLAV0@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   199
G19-D <NCP0KB!!@7D1<@@@@@@@@@  ]MT5JY&Y&Y&Y%RLR4G  @@@@@@@H\A WL $)&Y&Y&RF35B@X\@@@@@@@BK@XA1WA"X&Y&XE#T:P@FK@@@@@@@@# !!H
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   200
]F$<II&YH3H>N2 H# @@@@@@@@@''GG)*Y2$9NRIDO4DQHP@@@@@@@@@@!!@EP[6U]I"UIQTL.@XP@@@@@@@@@@@ALAD-.XE]VS$(/@$0@@@@@@@@@@@@@@EDA
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   201
FSQ!!VC@T@UD@@@@@@@@@@@@@@@@@#R,I@PDIJ84@@@@@@@@@@@@@@@@@@@@@%)^W% @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   202
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 48 54 77 55 63 87 56 64 89 57 67 90 59 67 90 64 69 89 71 74 92 72 76 96 76 81 100 80 89 118 82 90 119 83 91 120 84 92 122 86 94 123 87 96 124 89 97 126 92 104 132 97 106 136 97 110 138 97 112 138 100 102 112 101 107 130 104 118 144 105 113 135 105 124 146 107 109 118 107 116 144 110 127 148 112 126 148 113 129 148 117 119 129 118 130 156 119 123 133 125 140 174 127 131 146 127 132 148 127 146 178 130 151 181 131 132 143 133 149 185 133 152 182 134 134 138 137 140 150 138 138 142 139 156 191 141 160 195 143 164 199 143 169 198 144 157 197 144 158 197 152 173 208 153 184 209 155 167 210 156 180 208 157 179 215 157 180 211 160 162 171 160 173 216 160 174 216 160 182 214 161 173 217 161 174 217 161 176 219 161 179 220 161 180 220 163 182 222 163 184 222 164 182 222 164 184 223 166 164 161 166 189 212 166 194 211 167 190 228 167 194 229 167 200 221 169 170 174 169 195 212 169 196 232 170 181 228 170 203 221 171 171 176 171 173 182 171 193 220 173 182 232 173 192 232 173 200 234 175 206 239 175 210 240 176 188 237 178 175 168 178 175 173 178 202 234 178 206 240 179 195 238 180 205 223 180 214 243 180 216 244 181 193 242 181 195 239 181 204 223 181 212 243 182 206 242 182 209 243 184 180 173 184 211 244 184 215 245 185 198 246 185 200 244 188 215 233 188 225 249 189 226 249 190 206 250 190 219 248 191 209 249 191 217 248 191 222 248 192 188 181 192 221 249 194 190 184 195 191 184 196 226 251 196 232 251 199 196 189 202 198 191 202 226 253 203 199 193 203 229 253 203 237 252 203 237 253 204 202 196 206 202 195 206 205 204 207 203 196 208 204 197 208 205 201 212 208 200 212 208 201 212 208 202 212 209 205 213 210 202 213 212 213 214 211 206 215 212 207 216 213 206 218 215 210 220 221 223 221 219 214 222 219 215 222 220 215 230 228 225 236 235 232 243 243 244 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@C@@@C@@@C@G C@_8C@?<CA?>CC??CC??CG??#G??#G??#G??#C??CC??CA?>C@?<C@_8C@G C@@@C@@@C@@@C') ; yourself); yourself]
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   203
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   204
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   205
searchPreviousIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   206
    "This resource specification was automatically generated
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   207
     by the ImageEditor of ST/X."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   208
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   209
    "Do not manually edit this!! If it is corrupted,
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   210
     the ImageEditor may not be able to read the specification."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   211
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   212
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   213
     self searchPreviousIcon inspect
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   214
     ImageEditor openOnClass:self andSelector:#searchPreviousIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   215
     Icon flushCachedIcons
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   216
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   217
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   218
    <resource: #image>
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   219
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   220
    ^Icon
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   221
	constantNamed:#'Psiware::SystemManagement class searchPreviousIcon'
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   222
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   223
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%)^W% @@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   224
@@@@@@BMJ0$A@P$+#P@@@@@@@@@@@@@@@@AQ@Q$4XU 0E@EQ@@@@@@@@@@@@@@ALAD-.XE]VS$(/@$0@@@@@@@@@@@BD@UA/YU4&IT%EP28A!!@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   225
I11:Z&\)NS$"QC=ADRD@@@@@@@@@# !!H]F$<II&YH3H>N2 H# @@@@@@@H,A GE\FI"Y&Y VMS)@@X,@@@@@@@BG@XE3HIJY&Y&Y$!!,=P FG@@@@@@@@  ]M
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   226
T5JY&Y&Y&Y%RLR4G  @@@@@@@@@_G&4RC08MC@,JDC\SG0@@@@@@@@@@V0E__WA+X%%TS5T3@U,@@@@@@@@@@@@,AVQ?\&1#W&X8@20@@@@@@@@@@@@@@B(A
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   227
GT]9]#XW@R(@@@@@@@@@@@@@@@@@Q!!(F@PDFETX@@@@@@@@@@@@@@@@@@@@@ZE)ZZ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   228
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 48 54 77 55 63 87 56 64 89 57 67 90 59 67 90 64 69 89 71 74 92 72 76 96 76 81 100 80 89 118 82 90 119 83 91 120 84 92 122 86 94 123 87 96 124 89 97 126 92 104 132 97 106 136 97 110 138 97 112 138 100 102 112 101 107 130 104 118 144 105 113 135 105 124 146 107 109 118 107 116 144 110 127 148 112 126 148 113 129 148 117 119 129 118 130 156 119 123 133 125 140 174 127 131 146 127 132 148 127 146 178 130 151 181 131 132 143 133 149 185 133 152 182 134 134 138 137 140 150 138 138 142 139 156 191 141 160 195 143 164 199 143 169 198 144 157 197 144 158 197 152 173 208 153 184 209 155 167 210 156 180 208 157 179 215 157 180 211 160 162 171 160 173 216 160 174 216 160 182 214 161 173 217 161 174 217 161 176 219 161 179 220 161 180 220 163 182 222 163 184 222 164 182 222 164 184 223 166 164 161 166 189 212 166 194 211 167 190 228 167 194 229 167 200 221 169 170 174 169 195 212 169 196 232 170 181 228 170 203 221 171 171 176 171 173 182 171 193 220 173 182 232 173 192 232 173 200 234 175 206 239 175 210 240 176 188 237 178 175 168 178 175 173 178 202 234 178 206 240 179 195 238 180 205 223 180 214 243 180 216 244 181 193 242 181 195 239 181 204 223 181 212 243 182 206 242 182 209 243 184 180 173 184 211 244 184 215 245 185 198 246 185 200 244 188 215 233 188 225 249 189 226 249 190 206 250 190 219 248 191 209 249 191 217 248 191 222 248 192 188 181 192 221 249 194 190 184 195 191 184 196 226 251 196 232 251 199 196 189 202 198 191 202 226 253 203 199 193 203 229 253 203 237 252 203 237 253 204 202 196 206 202 195 206 205 204 207 203 196 208 204 197 208 205 201 212 208 200 212 208 201 212 208 202 212 209 205 213 210 202 213 212 213 214 211 206 215 212 207 216 213 206 218 215 210 220 221 223 221 219 214 222 219 215 222 220 215 230 228 225 236 235 232 243 243 244 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@C@@@C@@@C@G C@_8C@?<CA?>CC??CC??CG??#G??#G??#G??#C??CC??CA?>C@?<C@_8C@G C@@@C@@@C@@@C') ; yourself); yourself]
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   229
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   230
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   231
searchToolBarIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   232
    "This resource specification was automatically generated
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   233
     by the ImageEditor of ST/X."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   234
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   235
    "Do not manually edit this!! If it is corrupted,
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   236
     the ImageEditor may not be able to read the specification."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   237
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   238
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   239
     self searchToolBarIcon inspect
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   240
     ImageEditor openOnClass:self andSelector:#searchToolBarIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   241
     Icon flushCachedIcons
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   242
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   243
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   244
    <resource: #image>
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   245
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   246
    ^Icon
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   247
	constantNamed:#'Psiware::SystemManagement class searchToolBarIcon'
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   248
	ifAbsentPut:[(Depth24Image new) width: 22; height: 22; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:'
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   249
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   250
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   251
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4][>4][>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   252
@@@@@@@@@@@@@@@@@@@@@@@@@@@@;>#8/L#+!!:KS!!:KS/,'',;>''9@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@2];>^)WH
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   253
NE:+KU*:J5&9NE6*_I#K4^S>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4][>RV3DLER"SWR6$K#0#;[.SGJ4L5"''UG_N4][>@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   254
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*K''\JT*,U6Z7:^S?>/C*;.3,6>C>RFF(KEZ"3-_-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   255
@@@@@@@@@@@@&Z''HFTF &Z7">N#:7NK?7NK?6=W>!!Y''YH4N -+3T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%I>;FDV)#ZWU??''57NK?
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   256
7NK?:>_?\8WKFCN".K#T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@1L;.A#V[O5")3=W;=/[4</W:1,??K$JVI4Z\7-''4@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   257
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@7NK?-,[1E#:&C"ZZH3F U6_EU63FHS^XHS.K JOX7-''4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@7NK?
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   258
,K_*O5ZTCRBLPU&0FCBHDB&RDR6RH$NI Y#I4][>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@7NK?-;#%ND&KC">BYV.*4=;>7.+>-<K!!,K/!!7NK?
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   259
:^C;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@7NK?/K3^PT%<CBI/NE>==O;8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   260
@@@@@@@@@@@@7NK? (J9GB1SZV>W:M3?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@5MS&++3H6M/#@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   261
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@7NK?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   262
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   263
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   264
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   265
@@@@@@@@@@@@@@@@') ; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@C@@@C@@@C@A C@G8C@O<C@_>C@_>C@_>C@_>C@_>C@?>CA?<CC?8CG8@CG0@CC @CA@@C@@@C@@@C@@@C@@@C') ; yourself); yourself]
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   266
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   267
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   268
warningSearchBarIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   269
    "This resource specification was automatically generated
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   270
     by the ImageEditor of ST/X."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   271
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   272
    "Do not manually edit this!! If it is corrupted,
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   273
     the ImageEditor may not be able to read the specification."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   274
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   275
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   276
     self warningSearchBarIcon inspect
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   277
     ImageEditor openOnClass:self andSelector:#warningSearchBarIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   278
     Icon flushCachedIcons
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   279
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   280
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   281
    <resource: #image>
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   282
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   283
    ^Icon
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   284
	constantNamed:#'Psiware::SystemManagement class warningSearchBarIcon'
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   285
	ifAbsentPut:[(Depth24Image new) width: 22; height: 19; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:'
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   286
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?:.+<Y"P??C\@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>_;?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   287
@@@@?]SZ)5]X.6!! -HM2??''*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?>39-7*B4H&G>[N+%%MJ>\#A@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   288
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@<+R?*U1&?=CN?>W^4HJ@+FY$?>+"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   289
@@@@@@@@@@@@@@@@@@@@?>G_)U!!^>Z^->,B><+"4?*^-%C8?;;Z+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@??#1-(E;.65+?<#H
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   290
?=_T?=GP?::65W-=(EQF?>WQ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?\#D*VAY?;61<;"0;,C@6J^+;*"0>ZN$&CX)6(-:@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   291
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?>#+/7Q148E6?<"4<L&:W#(:G@@@392!!48^G9WM(%24_?=WN@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   292
??C?7Y&$.E5\?;V*=<:8??K_R3X5DP@@4+R49ZZ!!7VIZ/#85)%UR??G/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?=7.2&)6=IJQ?;..=]W@??7*PS$7E@,N
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   293
4<OC?>K^>(M=1S8;)$ID8Y6^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;HNR4U%%<)&S?<^9??_(??;3REEN@P,J2<[C??K/?:R!!/C8?&R(0(T-N?>GZ@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   294
@@@@@@@@@@@@@@@@@@@@?<;H,31B3T9U2'')1?L3@?>3&=^7*XWE0@@<M7=;\??S3?=_U46-,#Q(!!$B,/18"A@@@@@@@@@@@@@@@@@@@@??G&1G!!*,S03)SP,
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   295
3()?>=WL??_:<>33[G:@D2T%;^/,??#8??K19Y6^&R(0!!QPX#S8:;K22@@@@@@@@@@@@@@@@<*RZ+5I@*$D+*T48<[N&?>C_7,+U??3?7N''/(J.-?/+;??W5
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   296
;.O!!?>G_3&]+ 0(O#B8.(U9X@@@@@@@@@@@@?<?Y/%MM.487%$P^7I)7?<&=?=+ <^W3;?C?YV]3JR .-*60=/W35.[#<>W"?:*+*3@3$R\)^R ''2)^T@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   297
?>K2;(ZO2DQ@-SP!!,5H/?<F!!?<V=?;3B?=_"?>7:)72EUBT+<,GD?>?,<M;Z>]GO?<#J8VM& P4P_A0^ C(:?>+''?:"+34%H13L/02("13T(13\,5$H>3S<=
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   298
1TMC0DQD/$IB/D@>.S4;-S,8,C(:,C 9-3X:(A4""@4R_1DT RH&/6%*?82D/S8503873C<85C<923H,23@+/RP\-"HX,"HW+"DX*"@V)10U)1(S)!!XU)AXU
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   299
(Q0_$1XZ#1X["A(]^QPX&34>?;&).&-Z/6]Y06MU1&AR/5UG15-N0EYF1&EO0&EN/&EP.6AN.%5N.5-M.5%P/UYQ.$)I.4)L0UQW/U-\+5YX5XFA') ; mask:((Depth1Image new) width: 22; height: 19; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@C G@G0C@O0C@O8C@_8C@?<C@?<CA?>CC??CC??CC??#G??#O??3O??3_??;????????????????') ; yourself); yourself]
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   300
! !
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   301
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   302
!InternationalLanguageTranslationEditor class methodsFor:'interface specs'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   303
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   304
windowSpec
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   305
    "This resource specification was automatically generated
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   306
     by the UIPainter of ST/X."
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   307
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   308
    "Do not manually edit this!! If it is corrupted,
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   309
     the UIPainter may not be able to read the specification."
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   310
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   311
    "
2048
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
   312
     UIPainter new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#windowSpec
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
   313
     Tools::InternationalLanguageTranslationEditor new openInterface:#windowSpec
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
   314
     Tools::InternationalLanguageTranslationEditor open
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   315
    "
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   316
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   317
    <resource: #canvas>
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   318
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   319
    ^ 
3245
ff9a2e01e0a5 #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3189
diff changeset
   320
    #(FullSpec
ff9a2e01e0a5 #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3189
diff changeset
   321
       name: windowSpec
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   322
       uuid: '37d7f37a-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   323
       window: 
3245
ff9a2e01e0a5 #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3189
diff changeset
   324
      (WindowSpec
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   325
         label: 'InternationalLanguageTranslationEditor'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   326
         name: 'InternationalLanguageTranslationEditor'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   327
         uuid: '37d7f60e-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   328
         min: (Point 10 10)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   329
         bounds: (Rectangle 0 0 774 610)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   330
         menu: mainMenu
3245
ff9a2e01e0a5 #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3189
diff changeset
   331
       )
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   332
       component: 
3245
ff9a2e01e0a5 #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3189
diff changeset
   333
      (SpecCollection
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   334
         collection: (
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   335
          (MenuPanelSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   336
             name: 'ToolBar'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   337
             layout: (LayoutFrame 0 0 0 0 0 1 30 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   338
             uuid: '37d7f820-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   339
             menu: menuToolBar
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   340
             textDefault: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   341
           )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   342
          (VariableVerticalPanelSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   343
             name: 'TranslationsVariableVerticalPanel'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   344
             layout: (LayoutFrame 0 0 30 0 0 1 -32 1)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   345
             uuid: '37d7f9ce-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   346
             component: 
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   347
            (SpecCollection
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   348
               collection: (
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   349
                (DataSetSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   350
                   name: 'KeyStringAndLanguageSelectionTable'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   351
                   uuid: '37d7fb2c-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   352
                   model: selectedKeyRow
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   353
                   menu: keyStringAndLanguageSelectionTableMenu
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   354
                   hasHorizontalScrollBar: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   355
                   hasVerticalScrollBar: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   356
                   dataList: keyStringAndLanguageSelectionTable
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   357
                   columnHolder: keyStringAndLanguageSelectionTableColumnDescriptionHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   358
                   beDependentOfRows: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   359
                   columnAdaptor: yourself
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   360
                   postBuildCallback: postBuildDataSet:
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   361
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   362
                (VariableVerticalPanelSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   363
                   name: 'VariableVerticalPanel1'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   364
                   uuid: '37d7fd48-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   365
                   component: 
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   366
                  (SpecCollection
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   367
                     collection: (
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   368
                      (ViewSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   369
                         name: 'Box1'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   370
                         uuid: '37d7fe24-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   371
                         component: 
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   372
                        (SpecCollection
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   373
                           collection: (
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   374
                            (LabelSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   375
                               label: 'Original String (Key):'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   376
                               name: 'Label2'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   377
                               layout: (LayoutFrame 0 0 -2 0 0 1 28 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   378
                               uuid: '37d7fee2-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   379
                               translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   380
                               adjust: left
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   381
                             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   382
                            (TextEditorSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   383
                               name: 'OriginalText'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   384
                               layout: (LayoutFrame 0 0 27 0 0 1 -2 1)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   385
                               uuid: '37d8002c-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   386
                               model: originalTextHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   387
                               hasHorizontalScrollBar: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   388
                               hasVerticalScrollBar: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   389
                               modifiedChannel: originalTextModifiedHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   390
                               acceptCallBack: languageTextAccepted
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   391
                               hasKeyboardFocusInitially: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   392
                             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   393
                            )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   394
                          
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   395
                         )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   396
                       )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   397
                      (ViewSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   398
                         name: 'Box3'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   399
                         uuid: '37d801bc-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   400
                         component: 
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   401
                        (SpecCollection
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   402
                           collection: (
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   403
                            (LabelSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   404
                               label: 'Select Another Language as example:'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   405
                               name: 'Label3'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   406
                               layout: (LayoutFrame 0 0 -6 0 0 1 24 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   407
                               uuid: '37d80270-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   408
                               translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   409
                               adjust: left
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   410
                             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   411
                            (ComboBoxSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   412
                               name: 'ComboBox1'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   413
                               layout: (LayoutFrame 281 0 -2 0 406 0 18 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   414
                               uuid: '37d80360-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   415
                               model: exampleLanguageSelectionHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   416
                               immediateAccept: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   417
                               acceptOnLeave: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   418
                               acceptOnLostFocus: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   419
                               acceptOnPointerLeave: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   420
                               comboList: shownLanguages
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   421
                               useIndex: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   422
                             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   423
                            (TextEditorSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   424
                               name: 'ExampleLanguageText'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   425
                               layout: (LayoutFrame 0 0 30 0 0 1 0 1)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   426
                               uuid: '37d805cc-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   427
                               model: exampleLanguageTextHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   428
                               hasHorizontalScrollBar: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   429
                               hasVerticalScrollBar: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   430
                               isReadOnly: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   431
                               hasKeyboardFocusInitially: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   432
                             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   433
                            )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   434
                          
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   435
                         )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   436
                       )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   437
                      (ViewSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   438
                         name: 'Box2'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   439
                         uuid: '37d8070c-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   440
                         component: 
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   441
                        (SpecCollection
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   442
                           collection: (
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   443
                            (LabelSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   444
                               label: 'Translated String:'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   445
                               name: 'Label1'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   446
                               layout: (LayoutFrame 0 0 0 0 0 1 30 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   447
                               uuid: '37d807ca-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   448
                               translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   449
                               adjust: left
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   450
                             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   451
                            (TextEditorSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   452
                               name: 'LanguageText'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   453
                               layout: (LayoutFrame 0 0 30 0 0 1 0 1)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   454
                               uuid: '37d808ba-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   455
                               model: languageTextHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   456
                               hasHorizontalScrollBar: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   457
                               hasVerticalScrollBar: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   458
                               acceptChannel: languageTextAcceptHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   459
                               modifiedChannel: languageTextModifiedHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   460
                               acceptCallBack: languageTextAccepted
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   461
                               hasKeyboardFocusInitially: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   462
                               postBuildCallback: languageEditorBuilt:
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   463
                             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   464
                            (ActionButtonSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   465
                               label: 'Paste Original'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   466
                               name: 'Button1'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   467
                               layout: (LayoutFrame -186 0.83085250338295003 0 0 -64 0.83085250338295003 27 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   468
                               uuid: '37d809fa-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   469
                               translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   470
                               model: pasteOriginalInLanguageText
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   471
                               enableChannel: pasteOriginalEnableHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   472
                               disabledLogo: 'Paste Original'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   473
                             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   474
                            (ActionButtonSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   475
                               label: 'Paste Previous'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   476
                               name: 'pastePreviousTranslation'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   477
                               layout: (LayoutFrame -42 0.83085250338295003 0 0 118 0.83085250338295003 27 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   478
                               uuid: '37d80b80-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   479
                               translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   480
                               model: pastePreviousTranslationInLanguageText
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   481
                               enableChannel: pastePreviousTranslationEnableHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   482
                               disabledLogo: 'Paste Previous'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   483
                             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   484
                            )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   485
                          
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   486
                         )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   487
                       )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   488
                      )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   489
                    
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   490
                   )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   491
                   handles: (Any 0.33000000000000002 0.67000000000000004 1.0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   492
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   493
                )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   494
              
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   495
             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   496
             handles: (Any 0.5 1.0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   497
             postBuildCallback: postBuildTranslationsPanel:
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   498
           )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   499
          (ViewSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   500
             name: 'SearchBox'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   501
             layout: (LayoutFrame 0 0 -32 1 0 1 0 1)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   502
             uuid: '37d80cf2-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   503
             level: -1
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   504
             visibilityChannel: searchBoxVisible
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   505
             component: 
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   506
            (SpecCollection
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   507
               collection: (
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   508
                (ActionButtonSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   509
                   label: 'closeSearchBarIcon'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   510
                   name: 'closeSearchBarButton'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   511
                   layout: (LayoutFrame 4 0 5 0 25 0 26 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   512
                   uuid: '37d80dc4-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   513
                   hasCharacterOrientedLabel: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   514
                   translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   515
                   model: closeSearchBar
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   516
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   517
                (LabelSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   518
                   label: 'Search:'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   519
                   name: 'SearchLabel'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   520
                   layout: (LayoutFrame 30 0 5 0 100 0 27 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   521
                   uuid: '37d80ef0-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   522
                   translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   523
                   adjust: right
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   524
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   525
                (InputFieldSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   526
                   name: 'SearchEntryField'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   527
                   layout: (LayoutFrame 100 0 5 0 257 0 27 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   528
                   uuid: '37d80fd6-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   529
                   model: searchTextHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   530
                   immediateAccept: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   531
                   acceptOnReturn: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   532
                   acceptOnTab: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   533
                   acceptOnLostFocus: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   534
                   modifiedChannel: searchTextModifiedHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   535
                   acceptOnPointerLeave: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   536
                   postBuildCallback: postBuildSearchTextView:
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   537
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   538
                (ActionButtonSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   539
                   label: 'searchNextIcon'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   540
                   name: 'SearchNextButton'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   541
                   layout: (LayoutFrame 264 0 5 0 285 0 26 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   542
                   uuid: '37d8117a-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   543
                   hasCharacterOrientedLabel: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   544
                   translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   545
                   model: searchNextText
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   546
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   547
                (ActionButtonSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   548
                   label: 'searchPreviousIcon'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   549
                   name: 'searchPreviousButton'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   550
                   layout: (LayoutFrame 292 0 5 0 313 0 26 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   551
                   uuid: '37d812b0-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   552
                   hasCharacterOrientedLabel: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   553
                   translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   554
                   model: searchPreviousText
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   555
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   556
                (CheckBoxSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   557
                   label: 'Ignore case'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   558
                   name: 'IgnoreCaseCheckBox'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   559
                   layout: (LayoutFrame 322 0 5 0 518 0 27 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   560
                   uuid: '37d813d2-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   561
                   model: ignoreCaseHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   562
                   translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   563
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   564
                (LabelSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   565
                   label: 'SearchBarImageInfoLabel'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   566
                   name: 'SearchBarImageInfoLabel'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   567
                   layout: (LayoutFrame 524 0 5 0 548 0 27 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   568
                   uuid: '37d81512-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   569
                   hasCharacterOrientedLabel: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   570
                   translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   571
                   labelChannel: searchBarImageInfoLabelHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   572
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   573
                (LabelSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   574
                   label: 'SearchBarInfoLabel'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   575
                   name: 'SearchBarInfoLabel'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   576
                   layout: (LayoutFrame 551 0 5 0 829 0 27 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   577
                   uuid: '37d8160c-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   578
                   translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   579
                   labelChannel: searchBarInfoLabelHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   580
                   adjust: left
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   581
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   582
                )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   583
              
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   584
             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   585
             postBuildCallback: postBuildSearchBoxView:
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   586
           )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   587
          )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   588
        
3245
ff9a2e01e0a5 #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3189
diff changeset
   589
       )
ff9a2e01e0a5 #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3189
diff changeset
   590
     )
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   591
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   592
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   593
!InternationalLanguageTranslationEditor class methodsFor:'menu specs'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   594
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
   595
keyStringAndLanguageSelectionTableMenu
641467b2f522 Search String
fm
parents: 2053
diff changeset
   596
    "This resource specification was automatically generated
641467b2f522 Search String
fm
parents: 2053
diff changeset
   597
     by the MenuEditor of ST/X."
641467b2f522 Search String
fm
parents: 2053
diff changeset
   598
641467b2f522 Search String
fm
parents: 2053
diff changeset
   599
    "Do not manually edit this!! If it is corrupted,
641467b2f522 Search String
fm
parents: 2053
diff changeset
   600
     the MenuEditor may not be able to read the specification."
641467b2f522 Search String
fm
parents: 2053
diff changeset
   601
3448
e4a15fd6bec5 #REFACTORING by mawalch
mawalch
parents: 3447
diff changeset
   602
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
   603
    "
641467b2f522 Search String
fm
parents: 2053
diff changeset
   604
     MenuEditor new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#keyStringAndLanguageSelectionTableMenu
641467b2f522 Search String
fm
parents: 2053
diff changeset
   605
     (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor keyStringAndLanguageSelectionTableMenu)) startUp
641467b2f522 Search String
fm
parents: 2053
diff changeset
   606
    "
641467b2f522 Search String
fm
parents: 2053
diff changeset
   607
641467b2f522 Search String
fm
parents: 2053
diff changeset
   608
    <resource: #menu>
641467b2f522 Search String
fm
parents: 2053
diff changeset
   609
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   610
    ^
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
   611
     #(Menu
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   612
	(
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   613
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   614
	    label: 'Browse Methods Containing this String'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   615
	    itemValue: browseReferringMethods
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   616
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   617
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   618
	    label: '-'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   619
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   620
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   621
	    label: 'Set Current NameSpace...'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   622
	    itemValue: changeLastNameSpace
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   623
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   624
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   625
	    label: 'Search String in Current NameSpace'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   626
	    itemValue: searchStringInLastNameSpace
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   627
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   628
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   629
	    label: '-'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   630
	    isVisible: false
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   631
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   632
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   633
	    label: 'Set Current Package...'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   634
	    itemValue: changeLastPackage
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   635
	    isVisible: false
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   636
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   637
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   638
	    label: 'Search String in Current Package'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   639
	    itemValue: searchStringInLastPackage
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   640
	    isVisible: false
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   641
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   642
	 )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   643
	nil
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   644
	nil
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
   645
      )
641467b2f522 Search String
fm
parents: 2053
diff changeset
   646
!
641467b2f522 Search String
fm
parents: 2053
diff changeset
   647
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   648
mainMenu
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   649
    "This resource specification was automatically generated
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   650
     by the MenuEditor of ST/X."
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   651
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   652
    "Do not manually edit this!! If it is corrupted,
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   653
     the MenuEditor may not be able to read the specification."
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   654
3189
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   655
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   656
    "
2050
fm
parents: 2049
diff changeset
   657
     MenuEditor new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#mainMenu
fm
parents: 2049
diff changeset
   658
     (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor mainMenu)) startUp
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   659
    "
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   660
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   661
    <resource: #menu>
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   662
3599
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   663
    ^ 
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   664
     #(Menu
3599
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   665
        (
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   666
         (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   667
            label: 'File'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   668
            submenu: 
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   669
           (Menu
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   670
              (
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   671
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   672
                  label: 'New'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   673
                  itemValue: menuNew
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   674
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   675
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   676
                  label: '-'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   677
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   678
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   679
                  label: 'Open Resources for Package or Project...'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   680
                  itemValue: menuOpenByPackage
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   681
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   682
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   683
                  label: 'Open Resource File...'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   684
                  itemValue: menuOpen
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   685
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   686
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   687
                  label: '-'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   688
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   689
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   690
                  label: 'Save All Resource Files'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   691
                  itemValue: menuSaveAll
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   692
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   693
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   694
                  label: 'Save Resource File'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   695
                  itemValue: menuSave
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   696
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   697
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   698
                  label: 'Save Resource File As...'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   699
                  itemValue: menuSaveAs
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   700
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   701
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   702
                  label: '-'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   703
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   704
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   705
                  label: 'Import existing translations from file...'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   706
                  itemValue: importExistingTranslationsFromFile
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   707
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   708
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   709
                  label: '-'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   710
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   711
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   712
                  label: 'Set Current NameSpace'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   713
                  itemValue: changeLastNameSpace
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   714
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   715
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   716
                  label: 'Set Current Package'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   717
                  itemValue: changeLastPackage
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   718
                  isVisible: false
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   719
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   720
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   721
                  label: '-'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   722
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   723
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   724
                  label: 'Exit'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   725
                  itemValue: closeRequest
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   726
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   727
               )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   728
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   729
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   730
            )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   731
          )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   732
         (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   733
            label: 'View'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   734
            submenu: 
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   735
           (Menu
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   736
              (
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   737
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   738
                  label: 'Show Missing Translations Only'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   739
                  indication: showMissingTranslationsOnly
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   740
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   741
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   742
                  label: 'Show Search Box'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   743
                  indication: searchBoxVisible
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   744
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   745
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   746
                  label: '-'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   747
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   748
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   749
                  label: 'Shown Languages'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   750
                  submenuChannel: shownLanguagesMenu
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   751
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   752
               )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   753
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   754
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   755
            )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   756
          )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   757
         (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   758
            label: 'Languages'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   759
            submenu: 
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   760
           (Menu
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   761
              (
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   762
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   763
                  label: 'Add Language...'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   764
                  itemValue: addLanguage
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   765
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   766
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   767
                  label: 'Remove Language...'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   768
                  itemValue: removeLanguage
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   769
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   770
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   771
                  label: '-'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   772
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   773
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   774
                  label: 'Merge...'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   775
                  itemValue: mergeLanguages
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   776
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   777
               )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   778
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   779
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   780
            )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   781
          )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   782
         (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   783
            label: 'Translations'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   784
            submenuChannel: translationsMenuSpec
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   785
          )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   786
         (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   787
            label: 'Preferences'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   788
            submenu: 
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   789
           (Menu
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   790
              (
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   791
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   792
                  label: 'Auto Accept Changes'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   793
                  indication: autoAcceptHolder
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   794
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   795
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   796
                  label: 'Search For Similar Translations'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   797
                  indication: searchForSimilarTranslationEnableHolder
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   798
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   799
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   800
                  label: 'Always Write UTF8'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   801
                  indication: alwaysWriteUTF8Holder
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   802
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   803
               )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   804
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   805
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   806
            )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   807
          )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   808
         (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   809
            label: 'Help'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   810
            startGroup: right
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   811
            submenu: 
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   812
           (Menu
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   813
              (
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   814
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   815
                  label: 'Documentation'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   816
                  itemValue: openDocumentation
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   817
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   818
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   819
                  label: '-'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   820
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   821
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   822
                  label: 'About this Application...'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   823
                  itemValue: openAboutThisApplication
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   824
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   825
               )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   826
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   827
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   828
            )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   829
          )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   830
         )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   831
        nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   832
        nil
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   833
      )
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   834
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   835
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   836
menuItemsEditLanguage
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   837
    "This resource specification was automatically generated
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   838
     by the MenuEditor of ST/X."
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   839
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   840
    "Do not manually edit this!! If it is corrupted,
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   841
     the MenuEditor may not be able to read the specification."
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   842
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   843
    "
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   844
     MenuEditor new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#menu
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   845
     (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor menu)) startUp
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   846
    "
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   847
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   848
    <resource: #menu>
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   849
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   850
    ^
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   851
     #(Menu
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   852
	(
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   853
	 (MenuItem
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   854
	    enabled: pastePreviousTranslationEnableHolder
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   855
	    label: 'Paste Previous Translation'
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   856
	    itemValue: pastePreviousTranslationInLanguageText
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   857
	    nameKey: pastePreviousTranslationInLanguageText
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   858
	    translateLabel: true
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   859
	  )
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   860
	 )
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   861
	nil
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   862
	nil
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   863
      )
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   864
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   865
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   866
menuToolBar
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   867
    "This resource specification was automatically generated
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   868
     by the MenuEditor of ST/X."
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   869
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   870
    "Do not manually edit this!! If it is corrupted,
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   871
     the MenuEditor may not be able to read the specification."
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   872
2880
Claus Gittinger <cg@exept.de>
parents: 2570
diff changeset
   873
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   874
    "
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   875
     MenuEditor new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#menuToolBar
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   876
     (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor menuToolBar)) startUp
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   877
    "
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   878
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   879
    <resource: #menu>
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   880
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   881
    ^
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   882
     #(Menu
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   883
	(
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   884
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   885
	    label: 'Save'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   886
	    itemValue: menuSave
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   887
	    isButton: true
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   888
	    labelImage: (ResourceRetriever XPToolbarIconLibrary saveImageIcon)
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   889
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   890
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   891
	    label: '-'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   892
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   893
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   894
	    label: 'Add Translation'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   895
	    itemValue: addTranslation
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   896
	    isButton: true
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   897
	    labelImage: (ResourceRetriever XPToolbarIconLibrary newRowIcon)
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   898
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   899
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   900
	    label: 'Remove Translation'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   901
	    itemValue: removeTranslation
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   902
	    isButton: true
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   903
	    labelImage: (ResourceRetriever XPToolbarIconLibrary removeRowIcon)
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   904
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   905
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   906
	    label: '-'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   907
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   908
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   909
	    activeHelpKey: browseReferringMethods
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   910
	    label: 'Browse'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   911
	    itemValue: browseReferringMethods
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   912
	    labelImage: (ResourceRetriever ToolbarIconLibrary systemBrowserIcon)
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   913
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   914
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   915
	    label: ''
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   916
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   917
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   918
	    label: 'Stop Application'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   919
	    itemValue: stopApplication
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   920
	    isButton: true
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   921
	    isVisible: stopApplicationIconVisibleHolder
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   922
	    labelImage: (ResourceRetriever XPToolbarIconLibrary stop16x16Icon)
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   923
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   924
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   925
	    activeHelpKey: searchBox
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   926
	    label: 'Search'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   927
	    isButton: true
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   928
	    startGroup: right
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   929
	    hideMenuOnActivated: false
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   930
	    indication: searchBoxVisible
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   931
	    shortcutKey: Ctrlf
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   932
	    labelImage: (ResourceRetriever #'Tools::InternationalLanguageTranslationEditor' searchToolBarIcon)
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   933
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   934
	 )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   935
	nil
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   936
	nil
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   937
      )
3189
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   938
!
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   939
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   940
translationsMenuSpec
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   941
    "This resource specification was automatically generated
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   942
     by the MenuEditor of ST/X."
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   943
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   944
    "Do not manually edit this!! If it is corrupted,
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   945
     the MenuEditor may not be able to read the specification."
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   946
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   947
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   948
    "
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   949
     MenuEditor new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#translationsMenuSpec
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   950
     (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor translationsMenuSpec)) startUp
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   951
    "
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   952
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   953
    <resource: #menu>
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   954
3626
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   955
    ^ 
3189
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   956
     #(Menu
3626
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   957
        (
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   958
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   959
            label: 'Add Translation...'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   960
            itemValue: addTranslation
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   961
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   962
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   963
            label: 'Remove Translation...'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   964
            itemValue: removeTranslation
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   965
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   966
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   967
            label: '-'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   968
            isVisible: false
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   969
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   970
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   971
            label: 'Search Translation...'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   972
            itemValue: searchTranslation
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   973
            isVisible: false
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   974
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   975
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   976
            label: '-'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   977
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   978
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   979
            label: 'Extract from Package...'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   980
            itemValue: extractTranslationsFromProject
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   981
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   982
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   983
            label: 'Extract from Class...'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   984
            itemValue: extractTranslationsFromClass
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   985
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   986
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   987
            label: 'Extract from NameSpace...'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   988
            itemValue: extractTranslationsFromNameSpace
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   989
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   990
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   991
            label: '-'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   992
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   993
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   994
            label: 'Run Application and Collect Translations...'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   995
            itemValue: runApplicationAndCollectTranslations
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   996
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   997
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   998
            label: '-'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   999
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1000
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1001
            label: 'Generate Missing Translations'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1002
            itemValue: generateMissingTranslations
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1003
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1004
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1005
            label: 'Generate Missing Translations Slice'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1006
            submenuChannel: menuSliceTranslateGenerate
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1007
            isMenuSlice: true
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1008
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1009
         )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1010
        nil
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1011
        nil
3189
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1012
      )
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1013
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1014
2433
88fbe1703c31 +openOnFile
Claus Gittinger <cg@exept.de>
parents: 2419
diff changeset
  1015
!InternationalLanguageTranslationEditor class methodsFor:'startup'!
88fbe1703c31 +openOnFile
Claus Gittinger <cg@exept.de>
parents: 2419
diff changeset
  1016
88fbe1703c31 +openOnFile
Claus Gittinger <cg@exept.de>
parents: 2419
diff changeset
  1017
openOnFile:aFilename
88fbe1703c31 +openOnFile
Claus Gittinger <cg@exept.de>
parents: 2419
diff changeset
  1018
    |fn|
88fbe1703c31 +openOnFile
Claus Gittinger <cg@exept.de>
parents: 2419
diff changeset
  1019
88fbe1703c31 +openOnFile
Claus Gittinger <cg@exept.de>
parents: 2419
diff changeset
  1020
    fn := aFilename asFilename.
88fbe1703c31 +openOnFile
Claus Gittinger <cg@exept.de>
parents: 2419
diff changeset
  1021
3077
48211023a3c7 class: Tools::InternationalLanguageTranslationEditor
Claus Gittinger <cg@exept.de>
parents: 2880
diff changeset
  1022
    ^ self new
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1023
	allButOpen;
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1024
	readResourceFile:fn asLanguage:fn withoutSuffix baseName;
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1025
	openWindow;
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1026
	yourself.
3077
48211023a3c7 class: Tools::InternationalLanguageTranslationEditor
Claus Gittinger <cg@exept.de>
parents: 2880
diff changeset
  1027
!
48211023a3c7 class: Tools::InternationalLanguageTranslationEditor
Claus Gittinger <cg@exept.de>
parents: 2880
diff changeset
  1028
48211023a3c7 class: Tools::InternationalLanguageTranslationEditor
Claus Gittinger <cg@exept.de>
parents: 2880
diff changeset
  1029
openOnPackage:aPackageId
48211023a3c7 class: Tools::InternationalLanguageTranslationEditor
Claus Gittinger <cg@exept.de>
parents: 2880
diff changeset
  1030
    ^ self new
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1031
	allButOpen;
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1032
	readResourceFileForPackage:aPackageId;
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1033
	openWindow;
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1034
	yourself.
2433
88fbe1703c31 +openOnFile
Claus Gittinger <cg@exept.de>
parents: 2419
diff changeset
  1035
! !
88fbe1703c31 +openOnFile
Claus Gittinger <cg@exept.de>
parents: 2419
diff changeset
  1036
2047
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1037
!InternationalLanguageTranslationEditor class methodsFor:'tableColumns specs'!
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1038
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1039
keyTableColumn
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1040
    "This resource specification was automatically generated
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1041
     by the DataSetBuilder of ST/X."
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1042
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1043
    "Do not manually edit this!! If it is corrupted,
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1044
     the DataSetBuilder may not be able to read the specification."
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1045
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1046
    "
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1047
     DataSetBuilder new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#keyTableColumn
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1048
    "
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1049
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1050
    <resource: #tableColumns>
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1051
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1052
    ^#(
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1053
      (DataSetColumnSpec
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1054
	 label: 'Key'
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1055
	 labelButtonType: Button
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1056
	 minWidth: 50
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1057
	 model: keyStringInRow:
2047
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1058
       )
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1059
      )
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1060
!
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1061
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1062
languageTableColumn
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1063
    "This resource specification was automatically generated
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1064
     by the DataSetBuilder of ST/X."
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1065
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1066
    "Do not manually edit this!! If it is corrupted,
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1067
     the DataSetBuilder may not be able to read the specification."
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1068
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1069
    "
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1070
     DataSetBuilder new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#languageTableColumn
2047
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1071
    "
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1072
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1073
    <resource: #tableColumns>
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1074
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1075
    ^#(
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1076
      (DataSetColumnSpec
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1077
	 label: lang
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1078
	 labelButtonType: Button
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1079
	 minWidth: 50
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1080
	 editorType: None
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1081
	 model: columnInRow:at:
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1082
	 backgroundSelector: getBackgroundForRow:rowNr:col:
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1083
       )
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1084
      )
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1085
! !
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1086
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1087
!InternationalLanguageTranslationEditor methodsFor:'accessing'!
2047
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1088
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1089
currentSelectionIndex
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1090
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1091
    ^ self selectedKeyRow value
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1092
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1093
    "Created: / 16-06-2007 / 09:04:11 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1094
    "Modified: / 19-06-2007 / 17:28:38 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1095
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1096
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1097
exists: anObject
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1098
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1099
    ^self objectsList includes: anObject
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1100
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1101
    "Created: / 19-06-2007 / 16:42:22 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1102
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1103
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1104
indexOf: anObject
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1105
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1106
    ^self objectsList indexOf: anObject
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1107
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1108
    "Created: / 19-06-2007 / 16:39:44 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1109
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1110
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1111
newLanguageText
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1112
"/   languageEditor accept
3245
ff9a2e01e0a5 #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3189
diff changeset
  1113
    ^self languageTextHolder value isEmptyOrNil
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1114
	ifTrue:['']
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1115
	ifFalse:[self languageTextHolder value asCollectionOfLines first.]
2050
fm
parents: 2049
diff changeset
  1116
!
fm
parents: 2049
diff changeset
  1117
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1118
objectsList
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1119
3626
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1120
    ^ keyStringsToLanguageMappings
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1121
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1122
    "Modified: / 25-10-2018 / 16:25:08 / Claus Gittinger"
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1123
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1124
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1125
selectListIndex: rowIndex
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1126
"/    |selection list|
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1127
"/    list := self objectsList.