hi,
I move inspector extensions to Inspector/Extensions.st file.
Cheers,
Gwen
>From 835302b584bab0ab9fbf6167a87e4d1210c67f43 Mon Sep 17 00:00:00 2001
From: Gwenael Casaccio <mrg...@gmail.com>
Date: Thu, 12 Sep 2013 16:35:40 +0200
Subject: [PATCH] Move inspector extensions to Inspector/Extensions.st file
---
packages/visualgst/ChangeLog | 5 ++
packages/visualgst/Extensions.st | 72 ----------------
packages/visualgst/Inspector/Extensions.st | 131 +++++++++++++++++++++++++++++
packages/visualgst/package.xml | 2 +
4 files changed, 138 insertions(+), 72 deletions(-)
create mode 100644 packages/visualgst/Inspector/Extensions.st
diff --git a/packages/visualgst/ChangeLog b/packages/visualgst/ChangeLog
index b2b13e3..1185b1d 100644
--- a/packages/visualgst/ChangeLog
+++ b/packages/visualgst/ChangeLog
@@ -1,3 +1,8 @@
+2013-06-18 Gwenael Casaccio <gwenael.casac...@gmail.com>
+
+ * Inspector/Extensions.st: New.
+ * Extensions.st: Move inspector extensions to Inspector/Extensions.st file.
+
2013-06-18 Gwenael Casaccio <mrg...@gmail.com>
* Debugger/GtkDebugger.st: Center the view and select one line.
diff --git a/packages/visualgst/Extensions.st b/packages/visualgst/Extensions.st
index f2f13b7..40b6013 100644
--- a/packages/visualgst/Extensions.st
+++ b/packages/visualgst/Extensions.st
@@ -45,19 +45,6 @@ Eval [
Object extend [
- gtkInspect [
- "Open a GtkInspector on self"
- <category: '*VisualGST'>
-
- VisualGST.GtkInspector openOn: self
- ]
-
- inspectorView [
- <category: '*VisualGST'>
-
- ^ VisualGST.GtkObjectInspectorView
- ]
-
hasLiterals [
<category: '*VisualGST'>
@@ -134,20 +121,9 @@ CompiledMethod extend [
self override ifTrue: [ ^ self class overrideIcon ].
^ nil
]
-
- inspectorView [
- <category: '*VisualGST'>
-
- ^ VisualGST.GtkCompiledMethodInspectorView
- ]
]
CompiledBlock extend [
- inspectorView [
- <category: '*VisualGST'>
-
- ^ VisualGST.GtkCompiledBlockInspectorView
- ]
methodRecompilationSourceString [
<category: '*VisualGST'>
@@ -156,54 +132,6 @@ CompiledBlock extend [
]
]
-SequenceableCollection extend [
- inspectorView [
- <category: '*VisualGST'>
-
- ^ VisualGST.GtkSequenceableCollectionInspectorView
- ]
-]
-
-Set extend [
- inspectorView [
- <category: '*VisualGST'>
-
- ^ VisualGST.GtkSetInspectorView
- ]
-]
-
-Dictionary extend [
- inspectorView [
- <category: '*VisualGST'>
-
- ^ VisualGST.GtkDictionaryInspectorView
- ]
-]
-
-Character extend [
- inspectorView [
- <category: '*VisualGST'>
-
- ^ VisualGST.GtkCharacterInspectorView
- ]
-]
-
-Integer extend [
- inspectorView [
- <category: '*VisualGST'>
-
- ^ VisualGST.GtkIntegerInspectorView
- ]
-]
-
-Float extend [
- inspectorView [
- <category: '*VisualGST'>
-
- ^ VisualGST.GtkFloatInspectorView
- ]
-]
-
Symbol extend [
hasLiterals [
<category: '*VisualGST'>
diff --git a/packages/visualgst/Inspector/Extensions.st b/packages/visualgst/Inspector/Extensions.st
new file mode 100644
index 0000000..354fb58
--- /dev/null
+++ b/packages/visualgst/Inspector/Extensions.st
@@ -0,0 +1,131 @@
+"======================================================================
+|
+| Extensions
+|
+======================================================================"
+
+"======================================================================
+|
+| Copyright (c) 2013
+| Gwenael Casaccio <gwenael.casac...@gmail.com>,
+|
+|
+| This file is part of VisualGST.
+|
+| Permission is hereby granted, free of charge, to any person obtaining
+| a copy of this software and associated documentation files (the
+| 'Software'), to deal in the Software without restriction, including
+| without limitation the rights to use, copy, modify, merge, publish,
+| distribute, sublicense, and/or sell copies of the Software, and to
+| permit persons to whom the Software is furnished to do so, subject to
+| the following conditions:
+|
+| The above copyright notice and this permission notice shall be
+| included in all copies or substantial portions of the Software.
+|
+| THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+| EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+| MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+| IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+| CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+| TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+| SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+|
+======================================================================"
+
+Object extend [
+
+ gtkInspect [
+ <category: '*VisualGST'>
+
+ VisualGST.GtkInspector openOn: self
+ ]
+
+ inspectorView [
+ <category: '*VisualGST'>
+
+ ^ VisualGST.GtkObjectInspectorView
+ ]
+]
+
+CompiledMethod extend [
+
+ inspectorView [
+ <category: '*VisualGST'>
+
+ ^ VisualGST.GtkCompiledMethodInspectorView
+ ]
+]
+
+CompiledBlock extend [
+
+ inspectorView [
+ <category: '*VisualGST'>
+
+ ^ VisualGST.GtkCompiledBlockInspectorView
+ ]
+]
+
+SequenceableCollection extend [
+
+ inspectorView [
+ <category: '*VisualGST'>
+
+ ^ VisualGST.GtkSequenceableCollectionInspectorView
+ ]
+]
+
+Set extend [
+
+ inspectorView [
+ <category: '*VisualGST'>
+
+ ^ VisualGST.GtkSetInspectorView
+ ]
+]
+
+Dictionary extend [
+
+ inspectorView [
+ <category: '*VisualGST'>
+
+ ^ VisualGST.GtkDictionaryInspectorView
+ ]
+]
+
+Character extend [
+
+ inspectorView [
+ <category: '*VisualGST'>
+
+ ^ VisualGST.GtkCharacterInspectorView
+ ]
+]
+
+Integer extend [
+
+ inspectorView [
+ <category: '*VisualGST'>
+
+ ^ VisualGST.GtkIntegerInspectorView
+ ]
+]
+
+Float extend [
+
+ inspectorView [
+ <category: '*VisualGST'>
+
+ ^ VisualGST.GtkFloatInspectorView
+ ]
+]
+
+ContextPart extend [
+
+ stackInspectorView [
+ <category: '*VisualGST'>
+
+ ^ GtkStackInspectorView
+ ]
+]
+
diff --git a/packages/visualgst/package.xml b/packages/visualgst/package.xml
index 612be1f..6db32bc 100644
--- a/packages/visualgst/package.xml
+++ b/packages/visualgst/package.xml
@@ -205,6 +205,7 @@
<filein>Text/GtkSourceCodeWidget.st</filein>
<filein>StBrowser/GtkClassHierarchyWidget.st</filein>
<filein>GtkHistoryWidget.st</filein>
+ <filein>Inspector/Extensions.st</filein>
<filein>Inspector/GtkInspector.st</filein>
<filein>StBrowser/GtkClassBrowserWidget.st</filein>
<filein>GtkEntryDialog.st</filein>
@@ -473,6 +474,7 @@
<file>Undo/Text/DeleteTextCommand.st</file>
<file>Undo/Text/ReplaceTextCommand.st</file>
<file>Clock/GtkClock.st</file>
+ <file>Inspector/Extensions.st</file>
<file>Inspector/GtkInspectorSourceWidget.st</file>
<file>Inspector/GtkInspectorBrowserWidget.st</file>
<file>Inspector/GtkInspectorWidget.st</file>
--
1.8.1.2
_______________________________________________
help-smalltalk mailing list
help-smalltalk@gnu.org
https://lists.gnu.org/mailman/listinfo/help-smalltalk
