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