Browse Source

Changed get/set Value/Text to just Value/Text

Armando Rivera 1 year ago
parent
commit
8564020555
2 changed files with 11 additions and 11 deletions
  1. 8 8
      GUI/cocoa.inc
  2. 3 3
      GUI/slider.bas

+ 8 - 8
GUI/cocoa.inc

@@ -75,26 +75,26 @@ sub FORM::Add(ID%,item$,sel$)
     end if
 end sub
 
-sub FORM::setText(ID%,text$)
+sub FORM::Text(ID%,text$)
     dim tmpObj as id
     tmpObj = this.handle[ID%]
     SetText(tmpObj,text$)
 end sub
 
-sub FORM::setValue(ID%,value%)
+sub FORM::Value(ID%,value%)
     dim tmpObj as id
     tmpObj = this.handle[ID%]
     SetValue(tmpObj,value%)
 end sub
 
-function FORM::getText$(ID%)
+function FORM::Text$(ID%)
     dim tmpObj as id
     tmpObj = this.handle[ID%]
 
     function = GetText(tmpObj)
 end function
 
-function FORM::getValue%(ID%)
+function FORM::Value%(ID%)
     dim tmpObj as id
     tmpObj = this.handle[ID%]
 
@@ -144,10 +144,10 @@ TYPE FORM
     sub newSlider optional (ID%,left%,top%,width%,height%,position%=0,func as ACTION=NULL)
     sub newList optional (ID%,left%,top%,width%,height%,position%=0)
     sub Add optional (ID%,item$,sel$="")
-    sub setText(ID%,text$)
-    sub setValue(ID%,value%)
-    function getText$(ID%)
-    function getValue(ID%)
+    sub Text(ID%,text$)
+    function Text$(ID%)
+    sub Value(ID%,value%)
+    function Value(ID%)
     function openDialog$(filter$)
     sub removeItem(%ID,position%)
 

+ 3 - 3
GUI/slider.bas

@@ -3,13 +3,13 @@ $MODULE "cocoa.inc"
 $EXECON 
 
 sub slider_cb(widget as id)
-	mywin.setText(label, "Slider Value: " + STR$(mywin.getValue(slider)))
+	mywin.Text(label, "Slider Value: " + STR$(mywin.Value(slider)))
 end sub
 
 Const initialValue = 25
 
 objects as ENUM
-    label
+    label 
     slider
 end enum
 
@@ -19,6 +19,6 @@ Cocoa_Init()
     with mywin
         .newLabel(label,"Slider Value: " + STR$(initialValue), 16, 16, 120, 26)
         .newSlider(slider, 16, 32, 200, 26, akWidth, slider_cb)
-        .setValue(slider,initialValue)
+        .Value(slider,initialValue)
     end with
 Cocoa_Run()