equal
deleted
inserted
replaced
125 menuHolder: |
125 menuHolder: |
126 [ |
126 [ |
127 |m| |
127 |m| |
128 |
128 |
129 m := v scrolledView editMenu. |
129 m := v scrolledView editMenu. |
130 m addLabel:'-' selector:nil. |
130 m addSeparator. "/ m addLabel:'-' selector:nil. |
131 m addLabel:'Change Base Address...' selector:#changeBase. |
131 m addLabel:'Change Base Address...' |
132 m actionAt:#changeBase |
132 selector:#changeBase |
133 put:[ |
133 action:[ |
134 |s b| |
134 |s b| |
135 |
135 |
136 s := Dialog request:'Base address (hex):' initialAnswer:(baseAddress printStringRadix:16). |
136 s := Dialog request:'Base address (hex):' initialAnswer:(baseAddress printStringRadix:16). |
137 s notEmptyOrNil ifTrue:[ |
137 s notEmptyOrNil ifTrue:[ |
138 b := Integer readFrom:s radix:16 onError:nil. |
138 b := Integer readFrom:s radix:16 onError:nil. |
1077 inspectorClass |
1077 inspectorClass |
1078 "redefined to launch an ImageInspector |
1078 "redefined to launch an ImageInspector |
1079 (instead of the default InspectorView)." |
1079 (instead of the default InspectorView)." |
1080 |
1080 |
1081 ^ ImageInspectorView |
1081 ^ ImageInspectorView |
|
1082 ! ! |
|
1083 |
|
1084 !Fraction methodsFor:'inspecting'! |
|
1085 |
|
1086 inspectorExtraAttributes |
|
1087 "extra (pseudo instvar) entries to be shown in an inspector." |
|
1088 |
|
1089 ^ super inspectorExtraAttributes |
|
1090 add:( '-asFloat' -> [ self asLongFloat printString ] ); |
|
1091 yourself |
1082 ! ! |
1092 ! ! |
1083 |
1093 |
1084 !GenericException class methodsFor:'misc ui support'! |
1094 !GenericException class methodsFor:'misc ui support'! |
1085 |
1095 |
1086 iconInBrowserSymbol |
1096 iconInBrowserSymbol |
2294 |
2304 |
2295 inspector2Tabs |
2305 inspector2Tabs |
2296 |tabs| |
2306 |tabs| |
2297 |
2307 |
2298 tabs := super inspector2Tabs. |
2308 tabs := super inspector2Tabs. |
|
2309 self isExternalBytes ifTrue:[^ tabs]. |
|
2310 |
2299 ^ tabs copyWith:#inspector2TabGraph |
2311 ^ tabs copyWith:#inspector2TabGraph |
2300 ! ! |
2312 ! ! |
2301 |
2313 |
2302 !Set methodsFor:'misc ui support'! |
2314 !Set methodsFor:'misc ui support'! |
2303 |
2315 |
2515 add:'-dayInYear' -> [ self dayInYear ]; |
2527 add:'-dayInYear' -> [ self dayInYear ]; |
2516 add:'-daysInMonth' -> [ self asDate daysInMonth ]; |
2528 add:'-daysInMonth' -> [ self asDate daysInMonth ]; |
2517 add:'-monthName' -> [ self asDate monthName ]; |
2529 add:'-monthName' -> [ self asDate monthName ]; |
2518 add:'-weekNr' -> [ self asDate weekInYear ]; |
2530 add:'-weekNr' -> [ self asDate weekInYear ]; |
2519 add:'-leapYear' -> [ self asDate isLeapYear ]; |
2531 add:'-leapYear' -> [ self asDate isLeapYear ]; |
2520 add:'-iso8601(utc)' -> [ self asUtcTimestamp printStringIso8601 ]; |
2532 add:'-iso8601(utc)'-> [ self asUtcTimestamp printStringIso8601 ]; |
|
2533 add:'-millisecond' -> [ self milliseconds ]; |
|
2534 add:'-microsecond' -> [ self microseconds ]; |
|
2535 add:'-nanosecond' -> [ self nanoseconds ]; |
|
2536 add:'-picosecond' -> [ self picoseconds ]; |
2521 yourself |
2537 yourself |
2522 |
2538 |
2523 " |
2539 " |
2524 Timestamp now inspect |
2540 Timestamp now inspect |
2525 " |
2541 " |