Merge pull request magritte-metamodel#382 from seandenigris/enh_icon-description

[Enh]: Icon Description

Author: seandenigris

source/Magritte-GToolkit/MAIconDescription.extension.st

@@ -0,0 +1,18 @@
+Extension { #name : #MAIconDescription }
+
+{ #category : #'*Magritte-GToolkit' }
+MAIconDescription >> gtAddColumnTo: aView [
+
+	self 
+		propertyAt: #columnWidth
+		ifPresent: [ :width |
+			aView 
+				column: self label 
+					iconName: [ :anObject | anObject perform: self iconNameAccessor ]
+					width: width.
+			^ self ].
+			
+	aView 
+		column: self label 
+			iconName: [ :anObject | anObject perform: self iconNameAccessor ]
+]

source/Magritte-Model/MAIconDescription.class.st

@@ -0,0 +1,18 @@
+Class {
+	#name : #MAIconDescription,
+	#superclass : #MAElementDescription,
+	#instVars : [
+		'iconNameAccessor'
+	],
+	#category : #'Magritte-Model-Description'
+}
+
+{ #category : #accessing }
+MAIconDescription >> iconNameAccessor [
+	^ iconNameAccessor
+]
+
+{ #category : #accessing }
+MAIconDescription >> iconNameAccessor: anObject [
+	iconNameAccessor := anObject
+]