What variable type is "?" for CatchImage?

[marcoagpinto]

Heya,

I want to create a Procedure CatchImageEnhanced(gadget,?,error_message$).

What type of variable is the "?" ?

Code: Select all

  ; Pop-up menus
  If CatchImage(#GLOBAL_IMAGE_POPUP_EDIT,?popup_edit)=#False : MessageRequester("Error", "Can't load image.",#PB_MessageRequester_Error) : EndIf         
  If CatchImage(#GLOBAL_IMAGE_POPUP_ADD,?popup_add)=#False : MessageRequester("Error", "Can't load image.",#PB_MessageRequester_Error) : EndIf     

  DataSection
    
    ; Pop-up menus
    popup_edit:      
      IncludeBinary "./media/popup_edit.png"
    popup_delete:      
      IncludeBinary "./media/popup_delete.png"

   blah blah blah

Thanks!

[Kiffi]

Note: The "?" is a pointer to a label.

[marcoagpinto]

Note: The "?" is a pointer to a label.

Heya, is there a way to use it in the parameters of a Procedure?

[idle]

something like this

Code: Select all

Procedure doit(param) 
  Protected len 
  
  len = PeekL(param)
  Debug PeekS(param+4,len) 
   
EndProcedure 

DataSection 
  hello:            ;set label 
  Data.l 5          ;set len of data to the image  
  Data.s "hello"    ;set data 
  world:            
  Data.l 5 
  Data.s "world" 
EndDataSection  

doit(?hello)   
doit(?world) 

[marcoagpinto]

Well, I give up, I tried and it didn't work.

Thanks for helping.

Code: Select all

CatchImageEnhanced(#GLOBAL_IMAGE_POPUP_EDIT,?popup_edit,"Can't load image.")

Procedure CatchImageEnhanced(MARCOAGPINTO_gadget,?MARCOAGPINTO_label,MARCOAGPINTO_error_message$)
  If CatchImage(MARCOAGPINTO_gadget,?MARCOAGPINTO_label)=#False : MessageRequester("Error", MARCOAGPINTO_error_message$,#PB_MessageRequester_Error) : EndIf
EndProcedure

[STARGÅTE]

The second argument in CatchImage() is just a memory address.
The ? operator is used to receive the memory address from a label: *Address = ? Label

Code: Select all

CatchImageEnhanced(#GLOBAL_IMAGE_POPUP_EDIT,?popup_edit,"Can't load image.")

Procedure CatchImageEnhanced(MARCOAGPINTO_gadget, *Buffer, MARCOAGPINTO_error_message$)
  If CatchImage(MARCOAGPINTO_gadget, *Buffer)=#False : MessageRequester("Error", MARCOAGPINTO_error_message$,#PB_MessageRequester_Error) : EndIf
EndProcedure

[netmaestro]

It's a pointer, nothing more or less. Nothing to spend a lot of time analyzing.

[marcoagpinto]

Okay, guys, thanks!

I no longer need to create the procedure since the catch image command should always work, so I created a procedure only for the error message:

Code: Select all

; Display a requester with an error message.
;
; To clean up the code
;
; V1.0 - 07/APR/2024
;
Procedure MessageRequesterError(MARCOAGPINTO_error_text$)
  
  MessageRequester("Error",MARCOAGPINTO_error_text$,#PB_MessageRequester_Error)
  
EndProcedure

My basic idea is to have the code as simple and as small as possible.

Thanks!