GraphColumnViewSpec.st
changeset 1434 e0d070c01741
parent 1260 601b187cf4c4
child 1655 227e03cb343e
--- a/GraphColumnViewSpec.st	Wed Jul 07 17:47:41 1999 +0200
+++ b/GraphColumnViewSpec.st	Wed Jul 07 19:07:30 1999 +0200
@@ -14,7 +14,7 @@
 
 MenuComponentSpec subclass:#GraphColumnViewSpec
 	instanceVariableNames:'listHolder references referenceSelector showGrid showDefaultMenu
-		borderWidth zoomY windowSize graphOriginX scrollUpdatesOriginX'
+		zoomY windowSize graphOriginX scrollUpdatesOriginX'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Support-UI-Specs'
@@ -110,15 +110,6 @@
         channel:aChannel
         converter:#symbolOrNil.
 
-    self 
-        adaptApects:
-                    #(  
-                        borderWidth
-                     )
-        to:env 
-        for:inst 
-        channel:aChannel
-        converter:#numberOrNil.
 ! !
 
 !GraphColumnViewSpec class methodsFor:'interface gallery'!
@@ -419,17 +410,6 @@
 
 !GraphColumnViewSpec methodsFor:'accessing'!
 
-borderWidth
-    "return the value of the instance variable 'borderWidth' (automatically generated)"
-
-    ^ borderWidth ? 0
-!
-
-borderWidth:something
-    "set the value of the instance variable 'borderWidth' (automatically generated)"
-
-    borderWidth := something.!
-
 graphOriginX
     "return the value of the instance variable 'graphOriginX' (automatically generated)"
 
@@ -561,8 +541,6 @@
     aView scrollUpdatesOriginX:(self scrollUpdatesOriginX).
     aView showDefaultMenu:(self showDefaultMenu).
 
-    aView borderWidth:(self borderWidth).
-
     aBuilder isEditing ifFalse:[
         windowSize notNil ifTrue:[
             aView windowSizeHolder:(self getBindingIn:aBuilder binding:windowSize)
@@ -616,8 +594,6 @@
         l add:#showDefaultMenu
     ].        
 
-    self borderWidth == 0 ifTrue:[ l add:#borderWidth ].
-
   ^ l
 
 
@@ -631,7 +607,6 @@
 
     showGrid             := aView showGrid.
     showDefaultMenu      := aView showDefaultMenu.
-    borderWidth          := aView borderWidth.
     scrollUpdatesOriginX := aView scrollUpdatesOriginX.
 
     super fromView:aView callBack:aBlock
@@ -650,6 +625,6 @@
 !GraphColumnViewSpec class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnViewSpec.st,v 1.9 1999-03-19 14:08:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnViewSpec.st,v 1.10 1999-07-07 17:07:30 cg Exp $'
 ! !
 GraphColumnViewSpec initialize!