# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 931457984 -7200
# Node ID b348c8e9a1c73b51af15e11ee035ac15869de67a
# Parent  57a2a0edeb7913fb110045ba153525ed475859d5
made ScrollBars and Scrollers invisible;
they do not work yet (have no model)

diff -r 57a2a0edeb79 -r b348c8e9a1c7 UISelectionPanel.st
--- a/UISelectionPanel.st	Thu Jul 08 20:12:42 1999 +0200
+++ b/UISelectionPanel.st	Thu Jul 08 20:19:44 1999 +0200
@@ -1066,8 +1066,8 @@
      the UIPainter may not be able to read the specification."
 
     "
-     UIPainter new openOnClass:UISelectionPanel andSelector:#standardMisc
-     UISelectionPanel new openInterface:#standardMisc
+     UIPainter new openOnClass:Smalltalk::UISelectionPanel andSelector:#standardMisc
+     Smalltalk::UISelectionPanel new openInterface:#standardMisc
     "
 
     <resource: #canvas>
@@ -1079,10 +1079,10 @@
        #(#WindowSpec
           #label: 'NewApplication'
           #name: 'NewApplication'
-          #layout: #(#LayoutFrame 220 0 200 0 658 0 442 0)
+          #layout: #(#LayoutFrame 44 0 195 0 482 0 437 0)
           #min: #(#Point 10 10)
           #max: #(#Point 1280 1024)
-          #bounds: #(#Rectangle 220 200 659 443)
+          #bounds: #(#Rectangle 44 195 483 438)
         )
         #component: 
        #(#SpecCollection
@@ -1130,6 +1130,7 @@
               #label: 'ScrollBar'
               #name: 'ScrollBarLabel'
               #layout: #(#AlignmentOrigin 87 0 103 0 1 0)
+              #initiallyInvisible: true
               #style: #(#FontDescription #helvetica #medium #roman 10)
               #resizeForLabel: true
               #canUIDrag: false
@@ -1138,6 +1139,7 @@
               #label: 'Scroller'
               #name: 'ScrollerLabel'
               #layout: #(#AlignmentOrigin 87 0 130 0 1 0)
+              #initiallyInvisible: true
               #style: #(#FontDescription #helvetica #medium #roman 10)
               #resizeForLabel: true
               #canUIDrag: false
@@ -1145,6 +1147,7 @@
            #(#ScrollerSpec
               #name: 'Scroller'
               #layout: #(#LayoutFrame 88 0 127 0 203 0 145 0)
+              #initiallyInvisible: true
               #orientation: #horizontal
             )
            #(#SteppingSliderSpec
@@ -1162,6 +1165,7 @@
            #(#ScrollerSpec
               #name: 'VScroller'
               #layout: #(#LayoutFrame 345 0 6 0 363 0 106 0)
+              #initiallyInvisible: true
             )
            #(#LabelSpec
               #label: 'Region'
@@ -1223,11 +1227,13 @@
            #(#ScrollBarSpec
               #name: 'ScrollBar'
               #layout: #(#LayoutFrame 88 0 100 0 203 0 118 0)
+              #initiallyInvisible: true
               #orientation: #horizontal
             )
            #(#ScrollBarSpec
               #name: 'VScrollBar'
               #layout: #(#LayoutFrame 317 0 6 0 335 0 106 0)
+              #initiallyInvisible: true
             )
            )