Login | Register
My pages Projects Community openCollabNet

Discussions > commits > svn commit: r40 - trunk

genelib
Discussion topic

Back to topic list

svn commit: r40 - trunk

Author lotec
Full name Jan Bogaerts
Date 2006-04-28 09:50:04 PDT
Message Author: LoTeC
Date: 2006-04-28 09:50:03-0700
New Revision: 40

Modified:
   trunk/Actions.gen
   trunk/Controls.gen
   trunk/Menus.gen

Log:
minor bug fixes

Modified: trunk/Actions.gen
Url: http://genelib.tigri​s.org/source/browse/​genelib/trunk/Action​s.gen?view=diff&​rev=40&p1=trunk/​Actions.gen&p2=t​runk/Actions.gen​&r1=39&r2=40
====================​====================​====================​==================
--- trunk/Actions.gen (original)
+++ trunk/Actions.gen 2006-04-28 09:50:03-0700
@@ -111,27 +111,25 @@
    //set observer
    //set properties
    
- iObs: sActionObserver^
- iObs = sActionObserver^(self)
    
    [<-fAction <> nil->
       iEl: fAction.Observers.entity
       iFound: bool = false
       {<-fAction.Observers \ iEl->
- [<-iEl.entity == iObs->
+ [<-iEl.entity == self->
             iEl ->> nil
             ifound = true
             break
          ]
       }
-// iEl = fAction.Observers(entity == iObs)
+// iEl = fAction.Observers(entity == self)
       [<-iFound == false->
          raise(exception.crea​te('couldn|'t find action'))
       ]
    ]
    fAction = aValue
    [<-fAction <> nil->
- fAction.Observers << iObs
+ fAction.Observers << self
    ]
 ;
 

Modified: trunk/Controls.gen
Url: http://genelib.tigri​s.org/source/browse/​genelib/trunk/Contro​ls.gen?view=diff​&rev=40&p1=trunk​/Controls.gen&p2​=trunk/Controls.gen​&r1=39&r2=40
====================​====================​====================​==================
--- trunk/Controls.gen (original)
+++ trunk/Controls.gen 2006-04-28 09:50:03-0700
@@ -1087,8 +1087,8 @@
     <-->
       fValues.data.Item.Mask |= TVIF_TEXT
       fValues.data.Item.TextMax = int(aValue.NrRecords)
- fValues.data.Item.text = memory.malloc(aValue.NrRecords)
- memory.memcpy(fValue​s.data.Item.text, aVAlue.c_str, aValue.NrRecords)
+ fValues.data.Item.text = memory.malloc(aValue.NrRecords + 1) //+1 is for the /0 at the end
+ memory.memcpy(fValue​s.data.Item.text, aVAlue.c_str, aValue.NrRecords + 1)
    ]
 ;
 

Modified: trunk/Menus.gen
Url: http://genelib.tigri​s.org/source/browse/​genelib/trunk/Menus.​gen?view=diff&re​v=40&p1=trunk/Me​nus.gen&p2=trunk​/Menus.gen&r1=39​&r2=40
====================​====================​====================​==================
--- trunk/Menus.gen (original)
+++ trunk/Menus.gen 2006-04-28 09:50:03-0700
@@ -380,7 +380,10 @@
       [<-User32.RemoveM​enu(Owner.Handle, fIndex, MF_BYPOSITION) == false-> System.RaiseLastOsError ]
       //set all the indexes of the following items - 1
       iEl: owner.entity
- iEl = Owner(entity == self)
+ {<-Owner^ \ iEl->
+ [<-iel.entity == self-> break]
+ }
+ //iEl = Owner(entity == self)
       Owner.AdjustIndexes(iEl, -1)
    ]
 ;

« Previous message in topic | 1 of 1 | Next message in topic »

Messages

Show all messages in topic

svn commit: r40 - trunk lotec Jan Bogaerts 2006-04-28 09:50:04 PDT
Messages per page: