equal
deleted
inserted
replaced
7403 |
7403 |
7404 <resource: #keyboard (#Find #Cmdn #Cmdl #Cmdi #Cmds #Cmdg #Cmdt #Cmda #Cmdc #Cmdo)> |
7404 <resource: #keyboard (#Find #Cmdn #Cmdl #Cmdi #Cmds #Cmdg #Cmdt #Cmda #Cmdc #Cmdo)> |
7405 |
7405 |
7406 |untranslatedKey| |
7406 |untranslatedKey| |
7407 |
7407 |
7408 untranslatedKey := self graphicsDevice keyboardMap keyAtValue:key ifAbsent:key. |
7408 untranslatedKey := device keyboardMap keyAtValue:key ifAbsent:key. |
7409 |
7409 |
7410 view == classCategoryListView ifTrue:[ |
7410 view == classCategoryListView ifTrue:[ |
7411 (key == #Find) ifTrue:[^ true]. |
7411 (key == #Find) ifTrue:[^ true]. |
7412 (untranslatedKey == #Cmdn) ifTrue:[^ true]. |
7412 (untranslatedKey == #Cmdn) ifTrue:[^ true]. |
7413 (untranslatedKey == #Cmdc) ifTrue:[^ true]. |
7413 (untranslatedKey == #Cmdc) ifTrue:[^ true]. |
7451 |untranslatedKey| |
7451 |untranslatedKey| |
7452 |
7452 |
7453 "/ |
7453 "/ |
7454 "/ have to untranslate (since we get #Inspect / #Search |
7454 "/ have to untranslate (since we get #Inspect / #Search |
7455 "/ |
7455 "/ |
7456 untranslatedKey := self graphicsDevice keyboardMap keyAtValue:key ifAbsent:key. |
7456 untranslatedKey := device keyboardMap keyAtValue:key ifAbsent:key. |
7457 |
7457 |
7458 view == classCategoryListView ifTrue:[ |
7458 view == classCategoryListView ifTrue:[ |
7459 (key == #Find) ifTrue:[^ self classCategoryFindClass]. |
7459 (key == #Find) ifTrue:[^ self classCategoryFindClass]. |
7460 (untranslatedKey == #Cmdn) ifTrue:[^ self classCategoryNewCategory]. |
7460 (untranslatedKey == #Cmdn) ifTrue:[^ self classCategoryNewCategory]. |
7461 (untranslatedKey == #Cmdc) ifTrue:[^ self browserClone]. |
7461 (untranslatedKey == #Cmdc) ifTrue:[^ self browserClone]. |
13241 true "(icn := Icons at:name ifAbsent:nil) isNil" ifTrue: [ |
13241 true "(icn := Icons at:name ifAbsent:nil) isNil" ifTrue: [ |
13242 icn := (SystemBrowser perform:fetchSelector) onDevice:Screen current. |
13242 icn := (SystemBrowser perform:fetchSelector) onDevice:Screen current. |
13243 "/ Icons at:name put:icn. |
13243 "/ Icons at:name put:icn. |
13244 ]. |
13244 ]. |
13245 h := icn height. |
13245 h := icn height. |
13246 h > (fh := SelectionInListView defaultFont heightOn:self graphicsDevice) ifTrue:[ |
13246 h > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[ |
13247 icn := icn magnifiedBy:(fh / h) |
13247 icn := icn magnifiedBy:(fh / h) |
13248 ]. |
13248 ]. |
13249 icn onDevice:self graphicsDevice |
13249 icn onDevice:device |
13250 ] |
13250 ] |
13251 |
13251 |
13252 " |
13252 " |
13253 Icons := nil |
13253 Icons := nil |
13254 " |
13254 " |
13504 codeView modified ifFalse:[ |
13504 codeView modified ifFalse:[ |
13505 "/ oldCode := oldCodeList asStringWithoutEmphasis. |
13505 "/ oldCode := oldCodeList asStringWithoutEmphasis. |
13506 cls := actualClass. |
13506 cls := actualClass. |
13507 |
13507 |
13508 codeView modified ifFalse:[ |
13508 codeView modified ifFalse:[ |
13509 Screen currentScreenQuerySignal answer:self graphicsDevice |
13509 Screen currentScreenQuerySignal answer:device |
13510 do:[ |
13510 do:[ |
13511 newCode := highlighter formatMethodSource:oldCode in:cls. |
13511 newCode := highlighter formatMethodSource:oldCode in:cls. |
13512 ]. |
13512 ]. |
13513 |
13513 |
13514 "/ must add this event - and not been interrupted |
13514 "/ must add this event - and not been interrupted |